Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage von Access nach Excel importieren

Forumthread: Abfrage von Access nach Excel importieren

Abfrage von Access nach Excel importieren
14.06.2002 08:54:41
Frederik Fuhrmann
Hallo!

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


Danke
Frederik

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Abfrage von Access nach Excel importieren
14.06.2002 12:43:57
Heinz
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

Anzeige
Re: Abfrage von Access nach Excel importieren
14.06.2002 12:46:30
Frederik
Hallo Heinz!

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


Frederik

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

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige