Public VorReportGenerator (strAccount als Schnur, strReportDate als Schnur, strReportHeader als Schnur)
Schwaches wbk als Excel.Workbook, wks als Excel.Worksheet
Schwaches rngStartRange als Excel.Range
Schwache strIssues als Schnur, rngIssues als Strecke, qdfIssues als QueryDef
Schwaches objExcel als Excel.Application
Einstellen DB = CurrentDb
strIssues = „VORWÄHLEN Konto, TopicHeader, Value1, Value2“ u. _ e2
„Vom tblReportDataSource“ u. vom _
IN, „, WO Konto = „“ u. strAccount u. „“ UND TopicHeader („# herausgibt“, „Marktwert eader ($B) ") „
Wenn DoesObjectExist („qryIssues“, „Frage“) dann DoCmd.DeleteObject acQuery, „qryIssues“
qdfIssues = db.CreateQueryDef („qryIssues“, strIssues) einstellen
Rst = db.OpenRecordset („qryIssues“, acQuery) einstellen
objExcel einstellen = neues Excel.Application
objExcel.Visible = ausrichten en
Wbk = objExcel.Workbooks.Open einstellen („N:\US\US-Klienten-Verhältnis u. Entwicklung-\ Klienten-Bericht \ privater \ neuer Klienten-Bericht \ Klient Service \ Sandra \ PROJEKTE \ JerrysProject \ ReportTemplate.xls“)
Wks = wbk.ActiveSheet einstellen
Mit wks
. Strecke („FundNumber“) .value = „Kapitals-Zahl“ u. strAccount
. Strecke („ReportDate“) .value = „Zeitraum-Ende“ u. strReportDate
. Strecke („ReportHeader“) .value = strReportHeader
Ende mit
rngIssues = wks einstellen. Strecke („Ausgaben“)
wks. Strecke („Ausgaben“) .CopyFromRecordset rst
rst. Abschluss
|