2 replies to this topic

[K2Chris1983]

Hey Guys,

 

I am new just downloaded the program and thought I would ask if there is a script already made to do the following:

 

Copy data from Excel sheet - Like 48 lines of serial numbers.

Then Paste the Data into a field.

 

The paste has to go like this: Paste Line 1, Enter, Delay, Paste Line 2, Enter, Delay… and so on.

 

If you can help or guide me the right way, that would be awesome!

 

Thank you

 

[tyrer]

F1::
Loop, parse, clipboard , `r%A_Tab%
{
send, %A_LoopField%
sleep, 1000
}
return

This might be a start. Copy the data into clipboard. Open a notepad file(for testing) and press F1.

[kon]

 ; This will get a range of cells from Excel
; If Excel is open it will use that instance of Excel
; Otherwise it opens the excel workbook with the path stored in "MyFilePath"

MyFilePath := A_Desktop "\New Microsoft Excel Worksheet.xlsx"

Try oExcel := ComObjActive("Excel.Application") ; Get the active Excel application object if an instance of Excel is open.
if (!oExcel)    ; If there was no instance of excel open...
{
    oExcel := ComObjCreate("Excel.Application") ; Create an Excel Application object
    oWorkBook := oExcel.Workbooks.Open(MyFilePath) ; Open a workbook with the file path in the variable "MyFilePath"
}
oExcel.Visible := true    ; Make excel visible (Optional)

MyCells := oExcel.Range("A3:A40")    ; Get a range of cells A3:A40
return

 

; Now that we have stored the range of cells, we can loop through them with a for-loop
^p::    ; Ctrl+P Hotkey
for key, in MyCells
{
    Send, % key.Value "{Enter}"
    Sleep, 500
}

; This will optionally quit Excel:
; oExcel.Quit
; oExcel := ""
return 

 

For more info on COM for Excel see Basic Ahk_L COM Tutorial for Excel and the COM object reference.