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:
Ver originalFor 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:
Ver originalk=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?