Jump to content
GUILHERME CAMPANHOLO

Copiar Conteúdo da célula Excel e colar em outro janela

Recommended Posts

Boa noite Amigos,

 

Gostaria de uma ajuda,

preciso copiar o conteúdo de uma célula no Excel e colar em uma janela em outro software.

 

Algo mais ou menos Assim, sei que está errado, mais a ideia

é essa, copiar uma determinada célula no Excel e colar através do controlsend.

 

#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $oExcel = _Excel_Open()
Local $sWorkbook = @DesktopDir & "\TESTE.xlsx"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
Sleep (2000)
$oExcel.Cells(1,1).copy()
WinActivate("EPLAN Electric P8 2.3")
ControlClick("","","AfxFrameOrView110u1")
Send("!{insert}")
Sleep(4000)
ControlSend("","","Edit2","célula excel")
Se alguém puder ajudar fico grato,
Edited by GUILHERME CAMPANHOLO

Share this post


Link to post
Share on other sites

Fala Mutleey.

 

a celula não vai ser smp a msm.

estou pensando em fazer um while, para cada vez pegar o valor da próxima célula abaixo,

ai teria que declarar um variante e soma +1 .

Edited by GUILHERME CAMPANHOLO

Share this post


Link to post
Share on other sites


#include <Excel.au3>
#include <Array.au3>

; Create application object
Local $oExcel = _Excel_Open(False)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\planilha.xlsx")


Local $aResult = _Excel_RangeRead($oWorkbook, 3, Default, 1)
; o retorno da varialvel $aResult é o valor de todas a celulas da planilha (array), então basta informar qual celula vai usar.

_ArrayDisplay($aResult, "Array Display Excel")

MsgBox(0, "Excel", $aResult[0][0] & @CRLF & $aResult[0][1] & @CRLF & $aResult[2][2] & @CRLF & $aResult[3][2] & @CRLF)

_Excel_Close($oExcel, False, True)



Edited by mutleey

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×