1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:
Public SubReportGenerator (strAccount als Koord, strReportDate als Koord, strReportHeader als Koord) Schemerige wbk als Excel.Workbook, wks als Excel.Worksheet Schemerige rngStartRange als Excel.Range Schemerige strIssues als Koord, rngIssues als Waaier, qdfIssues als QueryDef Schemerige objExcel als Excel.Application Vastgesteld db = CurrentDb strIssues = „UITGEZOCHTE Rekening, TopicHeader, Value1, Value2“ & _ „VAN tblReportDataSource“ & _ „WAAR Rekening = „“ & strAccount & „“ EN TopicHeader IN („# Kwesties“, „de Waarde van de Markt ($B)“) „ Als DoesObjectExist („qryIssues“, „Vraag“) Dan acQuery DoCmd.DeleteObject, „qryIssues“ Reeks qdfIssues = db.CreateQueryDef („qryIssues“, strIssues) Reeks rst = db.OpenRecordset („qryIssues“, acQuery) Reeks objExcel = Nieuwe Excel.Application objExcel.Visible = Waar Reeks wbk = objExcel.Workbooks.Open („van N:\US\US van de Verhouding & de van de Bedrijfs cliënt Cliënt die van de Ontwikkeling \ Nieuwe Cliënt \ melden die Privé \ van de Cliënt \ van de Dienst \ Sandra \- PROJECTEN melden \ JerrysProject \ ReportTemplate.xls“) Reeks wks = wbk.ActiveSheet Met wks . Waaier („FundNumber“) .value = het „Aantal van het Fonds“ & strAccount . Waaier („ReportDate“) .value = „Periode die“ & strReportDate beëindigen . Waaier („ReportHeader“) .value = strReportHeader Eind met Reeks rngIssues = wks. Waaier („Kwesties“) wks. Waaier („Kwesties“) .CopyFromRecordset rst rst. Sluit