CopyFromRecordset - da Access a Excel

martedì 28 dicembre 2010 - 11.58

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags Access (.mdb) | Office XP | VBScript

CorriCorrado Profilo | Junior Member

86 messaggi | Data Invio: mar 28 dic 2010 - 11:58

Ciao a tutti,
sto usando questo Metodo per creare file di excel direttamente dal recordset della maschera.
Unico "problemino" è che giustamente mi esporta solo il recordset, ma non il nome campo. Usando il metodo OutputTo, invece, esportando tutta la query mi inserisce il nome del campo, ma esporta su una versione di excel (5.0 se non sbaglio) che di fatto non riesco a manipolare tramite VBA di access.

Qualcuno di voi ha un metodo valido?

CODICE DI RIFERIMENTO:

Dim oApp, oBook, oSheet As Object
Dim rst As Recordset

Set oApp = CreateObject("Excel.Application")
Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
oApp.Visible = True

Set rst = Me.RecordsetClone

With oSheet
.Range("A4").CopyFromRecordset rst
end with

Grazie mille
Corrado

freeteo Profilo | Guru

6.542 messaggi | Data Invio: ven 31 dic 2010 - 14:31

Ciao,
potresti usare anche oledb per andare a fare query sql dentro un foglio excel, ti basta impostare questa connectionstring:
http://www.connectionstrings.com/excel

chiaramente giri per le righe del tuo recordset per scrivere etc...

Ciao.

Matteo Raumer
[MCAD .net, MVP Visual C#]
http://blogs.dotnethell.it/freeteo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !