PProvider Microsoft.ACE.OLEDB.12.0;

Hallo Leute
Ich möchte mit Sql eine geschlossene Arbeitsmapp ansprechen.
Das Programm schnauzt mich bei der Zeile cn.Open ständig mit dieser Fehlemeldung an: Die Methode 'Open' für das Objekt '_Connection' ist fehlgeschlagen
Der fehler liegt meiner Meinung nach im ConnectionsString, währe froh wen sich den einmal ansehen würde


Option Explicit
' Der Pfad zur Datei wurde abgeändert, da er ohne Relevanz ist
Private Const dbPath As String = "C:\DB.xlsm"
Private cn As New ADODB.Connection
Private cmd As New ADODB.Command
Private rs As New ADODB.Recordset
Private strCon As String
Public Sub ImportAddress()
strCon =  "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & dbPath & "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"";"
ADDRESS.Cells.ClearContents
On Error GoTo ERR_CONNECTECTION
cn.Open strCon
rs.ActiveConnection = strCon
'    rs.Source = "SELECT * FROM [ADDRESS$]"
rs.Open "SELECT * FROM [ADDRESS$]"
ADDRESS.Range("A1").CopyFromRecordset rs
rs.Close
cn.Close
Exit Sub
ERR_CONNECTECTION:
Debug.Print Err.Description
'Fehlermesdung; Die Methode 'Open' für das Objekt '_Connection' ist fehlgeschlagen
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich hab deine 2 Dateien nachgebaut - bei mir beide gespeichert in D:\
Mappe1.xlsm enthält deinen Code und Verweis auf MS ActiveX Data Objects 6.0 Library
DB.xlsm enthält ein Tabellenblatt, Name "ADDRESS"
In ADDRESS befindet sich eine intelligente Tabelle, Name auch "ADDRESS"
intell. Tab. enthält einen Datensatz
DB.xlsm ist geschlossen
Mappe1.xlsm ist geöffnet
Makro wird gestartet
nach Makroende enthält Tabelle in Mappe1.xlsm den einen DS aus geschlossener DB.xlsm
Grundsätzlich funktioniert also dein Makro.
Der Fehler ist irgdwoanders in deiner Datei.
hier mein Nachbau deiner Dateien
Mappe1.xlsm https://www.herber.de/bbs/user/156739.xlsm
DB.xlsm https://www.herber.de/bbs/user/156740.xlsm
Konnte ich helfen?
Ciao
Thorsten

Sub t() Dim cn As Object, rs As Object Const scn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Pfad\Mappe1.xlsm'" & _ ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" Set cn = CreateObject("ADODB.Connection") cn.Open scn With Worksheets("Tabelle1") Set rs = cn.Execute("SELECT * FROM [Tabelle1$]") .Range("A1").CopyFromRecordset rs End With Set cn = Nothing Set rs = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

PProvider Microsoft.ACE.OLEDB.12.0;

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread