Abfrage von Access nach Excel importieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Abfrage von Access nach Excel importieren
von: Frederik Fuhrmann
Geschrieben am: 14.06.2002 - 08:54:41

Hallo!

Kann mir jemand sagen, wie ich eine Access Abfrage per Makro nach Excel transportiere?


Danke
Frederik


nach oben   nach unten

Re: Abfrage von Access nach Excel importieren
von: Heinz
Geschrieben am: 14.06.2002 - 12:43:57

Hallo Frederik,

Schreibe in Access ein Makro mit der gewünschten Abfrage, lasse diese Abfrage nach Excel exportieren und dort speichern.
enke aber bitte daran, dass die Exporttabelle immer erneuert. Deshalb müssen die Exportdaten in eine andere Mappe übernommen werden.

Makro in Access:

Öffne Abfage (werte eingeben)
Ausgabe in (Werte eingeben)

Ich hoffe, das hilft dir weiter

Gruß Heinz

nach oben   nach unten

Re: Abfrage von Access nach Excel importieren
von: Frederik
Geschrieben am: 14.06.2002 - 12:46:30

Hallo Heinz!

Ähm, ich habe das umgekehrt gemeint!
Von Excel aus die Daten einer Abfrage holen!


Frederik


nach oben   nach unten

Re: Abfrage von Access nach Excel importieren
von: Heinz
Geschrieben am: 14.06.2002 - 15:57:44

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Abfrage von Access nach Excel importieren"