Thema Datum  Von Nutzer Rating
Antwort
Rot ADO Daten importieren
12.05.2023 09:06:57 Thomas
NotSolved
12.05.2023 10:34:27 Mase
NotSolved

Ansicht des Beitrags:
Von:
Thomas
Datum:
12.05.2023 09:06:57
Views:
309
Rating: Antwort:
  Ja
Thema:
ADO Daten importieren

Hallo zusammen

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

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 funktionrt 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
 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ADO Daten importieren
12.05.2023 09:06:57 Thomas
NotSolved
12.05.2023 10:34:27 Mase
NotSolved