ADO Daten importieren

Hallo zusammen

leider bin ich nicht so fit in VBA Programmierung, ich habe folgendes Problem- ich möchte aus mehreren Dateien (für jedes Monat eine) Daten in eine Auswertung importieren ohne diese zu öffnen.

Hierzu habe ich ein Programm (Modul) das auch einwandfrei funktioniert - allerdings brauch ich für jede Monatsdatei ein eingenes Modul weil sich der Namen der Datei aus der ich importiere und der Platz wohin die Daten sollen jedes Monat ändert. Deshalb habe ich das versucht über Variabe zu lösen.

Das mit dem Dateinamen funktioniert schon mal allerdings sobald ich statt der Zeile Tabelle1.Range("A14").CopyFromRecordset rs die Zeile mit der Variablen sziel.CopyFromRecordset rs aktiviere bekomme ich eine Fehlermeldung. Wenn die sziel-Zeile aber deaktiviert ist bekomme ich im Direktfenster folgendes ausgegeben Tabelle1.Range("A14").

Kann mir jemand helfen wo hier mein Fehler liegt - Vielen Dank schon mal

Sub ADOK01a()
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
Dim spfad As String, sziel As String
spfad = Tabelle5.Range("C19").Value
sziel = Tabelle5.Range("C22").Value
'Connection herstellen
'Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=ielpfadZ;HDR=Yes';"
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & spfad
'Query definieren und ausführen
Query = "SELECT * FROM [Auswertung Summe$]"
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Debug.Print sziel
'Tabelle1.Range("A14").CopyFromRecordset rs
sziel.CopyFromRecordset rs
rs.Close
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim A Dim Z As Range A = Split(Worksheets("Tabelle5").Range("C22"), "!") Set Z = Worksheets(A(0)).Range(A(1)) 'Prüfung: MsgBox "Teil1: " & A(0) & vbCr _ & "Teil2: " & A(1) & vbCr _ & "ZielWs: " & Z.Worksheet.Name & vbCr _ & "ZielAdresse: " & Z.Address End Sub

Sub ADOK01a() 'Variablen deklarieren Dim Connection As New ADODB.Connection Dim Query As String Dim rs As New ADODB.Recordset Dim arr As Variant Dim spfad As String, sziel As String spfad = Tabelle5.Range("C19").Value sziel = Tabelle5.Range("C22").Value 'Connection herstellen 'Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=ielpfadZ;HDR=Yes';" Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & spfad 'Query definieren und ausführen Query = "SELECT * FROM [Auswertung Summe$]" rs.Open Query, Connection 'Daten ins Tabellenblatt laden Debug.Print sziel Dim A Dim rngZiel as Range A = Split(sziel, "!") set rngZiel = Worksheets(A(0)).Range(A(1)) rngZiel.CopyFromRecordset rs rs.Close End Sub

Hallo Thomas,

platziere in dem Code den Cursor auf "Split(" und drücke Strg+F1. So gelangst Du auf die Onlinehilfe der Function Split. So kommst Du immer weiter.

Split teilt eine String nach dem gegebenen Trenner (in dem Fall "!") und erzeugt damit einen Array. Wir hatten mehrfach darauf hingewiesen, dass die Definition deiner Zielzelle in C22 nach dem Muster Tabelle1!A1 eingetragen werden sollte. So erzeugt der Split eine Trennung in einer 2-zelligen Array: was vor und was nach der Ausrufenzeichen steht.
Da die Index immer mit 0 anfangen, sind diese Array-Element mit den Index 0 und 1 erreichbar: A(0) = "Tabelle1", A(1)="A1".
Hast Du aber keine Blattname aber nur die Zelleadresse eingetragen, so fehlt einen "!". Der Split erzeugt dann nur einen einzelligen Array und nur A(0) steht zur Verfügung. Der Versuch A(1) zu lesen wird mit einem "index außerhalb des gültigen Bereichs" quitiert.

Es könnte auch sein, dass Du dich vertippt hast und (z.b.) "Tabele1" eingetragen. Dann sucht den Code ein Blatt mit dem Namen "Tabele1". Wenn diese nicht gibt, auch ausserhalb der liste der verfügbaren Blätter.

VG
Yal

Sub ADOK01c() 'Variablen deklarieren Dim Connection As New ADODB.Connection Dim Query As String Dim rs As New ADODB.Recordset Dim arr As Variant Dim spfad As String, sziel As String spfad = Tabelle5.Range("C19").Value sziel = Tabelle5.Range("C22").Value 'sziel = Tabelle1.Range("A1").Value 'Connection herstellen 'Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=ielpfadZ;HDR=Yes';" Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & spfad 'Query definieren und ausführen Query = "SELECT * FROM [Auswertung Summe$]" rs.Open Query, Connection 'Daten ins Tabellenblatt laden Debug.Print sziel Dim A Dim rngZiel As Range A = Split(sziel, "!") Debug.Print A(0), A(1) Set rngZiel = Worksheets(A(0)).Range(A(1)) Debug.Print rngZiel rngZiel.CopyFromRecordset rs rs.Close End Sub

Sub ADOK01c() Dim Connection As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rngZiel As Range Const cQuery = "SELECT * FROM [Auswertung Summe$]" With Worksheets("Tabelle5") 'Gültigkeit prüfen Set rngZiel = Range_ermitteln(.Range("C22").Value) If rngZiel Is Nothing Then MsgBox "Adresse """ & .Range("C22").Value & """ lässt sich nicht in einer gültigen Adresse umwandeln." Exit Sub End If 'Daten abfragen und zurückgeben 'Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=ielpfadZ;HDR=Yes';" Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & .Range("C19").Value rs.Open cQuery, Connection rngZiel.CopyFromRecordset rs 'Daten ins Tabellenblatt laden rs.Close End With End Sub Private Function Range_ermitteln(ByVal ZelleAdresse As String) As Range Dim A, W On Error Resume Next A = Split(ZelleAdresse, "!") Set W = Worksheets(Trim(A(0))) If W Is Nothing Then Exit Function Set Range_ermitteln = W.Range(Trim(A(1))) End Function

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ADO Daten importieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread