Condividi:        

Import tabella Access in foglio Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Import tabella Access in foglio Excel

Postdi oz85 » 04/10/18 11:03

Ciao a tutti ragazzi!

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
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35

Sponsor
 

Re: Import tabella Access in foglio Excel

Postdi alfrimpa » 04/10/18 12:54

Nell’editor di VBA in Strumenti, Riferimenti hai attivato la libreria “Microsoft ActiveX Data Objects 6.1”?
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Import tabella Access in foglio Excel

Postdi oz85 » 04/10/18 14:10

alfrimpa ha scritto:Nell’editor di VBA in Strumenti, Riferimenti hai attivato la libreria “Microsoft ActiveX Data Objects 6.1”?


Grazie per l'aiuto! sei stato gentilissimo e mi hai aiutato a risolvere. Non credevo che dovessi attivare questo oggetto. In ogni caso sai se occorre attivarlo per tutti gli utenti che utilizzeranno il file di mia creazione?

Infine un ultima domanda, nel codice non sono riuscito a far funzionare la parte sottostante dove ho commentato "cosa sto sbagliando" ed ho invece risolto, con l'altro pezzo di codice seguente. Potresti darmi delucidazioni??? Grazie ancora!

' cosa sto sbagliando????
'Sheet1.Range(“A1”).CopyFromRecordset rs
'Sheets.Range("A1").CopyFromRecordset rs

'qui ho risolto
Sheets("Import").Select
Range("A17").CopyFromRecordset rs




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

' cosa sto sbagliando????
'Sheet1.Range(“A1”).CopyFromRecordset rs
'Sheets.Range("A1").CopyFromRecordset rs

'qui ho risolto
Sheets("Import").Select
Range("A17").CopyFromRecordset rs


rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
'End Sub

End Sub
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35

Re: Import tabella Access in foglio Excel

Postdi alfrimpa » 04/10/18 20:51

Mi spiace ma non so aiutarti perchè non ho dimestichezza con il VBA degli oggetti ADO.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Import tabella Access in foglio Excel

Postdi oz85 » 05/10/18 19:19

alfrimpa ha scritto:Mi spiace ma non so aiutarti perchè non ho dimestichezza con il VBA degli oggetti ADO.


Grazie ugualmente sei stato davvero gentilissimo!
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35


Torna a Applicazioni Office Windows


Topic correlati a "Import tabella Access in foglio Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 35 ospiti