pero en este caso yo lo use para hacer una especie de macro, pero fuera de excel, pero tampoco llega a ser un programa. la verdad es que todavia no entiendo que es. jajaja
para que no piensen que esto es un virus, y aunque no sea ninguna seguridad, lo van a hacer ustedes (si quieren).
el codigo que esta abajo tienen que copiarlo a un bolck de notas (notepad.exe), y guardarlo con culquier nombre, en algun directorio.
yo por ejemplo lo nombre prueba y lo puse en el escritorio.
pero la extencion del archivo la van a modificar por "vbs"
la ruta del mio es "c:\windows\escritorio\prueba.vbs"
les adjunto mi prueba zipeada
despues lo ejecutan
rem -------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.getspecialfolder(0)
set exc = createobject("Excel.Application")
set wb = exc.workbooks.add
exc.displayalerts=0
exc.visible=1
wb.saveas a & "\escritorio\una prueba.xls"
on error resume next
for i = 0 to wb.sheets.count
wb.sheets(i).delete
if wb.sheets.count = 1 then exit for
next
err.clear
on error goto 0
set sh = wb.sheets(1)
sh.name = inputbox("Ingrese el nombre de la hoja nro 1","macro fuera de excel?")
for fila = 1 to 15
for columna = 1 to 10
sh.cells(fila,columna)="fil " & fila & " - col " & columna
next
next
wb.save
wb.close
exc.quit
set sh = nothing
set wb = nothing
set exc = nothing
rem ---------------------------------------------------
saludos
