Thema Datum  Von Nutzer Rating
Antwort
14.11.2022 00:21:24 Marcus
NotSolved
14.11.2022 06:55:23 ralf_b
NotSolved
Rot Tabellen aus xlsx
14.11.2022 10:31:35 Marcus
NotSolved
14.11.2022 07:10:34 Mase
NotSolved

Ansicht des Beitrags:
Von:
Marcus
Datum:
14.11.2022 10:31:35
Views:
110
Rating: Antwort:
  Ja
Thema:
Tabellen aus xlsx

Das mit dem Hochkomma ging leider nicht, hatte ich schon probiert.

Hab das jetzt mal umgestellt.

Warum bekomme ich jetzt einenADODB Variable nicht definiert Fehler?

Option Explicit
Sub run_sql_in_excel()

'variable declaration
Dim cn As Object 'Connection
Dim rs As Object 'RecordSet
Dim sql As String
Dim start_row As Integer: start_row = 1
Dim start_col As Integer: start_col = 1
Dim iCol As Integer

'Connect to the Data Source
Set cn = CreateObject(“ADODB.Connecion”)
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & "C:\Users\Marcus\Desktop" & "\" & _
"Kopie von Farbübergangserfassung nach Jahren(107).xlsx" & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
.Open
End With

'write SQL
sql = "Select * from [Übergangserfassung 2022$]"

'run SQL
Set rs = cn.Execute(sql) 'delete data from previous runs in worksheet "Results"
worksheets("Tabelle6").Cells(start_row, start_col).CurrentRegion.Clear


'insert header row worksheet "Results" (only if HDR=YES)
For iCols = 0 To rs.Fields.Count - 1
worksheets("Tabelle 6").Cells(start_row, start_col + iCols).Value = _
rs.Fields(iCols).Name
Next

'paste result of sql to worksheet "Results"
worksheets("Tabelle6").Cells(start_row + 1, start_col).CopyFromRecordset rs

'clean up and free memory
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
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
14.11.2022 00:21:24 Marcus
NotSolved
14.11.2022 06:55:23 ralf_b
NotSolved
Rot Tabellen aus xlsx
14.11.2022 10:31:35 Marcus
NotSolved
14.11.2022 07:10:34 Mase
NotSolved