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