Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Access to Excel Output per VBA

Access to Excel Output per VBA
06.10.2016 14:10:33
Steven
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Access to Excel Output per VBA
06.10.2016 14:17:48
Michael
Hi,
teste mal targetWorkbook.close.
Schöne Grüße,
Michael
AW: Access to Excel Output per VBA
06.10.2016 14:25:29
Steven
hat prima funktioniert. Möchte gerne Excel danach schliessen, "Application.Close" oder ähnliches funktioniert bei mir auch nicht. und letzte Frage, ich würde gerne vorher die bestehenden Daten komplett löschen. Danke
AW: Access to Excel Output per VBA
06.10.2016 14:58:04
Steven
Hab's hinbekommen, hätte ich nicht gedacht, der Forum hier ist geil!:
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.Sheets("Overview").Rows(4).Delete
TargetWorkbook.Worksheets("Overview").Range("A4").CopyFromRecordset rsQuery
TargetWorkbook.Close SaveChanges:=True
excelApp.Quit
Set excelApp = Nothing
End Function

Anzeige
ok, super, danke für die Rückmeldung
06.10.2016 20:49:41
Michael
und Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige