Darle formato a Excel desde VBScript

[lukas4]

YA LO ACABE, aqui les dejo el codigo por si alguien ocupa algo parecido:

Código vb:

Dim strExcelPath, objExcel, objSheet, k, n1,n2, c
 
n1=InputBox("numero: ","Que tranza loco") 'numero a insertar
 
If n2=CInt(n1) < 0 Then 'aqui se revisa si es mayor cero
 WScript.Echo "inserte valores positivos"
 WScript.Quit  'si el numero es negativo sale del programa
End If
 
c=Len(n1) 'mide la longitud de la cadena
 
If c = 1 Then
 n2 = "00" + n1 'si es numero de un solo digito agrega dos ceros al principio
ElseIf c = 2 Then
 n2 = "0" + n1 'si es numero de dos digitos agrega un cero al principio
End If
 
 
'-----EXCEL----
 
'Direccion donde se guardara el documento
strExcelPath = "C:\talDireccionEnSuDiscoDuro\"
 
'Nombre del documento
strExcelPath = strExcelPath + "nombreArchivoExcel.xls"
 
'Bind to excel object
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If(Err.Number <> 0) Then
 On Error Goto 0
 WScript.Echo "Excel application not found."
 WScript.Quit
End If
On Error GoTo 0
 
'Crea nuevo libro de trabajo
objExcel.Workbooks.Add
 
'Bind to worksheet
set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objSheet.Name = "Del 1 al " & n1 'Nombre de la hoja
 
'Llenado de las hojas
 
'Con un ciclo For
'For k=1 to n1
' objSheet.Cells(k,1).Value = k
'Next
 
'Con un ciclo While
k=1
n1=CInt(n1) 'aqui se convierte el valor a Int para que funcione el ciclo
Do While k <= n1
 objSheet.Cells(k,1).Value = k
 k=k+1
Loop
 
'Formato a la hoja
objSheet.Cells.NumberFormat = "000"
 
'Guardar y Salir
objExcel.ActiveWorkBook.SaveAs strExcelPath
objExcel.ActiveWorkBook.Close
WScript.Echo "Listo!"
 

enjoy! (: