CopyFromRecordset - da Access a Excel

martedì 28 dicembre 2010 - 11.58
Tag Elenco Tags  Access (.mdb)  |  Office XP  |  VBScript

CorriCorrado Profilo | Junior Member

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

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
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 !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5