Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Novlucker

#4371
No entiendo, tienes un programa creado en VB.net? y quieres compilarlo?

En NET es automático, cuando lo pruebas se genera el exe,tiene que estar dentro de la carpeta del proyecto

Saludos
#4372
Es que justamente te di los codes para que los juntaras, y lo que dice index es el comentario de como sería usarlo, index no funciona pero puedes usar workbooks.count

Código (vb) [Seleccionar]
Workbooks.Add
Sheets(1).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)


Con workbooks.Count sabes cuantos libros hay, y por ende utilizandolo como index te moverás al último (el que acabamos de crear)
También he cambiado el copy After a Before, así copias la hoja en la primera hoja del nuevo libro  :P

Saludos
#4373
A que te refieres con que lo compilaste? es un vbs? salvo que te refieras al bat donde lo pusiste  :(

Y por otra parte, la ruta debe de ser absoluta, no sirve poner ..\aimp2\aimp2.exe, tiene que ser "C:\Archivos de programa\aimp2\aimp2.exe" o algo similar  :P

Saludos
#4374
Lo muevo a VB porque la respuesta son macros (y son lo más parecido)  :P

Código (vb) [Seleccionar]
Sub Completardia()
On Error Resume Next

Nombrehoja = Format(Now(), "ddmmm")

Sheets(Nombrehoja).Select

If Err.Number > 0 Then
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Nombrehoja
    Sheets(Nombrehoja).Range("A1").Value = ""
    'Ejemplo de una celda que sería borrada
    Err.Clear
Else
    MsgBox "Ya existe una hoja para la fecha actual"
End If

End Sub


Buenas, la macro sería algo así, espero entiendas algo de esta para poder modificarla a tu gusto  ;)

Si te manejas más o menos con estas entonces sabrás que para ejecutarlas o bien lo haces desde el editor de visual basic (integrado en el office), desde el listado de macros, desde un botón con la macro asignada, o bien lo metes en:

Código (vb) [Seleccionar]
Private Sub Workbook_Open()
'Aqui el resto
End Sub

Y de este modo se ejecuta en cada apertura del libro  :P

Saludos
#4375
No me queda claro lo que quieres hacer  :-X

Partimos de la base de que tienes una hoja de excel, y quieres crear una nueva hoja ... esa nueva hoja es copiada? o es nueva? se va a crear automaticamente al abrir el libro y con la fecha que figura en la pc? Debes de tener una hoja por cada día?

Lo más sencillo sería que al abrir el libro se hayan creado tantas hojas como días en el mes, y si estamos a 25, entonces que hayan 25 hojas  :P

Saludos  :P
#4376
Muy bien, y ten en cuenta que debes de dejar como activa la celda a partir de la cual quieres revisar  :P

Saludos
#4377
Intenta con esto  ;)

Código (vb) [Seleccionar]
Do While ActiveCell.Value <> ""
'Recorremos 1x1 las celdas de una columna

celda = ActiveCell.Address
'Direccion auxiliar para volver a donde estabamos
If ActiveCell.Value = 2 Then
'Si el valor de la celda es dos(2) por ejemplo
    Rows(ActiveCell.Row).Delete Shift:=xlUp
    'Borramos toda la fila
    Range(celda).Select
    'Volvemos a donde estabamos
Else
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
'Si el valor no es dos(2) simplemente pasamos a la siguiente celda
End If

Loop


Saludos  ;D
#4378
En batch no tengo idea, en vbs ... :P

Código (vb) [Seleccionar]
Set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
For Each process in taskmgr
If process.executablepath = "C:\notepad.exe" then
Process.terminate
End If
Next


Con este code terminarías solamente el/los proceso/s cuyo ejecutable este en "C:\notepad.exe", y solo sería cuestión de empaquetar este pequeño code en batch  :D

Abre el notepad (el tradicional de C:\windows\system32\notepad.exe), y luego copia y abre otro en C:, ejecuta el code y verás como solo uno "muere"

Saludos
#4379
No siempre, los msagent de terceros seguro no lo traen  :rolleyes:

Saludos
#4380
En realidad, si entiendo lo que quieres entonces... necesitas utilizar TextToSpeech junto a MSAgent
Por una parte invocas al Agente y con speak haces que hable mostrando texto en globos de texto, y por otro con el Text2Speech puedes hacer que te dicte  :P

Saludos