.:thomas:.: Über ASP ein Access-DB nach Excel exportieren

Beitrag lesen

Stimmt, aber da komme ich leider nicht ran. Der Tip von Stefan funktioniert, nur wie kann ich diese Datei anschließend gleich öffnen?
und vielleicht noch etwas formatieren...?

Danke.

PS. Ich hänge mal den Sourcecode mit dran.

<%
' --- Zusammenstellen der Datenbankverbindungsinformationen
Dim strProvider
    strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDatabase
    strDatabase = "DATA SOURCE=" & Server.MapPath ("../") & "/test.mdb;"
Dim strComplete
    strComplete = strProvider & strDatabase

' --- Öffnen der Datenbankverbindung
Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.open strComplete

Tag = day(Date)
Monat = month(Date)
Jahr = year(Date)
Sekunden = Second(Time)
Minuten = Minute(Time)
Stunden = hour(Time)

datum = Tag&"_"&Monat&"_"&Jahr&"__"&Stunden&"_"&Minuten&"_"&Sekunden

' --- Angeben des Dateinamens des Excelsheets inkl. Pfadangabe.
Dim xls_path
    xls_path = Server.MapPath("../") & "\test_"&datum&".xls"

' --- Es wird ein Export aller Daten aus der Access Tabelle "tblTest"
' --- in das Datenblatt "tabImport" der Exceldatei durchgeführt.
' --- Die doppelten und 3-fachen Anführungszeichen werden benötigt.
' --- Der fertige SQL-String sieht dann folgendermassen aus:
' --- SELECT * INTO [tabImport] IN "C:\inetpub\wwwroot\xls_test.xls" "EXCEL 5.0;" FROM tblTest
' --- Das sieht zwar etwas konfus aus, funktioniert aber einwandfrei.
    SQL = "SELECT * INTO [Tabelle1] IN """ & xls_path & """ ""EXCEL 5.0;"" FROM test_anlagenbuch"

' --- Ausführen des SQL-Statements
    objConn.Execute SQL

' --- Schliessen und terminieren der Datenbankverbindung.
    objConn.Close
Set objConn = Nothing
%>