In this code ,
Code: Select all
xl := ComObjCreate("excel.application")
wrkbk := xl.workbooks.open("C:\Users\Administrater\Desktop\New Microsoft Excel Worksheet.xlsx")
lstrw := xl.Range("A" xl.Rows.Count).End(-4162).Row
mnth := strsplit(xl.Range("B" lstrw).value, "-").1
nwrw := lstrw + 1
nmbr := xl.Range("A" lstrw).value
if nmbr is not number
nmbr := 0
if (mnth != A_MM) {
nmbr := 0
nwrw++
}
colctxt := "static text"
xl.Range("A" nwrw):= nmbr + 1
xl.Range("A" nwrw).NumberFormat := "## "
xl.Range("B" nwrw).value := A_MM "/" A_DD "/" A_YYYY
xl.Range("C" nwrw).value := colctxt
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()
Code: Select all
xl.Range("B" nwrw).value := A_MM "/" A_DD "/" A_YYYY
Code: Select all
xl.Range("B" nwrw).value := A_DD "/" A_MM "/" A_YYYY