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

Ansicht des Beitrags:
Von:
Mase		 Datum:
12.05.2023 10:34:27		 Views:
145		 Rating:
     
Antwort:
  Ja
Thema:
ADO Daten importieren

Halten wir es mal einfacher:

 

In Deinem Fall sind einige Objektvariablen nicht vonnöten.

Hier etwas übersichtlicher (und für Dich ausformuliert):

 

Private Sub getRecordsets()

    '*** Variablendeklaration
    Dim adRS                As Object
    Dim sSQL                As String
    Dim sConnectionString   As String
    
    
    '*** Variablendefinition
    Set adRS = CreateObject("ADODB.Recordset")
    
    sSQL = "SELECT * FROM `Auswertung Summe$`"
    
    sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                        & "Data Source=" & ThisWorkbook.FullName _
                        & ";Extended Properties=""Excel 12.0 Xml"""



    '//ab hier Zugriff auf DIESE Arbeitsmappe
    With adRS
        .Open sSQL, sConnectionString
        
            '// ToDo => Dein Code
        
        .Close
    End With
            

set adRS = Nothing            
            
End Sub

 

Was für Deinen Fall noch angepasst werden müsste, ist Dir ja bereits aufgefallen - die Stelle: ThisWorkbook.FullName

Da kommt der Pfad inkl. Dateinamen rein. Wie Du das bewerkstelligst, hängt vom Gesamtkonzept ab.

Grundsätzlich ließe sich der Code auch neutraler gestalten oder der einfacheren Wiederverwendbarkeit dienend in eine Klasse auslagern.

 

 

 

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
12.05.2023 09:06:57 Thomas
NotSolved
Blau ADO Daten importieren
 12.05.2023 10:34:27 Mase
NotSolved