Select rows/columns in excel and send them via email

[Fulminare]

I tried searching for this , but could not get it anywhere

(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()

Is it possible to select :

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

[flyingDman]

You are asking for 3 things: select the rows that contain specific data in a certain column, print these rows to a .pdf, email the .pdf. For the last one - emailing as an attachment -, you should be able to find a solution here on the forum. For the first two, here is a solution. Instead of selecting the rows meeting the criteria, I suggest that you hide the ones that do not meet the criteria. You can then print and then unhide the rows.
In the following, the criteria is "cell content in column A is to be equal to 5"; you should be able to adapt it to mnth = XXXX.

Code: Select all

xl := ComObjActive("Excel.Application")
for r in xl.activesheet.usedrange.rows
	if !(xl.range("a" r.row).text = 5) AND (r.row > 1)		;will always include 1 header row
		xl.rows(r.row).EntireRow.Hidden := True
splitpath, % xl.ActiveWorkbook.FullName, , oDir, , oNNE
pth := oDir "\" oNNE ".pdf"
xl.ActiveSheet.ExportAsFixedFormat(0,pth)   				; the file name will be the same as the excel file, except for the extension
xl.activesheet.usedrange.EntireRow.Hidden := False

[Fulminare]

Thank you, I will try this

[flyingDman]

Did you? and...

[Fulminare]

Oh I am sorry,

Yes it worked.

A PDF file was created

Thank you