[VBS] Duda con Excel.application (WXP=W7?)

[klaine]

Hola, tengo el siguiente script, en windows xP me funka bien, en windows 7 se vuelve loko  , básicamente crea una planilla de excel para un ciber café, usa excel.application para crear la primera parte de la planilla, y luego copio el resto con wscript.shell.sendkeys, uso tiempos entre las pulsaciones de teclas para que no se me caiga el script (y de paso excel, porque me ha pasado), bueno les dejo el script:

Código (vb) [Seleccionar] Expandir



set exc=createobject("excel.application")
set wss=createobject("wscript.shell")

exc.visible = true

' preparando el archivo

set ambiente = exc.workbooks.add()
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200

'preparando la hoja PCs

set fecha1 = exc.range("B2")
fecha1.interior.colorindex = 28
fecha1.formula = "Ingrese fecha"
fecha1.borders.colorindex = 1

set fecha2 = exc.range("C2")
fecha2.interior.colorindex = 28
fecha2.borders.colorindex = 1
fecha2.formula = "01-01-2012"
fecha2.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

set fecha3 = exc.range("C8")
fecha3.interior.colorindex = 28
fecha3.borders.colorindex = 1
fecha3.formula = "=C2+1"
fecha3.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

set rango1 = exc.range("C10:H10")

rango1.interior.colorindex = 1
rango1.font.colorindex = 4
rango1.font.bold = true

exc.range("c10").formula = "PC 1"
exc.range("d10").formula = "PC 2"
exc.range("e10").formula = "PC 3"
exc.range("f10").formula = "PC 4"
exc.range("g10").formula = "PC 5"
exc.range("h10").formula = "PC 6"

set rango2 = exc.range("C11:h19")
rango2.interior.colorindex = 15
rango2.borders.colorindex = 1

set rangof = exc.range("C20:H20")

rangof.interior.colorindex = 28
rangof.borders.colorindex = 1
rangof.select

set f1 = exc.range("C20")
f1.formula = "=suma(C11:C19)"
f1.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
wscript.sleep 666
wss.sendkeys "{up}"
wss.sendkeys "^(c)"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "{enter}"

wscript.sleep 200

set total = exc.range("H22")
total.formula = "=suma(C11:H19)"
total.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
' -------------------------
'copiando el cuadro al resto de la hoja

set stotal = exc.range("G22")
stotal.formula = "Total"

set rango3 = exc.range("C8:H22")
rango3.select
wss.sendkeys "^(c)"

dim control
control=1

' bajar 16 y pegar

do

for i=1 to 20 step 1

wss.sendkeys "{down}"
 if control = 32 then
    exit do
 end if
next

wss.sendkeys "^(v)"
wscript.sleep 200
control = control + 1
loop

exc.columns("B").entirecolumn.autofit

' eso, el resto está listo para pasar a la siguiente hoja
for x=8 to 628 step 20

if x>8 then
resta= x-20
exc.cells(x, 3).formula = "=C"&resta&"+1"
exc.cells(x, 3).select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
wscript.sleep 200
end if

fecha2.formula = ""

next

exc.range("C8").formula = "=C2"
exc.range("c8").select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

'*****************************************
'*****************************************
'             SEGUNDA HOJA
'*****************************************
'*****************************************

wss.sendkeys "^{pgdn}"



De antemano gracias  por sus respuestas

Saludos  

[Novlucker]

No lo he probado, pero desde ya te digo que es una mala idea, el envio de teclas tiene que utilizarse como última opción, intenta buscar funciones nativas que hagan lo que necesitas (Excel se puede automatizar en su totalidad)

Saludos