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.
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
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