Office: SQL-Tabelle nach Excel exportieren

Hallo zusammen,

ich muss in einer Access-Anwendung Daten aus einer SQL-Datenbank mit ADO (SQLOLEDB.1) in eine neue Excel-Datei exportieren.

Der SQL-Teil funktioniert problemlos in der kompletten Anwendung.

ich habe es mit einer ADO-Verbindung zu Excel probiert, komme jedoch einfach nicht weiter und finde auch keine weiteren Hinweise im Netz.

hat einer von Euch schon Erfahrung damit?

Hier mal mein stark vereinfachter Code
=========================
sub test

Dim exCn As New ADODB.Connection
Dim exRs As New ADODB.Recordset
Dim sqlRs As New ADODB.Recordset
Dim i As Integer

Set exCn = New ADODB.Connection

exCn.Provider = "Microsoft.Jet.OLEDB.4.0"
exCn.Properties("Data Source") = "c:\temp\test.xls"
exCn.Properties("Extended Properties") = "Excel 8.0" ' geht auch .xlsx?
exCn.Properties("Persist Security Info") = False
exCn.Open ' öffnet leider nur eine bestehende xls

zwSql = "select * from tjn"
Call SqlSelect(sqlRs, "SELECT * FROM sqltable WHERE feld1 = "otto") ' fertige Routine liefert SQL-Ergebnis zurück (funktioniert!)

Do While Not sqlRs.EOF
If exRs.State = adStateOpen Then exRst.Close

With exRs
.ActiveConnection = exCn
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM [Tabelle1$A1:B1]"
.Open
.AddNew "Feld1", "Feld2" '

:)

 

Daten schreiben in ein Excelsheet per SQL ist eher problematisch und so auch wenig angewandt.

Daher: Suche oder erstelle eine Excelinstanz (Automation), erstelle eine neue Mappe und kopiere das vorhandene Recordset (wenn man SQL-Ergebnis darunter verstehen kann) per Excelmethode CopyFromRecordset an die gewünschte Stelle eines vorhandenen gewünschten Arbeitsblattes.

 

Wenn es Dir "nur" um eine komplette Tabelle geht, starte in Excel den Assistenten (Register Daten) "Aus anderen Quellen...". Dort SQL auswählen....

 

Schau mal hier:

http://www.nirschl-coaching-entwickl...ng-herstellen/

 

Danke für Eure Antworten:

@ebs17: ich werde es mal probieren, obwohl mir die SQL-Methode besser gefällt, da es reibungsloser in den Ablauf passen würde *frown.gif*

@fraeser: es werden Daten aus der Access-Anwendung anhand eines Filters selektiert, diese müssen exportiert werden. Eine Excel-Instanz ist problematisch, da es sich um mehrere 10.000 Datensätze handeln kann. Dies läuft mit einzelnen Datenfeldern kopieren einfach viel zu lange.

@all: hat noch jemand eine Idee zur SQL-Methode nach Excel?

 

Naja, das sequenzielle Übertragen von Einzelwerten wie im letzten Codeabschnitt versucht hat mit SQL nichts mehr zu tun.

Du könntest ...
- in Access eine Tabelle oder gespeicherte Abfrage aus Deinem SQL-Ergebnis erzeugen und dann per TransferSpreadsheet exportieren.
- eine Anfügeabfrage probieren, sofern Du auf eine SQL-Anweisung als unmittelbare Quelle zurückgreifen kannst. Dabei wäre zur Ausführung DAO wohl geeigneter, weil man da einfach mehrere verschiedene Datenbanken verknüpfen kann.
Ich glaube, Anfügeabfrage ging noch, Aktualisierung aber nicht.

Ein Recordset, was Du augenscheinlich verwendest, kann man (einzelwertweise oder im Ganzen wie vorgeschlagen) nur an Excelobjekte (Zellen, Arbeitsblatt), also letztlich an eine Arbeitsmappe innerhalb einer nutzbaren Excelinstanz übergeben. Wenn Du den von fraeser vorgeschlagenen Weg aus Access heraus steuern willst, würde man für die Ausführung per VBA gleichermaßen eine Referenz auf die Arbeitsmappe benötigen.

 

\@ebs17

bin leider erst heute wieder dazu gekommen ...

danke, hast Recht, das wäre wieder SQL zu Fuß gewesen :-)

die CopyFromRecordset-Methode hat wunderbar geklappt und ist eigentlich auch recht elegant und vor allem SCHNELL