script A should enter data into the sheet called "one"
script B should enter data into the sheet called "two"
Script A
Code: Select all
xl := ComObjCreate("excel.application")
wrkbk := xl.workbooks.open("C:\Users\user\Desktop\New Microsoft Excel Worksheet (2).xlsx")
lstrw := xl.Range("B" xl.Rows.Count).End(-4162).Row
mnth := strsplit(xl.Range("C" lstrw).value, "-").2
nwrw := lstrw + 1
nmbr := xl.Range("B" lstrw).value
if nmbr is not number
nmbr := 0
if (mnth != A_MMM) {
nmbr := 0
nwrw++
}
;ENTRIES
xl.Range("A" nwrw).value := nick
xl.Range("B" nwrw).value := runs
xl.Range("B" nwrw).NumberFormat := "## "
xl.Range("C" nwrw).value := A_DD "-" A_MM "-" A_YYYY
xl.Range("D" nwrw).NumberFormat := "[$-en-US]h:mm Am/Pm;@"
xl.range("D" nwrw).value := A_Hour ":" A_Min ":" A_Sec
wrkbk.close(1)
xl.quit()
Script B
Code: Select all
xl := ComObjCreate("excel.application")
wrkbk := xl.workbooks.open("C:\Users\user\Desktop\New Microsoft Excel Worksheet (2).xlsx")
;wrkbk := xl.workbooks.open("C:\Users\user\Desktop\New Microsoft Excel Worksheet.xlsx")
wrkbk1.activate
wrkbk1.Sheets("Fees").Select
lstrw := xl.Range("B" xl.Rows.Count).End(-4162).Row
mnth := strsplit(xl.Range("C" lstrw).value, "-").2
nwrw := lstrw + 1
nmbr := xl.Range("B" lstrw).value
if nmbr is not number
nmbr := 0
if (mnth != A_MMM) {
nmbr := 0
nwrw++
}
;ENTRIES
FormatTime, lastMonth, % A_Now - 100000000, MMM
colbtxt :=static text
xl.Range("A" nwrw).value := nick
xl.Range("B" nwrw).value := colbtxt
;xl.Range("B" nwrw).NumberFormat := "## "
xl.Range("C" nwrw).value := A_DD "-" A_MM "-" A_YYYY
wrkbk.close(1)
xl.quit()
Code: Select all
wrkbk1.activate
wrkbk1.Sheets("Sheet2").Select
Can someone please tell me what to do ?
Regards