Access to Excel Output per VBA
06.10.2016 14:10:33
Steven
bin Noo, möchte mein 2. erfolgreiche Script schreiben, habe aber ein 424 Laufzeitfehler. Ich bin in Access und habe ein VBA Script geschrieben, der ein Queryresultät in ein Excelblatt (Datei ist vorhanden)übertragen soll. Alle klappt bis auf der "ActiveWorkbook.Close SaveChanges:=True" Zeile. Habe ich seit mehrere Stunden viele verschiedene Wege aus die Forums probiert, aber es klappt nicht. Am Anfang musste ich in die "Verweise" die DAO usw. ankreuzen, damit hat der erste Teil funktioniert. Ohne diese Zeile wird das Excelblatt sehr schön befüllt. Bin für Tips sehr dankbar. Übrigens habe "Sub" mit "Function" ersetzt, damit kann der in der Access Makro aufgerufen werden. Hier mein Code:
Function PL_Overview()
Dim dbs As Database
Set dbs = CurrentDb
Set rsQuery = dbs.OpenRecordset("PL Auswertung, Lagerbestandswert, Pass 06 TotalSum")
Set excelApp = CreateObject("Excel.application", "")
excelApp.Visible = True
Set targetWorkbook = excelApp.workbooks.Open("Q:\SAP\PL_Analysis_20161005 - Kopie.xlsx")
targetWorkbook.Worksheets("Overview").Range("A4").CopyFromRecordset rsQuery
ActiveWorkbook.Close SaveChanges:=True
End Function