Scrivo dopo tanto tempo. Sto lavorando sulla possibilità di caricare una tabella presente su un database Access in Excel come un semplice copia & incolla valori all'interno di un foglio dedicato.
Ho cercato ed adattato il codice sotto, ma all'avvio ho sempre l'errore: "Tipo definito dall'utente non definito". Oltre che comico come messaggio, non riesco davvero a capire cosa manca o sbaglio ad inserire.
Potete darmi una mano??? Grazie!
PS: La sola tabella che devo importare si chiama "Connettori"
https://mega.nz/#F!GJMXxYqD
- Codice: Seleziona tutto
Sub Import_AccessData()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sQRY As String
Dim strFilePath As String
strFilePath = Application.GetOpenFilename("Excel Files (*.mdb*), *.xls*")
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strFilePath & ";"
sQRY = "SELECT * FROM [Connettori]"
rs.CursorLocation = adUseClient
rs.Open sQRY, cnn, adOpenStatic, adLockReadOnly
Application.ScreenUpdating = False
Sheet1.Range(“A1”).CopyFromRecordset rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
End Sub