how to create script for this excel sheets using autohotkey Topic is solved

Get help with using AutoHotkey and its commands and hotkeys
Yoha Arunodz
Posts: 3
Joined: 21 Apr 2019, 03:36

how to create script for this excel sheets using autohotkey

21 Apr 2019, 06:08

Info
Info.png
Info.png (98.32 KiB) Viewed 204 times
Step 01
Step 1.png
Step 1.png (195.19 KiB) Viewed 204 times
Step 02
Step 2.gif
Step 2.gif (311.83 KiB) Viewed 204 times
Odlanir
Posts: 531
Joined: 20 Oct 2016, 08:20

Re: how to create script for this excel sheets using autohotkey  Topic is solved

21 Apr 2019, 06:48

This works only if the excel workbook it's exactly as the one you posted. Could be a starting point.

Code: Select all

excelname := A_ScriptDir "\Prova99.xls"  ; put here the name of your excel file
XL := ComObjCreate("Excel.Application")
xl.workbooks.open(ExcelName)
XL.Visible := True
;~ XL.DisplayAlerts := false
loop, 4 
    sh%a_index% := xl.Sheets(a_index)
line := 0, Column := 1
loop, 5 {
    sh1.Cells(++line, 1) := sh2.Cells(a_index, 1).value
    sh1.Cells(++line, 1) := sh3.Cells(a_index, 1).value
    loop {
        if (sh4.cells(a_index, column).value = "" )
            break
        sh1.cells(++line, 1) := sh4.cells(a_index,column).value
    }
    column += 2
}
xl.cells.EntireColumn.Autofit
ExitApp
____________________________________________________________________________
Windows 10 Pro 64 bit - Autohotkey v1.1.30.01 64-bit Unicode
Yoha Arunodz
Posts: 3
Joined: 21 Apr 2019, 03:36

Re: how to create script for this excel sheets using autohotkey

23 Apr 2019, 07:38

@Odlanir Your are awesome.
Thank you for helping me with this matter.

Return to “Ask For Help”

Who is online

Users browsing this forum: AnzeBlaBla, Bing [Bot], BreezeB, hotkeyguy, marcefw and 202 guests