Grazie anticipato a quanti contribuiranno a risolvere il mio problema.
Ho la necessità di programmare con VBA un file excel per connetterlo s Access.
Devo creare una mini applicazione utilizzando le form di Ecxel VBA e Access per un'Associazione non profit di Rovigo.
Ho installato Microsoft Office LTSC Professional Plus 2021
La versione di excel e access è: Versione 2108(Build 14334.20296)
Per eseguire la connessione utilizzo:
Function GM_ConnMDB()
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim i As Integer
PathUser = "C:\CorsoExcel\EcogestMarco\Ecogest\Madella.accdb;"
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathUser & "Persist Security Info=False;"
MsgBox "Str di conn: " & strConn
' Specifica la query per recuperare i dati
strSQL = "SELECT * FROM utenti;"
' Crea e apri la connessione
Set oConn = New ADODB.Connection
oConn.Open strConn
' Crea e apri il recordset
Set rs = New ADODB.Recordset
rs.Open strSQL, oConn
' Inserisci i dati nel foglio di lavoro
' Inizia dalla cella A1 del foglio attivo
If rs.RecordCount > 0 Then
MsgBox "trovato utenti: " & rs.RecordCount
' Copia le intestazioni delle colonne
For i = 0 To rs.Fields.Count - 1
Sheets(2).Cells(1, i + 1).Value = rs.Fields(i).Name
MsgBox "Loop per editare gli utenti: -- i= " & i & " -- Valore da rs: " & rs.Fields(i).Name
Next i
' Copia i dati
Sheets(2).Cells(2, 1).CopyFromRecordset rs
End If
MsgBox "Dati importati con successo -- Connessione: " & strConn
End Function
la parte evidenziata in giallo non viene eseguita e quindi credo nnon sia stata eseguita correttamente la connessione.
i riferimenti sono evicenziati nello screnshot allegato
Potete aiutarmi ?
Grazie
Moreno