CAPTURAR DATOS PLANILLA EXCEL
Publicado: 28 Mar 2018, 23:06
Hola buenos dias, este es mi primer post
investigando para investigar sobre automatizacion llegue a autoit, y es un mondo de nuevos temas
Bueno, necesito hacer un programa que lee desde una planilla excel y coloque esos datos copiados en un formulario web asi:
(mi problema es que ncesito ejecutar el programa pero que lee inmediatamente la planilla activa que esta en pantalla y no tener que abrirla cada vez como lo que tengo aqui en el programa, como se puede hacer?
local $var="D:\Autoit\demo_copia_formulario\planilla.xlsx"
local $oexcel_1= _Excel_Open()
local $oworkbook = _Excel_BookOpen($oexcel_1, $var)
local $read= _Excel_RangeRead($oworkbook,default,"b1")
Local $productos=1
local $pos_producto=313
While $productos <= $read
; selecciona celda nombre y copia
Sleep(1200)
MouseClick("right",173,$pos_producto,3)
Send("{Down 2}")
Sleep(1000)
Send("{Enter}")
Sleep(900)
;abre formulario
MouseClick("left",220,775,1)
Sleep(500)
;pega producto en formulario
MouseClick("left",358,428,1)
send("^v")
Sleep(125)
;vuelve a planilla excel
;MouseClick("left",220,775,1)
MouseClick("left",171,778,1)
Sleep(500)
;copia precio venta
MouseClick("left",280,$pos_producto,1)
Sleep(500)
MouseClick("right",280,$pos_producto,1)
Sleep(500)
Send("{Down 2}")
Sleep(250)
Send("{Enter}")
Sleep(800)
;abre formulario
MouseClick("left",220,775,1)
Sleep(500)
;pega precio venta en formulario
MouseClick("left",358,552,1)
send("^v")
sleep(500)
MouseClick("left",389,653,1)
sleep(1800)
MouseClick("left",408,400,1)
Sleep(1500)
;vuelve a planilla excel
;MouseClick("left",220,775,1)
MouseClick("left",171,778,1)
$productos=$productos+1
$pos_producto=$pos_producto+20
WEnd
EndFunc
investigando para investigar sobre automatizacion llegue a autoit, y es un mondo de nuevos temas
Bueno, necesito hacer un programa que lee desde una planilla excel y coloque esos datos copiados en un formulario web asi:
(mi problema es que ncesito ejecutar el programa pero que lee inmediatamente la planilla activa que esta en pantalla y no tener que abrirla cada vez como lo que tengo aqui en el programa, como se puede hacer?
local $var="D:\Autoit\demo_copia_formulario\planilla.xlsx"
local $oexcel_1= _Excel_Open()
local $oworkbook = _Excel_BookOpen($oexcel_1, $var)
local $read= _Excel_RangeRead($oworkbook,default,"b1")
Local $productos=1
local $pos_producto=313
While $productos <= $read
; selecciona celda nombre y copia
Sleep(1200)
MouseClick("right",173,$pos_producto,3)
Send("{Down 2}")
Sleep(1000)
Send("{Enter}")
Sleep(900)
;abre formulario
MouseClick("left",220,775,1)
Sleep(500)
;pega producto en formulario
MouseClick("left",358,428,1)
send("^v")
Sleep(125)
;vuelve a planilla excel
;MouseClick("left",220,775,1)
MouseClick("left",171,778,1)
Sleep(500)
;copia precio venta
MouseClick("left",280,$pos_producto,1)
Sleep(500)
MouseClick("right",280,$pos_producto,1)
Sleep(500)
Send("{Down 2}")
Sleep(250)
Send("{Enter}")
Sleep(800)
;abre formulario
MouseClick("left",220,775,1)
Sleep(500)
;pega precio venta en formulario
MouseClick("left",358,552,1)
send("^v")
sleep(500)
MouseClick("left",389,653,1)
sleep(1800)
MouseClick("left",408,400,1)
Sleep(1500)
;vuelve a planilla excel
;MouseClick("left",220,775,1)
MouseClick("left",171,778,1)
$productos=$productos+1
$pos_producto=$pos_producto+20
WEnd
EndFunc