(with reference to one of my previous question,)
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, "-").2
nwrw := lstrw + 1
nmbr := xl.Range("A" lstrw).value
if nmbr is not number
nmbr := 0
if (mnth != A_MMM) {
nmbr := 0
nwrw++
}
;ENTRIES
colctxt := "Static Text"
xl.Range("A" nwrw):= nmbr + 1
xl.Range("A" nwrw).NumberFormat := "## "
xl.Range("B" nwrw).value := A_DD "-" A_MM "-" 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()
1.The rows that have the same month,
2.Columns A to E,
3.Convert the selected columns and rows into pdf ,
4 Send the pdf via email , with the subject " 'month' Data " ?
Regards