Darle formato a Excel desde VBScript

[lukas4]

Que tal, les dare un resumen de lo que tengo que hacer, lo que llevo hasta el momento y de lo que me falta por lograr.

tengo que escribir en un documento excel 'X' cantidad de numeros que el usuario inserte, por ejemplo, si el usuario inserta el numero 456, en el documento excel tengo que escribir desde el numero 1 hasta el 456 (un numero en cada celda), PERO se deben de escribir en el siguiente formato: 001, 005, 010,025, 100, XXX.

lo que ya tengo es lo de la escritura en el archivo, ya puedo escribir en las celdas desde el 1 hasta el XXX.

lo que me falta es que se escriban de esta manera 00X, 0XX y XXX, trate de concatenarle el numero de ceros correspondiente, pero recorde que excel automaticamente 'formatea' los numero, tons si le meto el 001 al darle enter excel lo pone como 1 solamente, tons para eso ocupo moverle a la configuración de la hoja de excel, tons la pregunta es:

existe alguna manera de darle la configuración a excel desde el codigo vbscript? y si es así me podrian decir como? (:
gracias y hasta pronto

[Myakire]

Así:

sNumero = RIGHT("0000" & TuContador, 4)


Saludos

[lukas4]

gracias Myakire, lo hice de otra manera y me funciono :P puse esto:

objSheet.Cells.NumberFormat = "000"

estuve buscando por varios lados las propiedades hasta que encontre esta, ahora lo que me falla es en el ciclo, si lo hago con un ciclo For si funciona:

Código vb:

For k=1 to n1
 objSheet.Cells(k,1).Value = k
Next
 

pero si lo hago con un while se me queda ciclado Dx

Código vb:

k=1
Do While k <= n1
 WScript.Echo "dentro del loop" & k
 objSheet.Cells(k,1).Value = k
 k=k+1
Loop
 

ya lo intente de varias maneras y nomas no puedo hacer que funcione \"
alguna idea?

[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! (: