I want the last row of every sheet to be shown in a gui.
I have managed to do this
Code: Select all
xl := ComObjCreate("excel.application")
wrkbk := xl.workbooks.open("C:\Users\user\Desktop\.xlsm")
XL.Sheets("Sheet1").Activate
wrkbk1.Sheets("Sheet1").Select
lstrw := xl.Range("B" xl.Rows.Count).End(-4162).Row
lstrw1 := xl.Range("A" xl.Rows.Count).End(-4162).Row
runs :=xl.Range("B" lstrw).text
name :=xl.Range("A" lstrw).text
Gui, Add, Progress, x50 y10 w280 h70
Gui, Add, Text, x1 y10 wp , %name% %runs%
Gui Show
In the GUI I want the data shown in lines, one after the other.
1st sheet data in the 1st line
2nd sheet data in the 2nd line
e.t.c
Can someone please help by telling how to complete this code ?
Regards.