Re: Abfrage von Access nach Excel importieren
14.06.2002 15:57:44
Heinz
Hallo Frederik,über DATEN, EXTERNE DATEN IMPORTIEREN wird der Assistent zum Import aufgerufen. Schalte einfach den Makrorekorder ein und zeichne die Tastenanschlage auf.
Folgendes Makro habe ich aufzeichnen lassen:
Sub Datenimport()
'
' Datenimport Makro
' Makro am 14.06.2002 von HUlm aufgezeichnet
'
'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access 97-Datenbank;DBQ=E:\Eigene Dateien\Aufträge.mdb;DefaultDir=E:\Eigene Dateien;DriverId=25;FIL=MS Access;MaxBufferS" _
), Array("ize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Aufträge.AuftragNr, Aufträge.Auftrag, Aufträge.FirmenNr, Aufträge.Festpreis, Aufträge.Thema, Aufträge.RechnungNr, Aufträge.Konto, Aufträge.ReDatum, Aufträge.Eingang, Aufträge.Zahlungsbetrag, Au" _
, _
"fträge.Unterrichtsmaterial, Aufträge.Anzahl, Aufträge.km" & Chr(13) & "" & Chr(10) & "FROM `E:\Eigene Dateien\Aufträge`.Aufträge Aufträge" _
)
.Name = "Abfrage von MS Access 97-Datenbank_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ich hoffe dass du damit weiterkommst.
Gruß Heinz