Export von Access in Excel-Vorlage

Computer: Software & Programmierung Visual Basic
#1

Hallo ich habe folgendes Problem:
mit dem nachfolgenden Code funktioniert der Export nach Excel wunderbar aber nur mit der Version Office 2003 aufwärts.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim Arbeitsmappe As Excel.Workbooks
Dim xlSheets As Excel.Sheets
Dim xltemplate As String

xltemplate = App.Path & „\Auswertung\Vorlage_test.xlt“
Set xlApp = New Excel.Application

Set Arbeitsmappe = xlApp.Workbooks

Set xlBook = Arbeitsmappe.Add(xltemplate)
Set xlSheet = xlApp.ActiveSheet
xlApp.Visible = False

Set xlRange = xlSheet.Range(„A4“)
xlRange.CopyFromRecordset Def_Rep

xlBook.SaveAs (App.Path & „\Auswertung“ & Station_Nam & „_“ & Rep_Nam & „_“ & Date & „_test.xls“)

xlApp.Quit

Nun funktioniert dies aber mit älteren Office Versionen nicht, da bekommt man immer einen Fehler, der das ganze Programm beendet.

Kann mir bitte jemand weiterhelfen, wie ich dies auch mit älteren Office Versionen realisieren kann?

Vielen Dank schon mal.

#2

Grüezu Boris

Hallo ich habe folgendes Problem:
mit dem nachfolgenden Code funktioniert der Export nach Excel
wunderbar aber nur mit der Version Office 2003 aufwärts.

Mit welchen Versionen soll der Code denn sonst noch laufen?

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim Arbeitsmappe As Excel.Workbooks
Dim xlSheets As Excel.Sheets
Dim xltemplate As String

xltemplate = App.Path & „\Auswertung\Vorlage_test.xlt“
Set xlApp = New Excel.Application

Set Arbeitsmappe = xlApp.Workbooks

Set xlBook = Arbeitsmappe.Add(xltemplate)
Set xlSheet = xlApp.ActiveSheet
xlApp.Visible = False

Set xlRange = xlSheet.Range(„A4“)
xlRange.CopyFromRecordset Def_Rep

xlBook.SaveAs (App.Path & „\Auswertung“ & Station_Nam & „_“ &
Rep_Nam & „_“ & Date & „_test.xls“)

xlApp.Quit

Nun funktioniert dies aber mit älteren Office Versionen nicht,
da bekommt man immer einen Fehler, der das ganze Programm
beendet.

Schade…!
Du magst uns den Fehler nich nennen…?

Hast Du vielleicht ‚harte‘ Verweise gesetzt, die in den älteren Versionen nicht aufgeläst werden (können)?

Kann mir bitte jemand weiterhelfen, wie ich dies auch mit
älteren Office Versionen realisieren kann?

Prinzipiell solltest Du in der ältesten Version entwiickeln in der die Anwendung letztlich auch laufen soll…

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#3

So hallo nochmal. Danke für die Mühe, aber ich habe das Problem gelöst.
Es fehlte nur noch der Verweis auf die entsprechende(n) Excel Libraries.
Nachdem ich diese Verweise eingebunden habe, hat alles funktioniert.

Danke nochmal

Gruß

Boris