Newsgroup: it.comp.lang.visual-basic
Titolo: esportazione tabelle access vs excel in vb6

Salve a tutti,
in un mio programma ho necessità di esportare il contenuto di un recordset.
Attualmente lo faccio scrivendo un file .txt con i campi separati da un tab 
facilmente trasformabile poi in un file excel.
Come si può generare direttamente un file excel?
Grazie.
Fausto

 ha scritto nel messaggio
news:fm6dcn$1rbs$1...@newsreader1.mclink.it...

Aggiungi il riferimento alla libreria di Excel:
- Microsoft Excel 10.0 Object Library
Private Sub Form_Load()
    Dim exl As Excel.Application
    Dim eWB As New Excel.Workbook
    Dim eWS As New Excel.Worksheet
    'Apre l'Applicazione
   Set exl = New Excel.Application
    'Crea un Nuovo Documento
   Set eWorkBook = exl.Workbooks.Add
    'Aggiunge un Foglio di Lavoro
   Set eWorkSheet = eWorkBook.Worksheets.Add
    'Dai un Nome al foglio di lavoro (Opzionale)
   eWorkSheet.Name = "Foglio N° 1"
    'Riempi le celle...
   eWorkSheet.Cells(1, i) = "Pippo"
   eWorkSheet.Range("A1", "Z1").Font.Bold = True
   eWorkSheet.Range("A1", "Z1").Font.Underline = True
    'Salva il Documento
   eWorkBook.SaveAs txtEXL.Text
End Sub
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

Oooops... Modificando il codice al volo ho commesso un paio di errori...
Aggiungi il riferimento alla libreria di Excel:
- Microsoft Excel 10.0 Object Library
Private Sub Form_Load()
    Dim exl As Excel.Application
    Dim eWB As New Excel.Workbook
    Dim eWS As New Excel.Worksheet
    'Apre l'Applicazione
   Set exl = New Excel.Application
    'Crea un Nuovo Documento
   Set eWB = exl.Workbooks.Add
    'Aggiunge un Foglio di Lavoro
   Set eWS = eWB.Worksheets.Add
    'Dai un Nome al foglio di lavoro (Opzionale)
   eWS.Name = "Foglio N° 1"
    'Riempi le celle...
   eWS.Cells(1, i) = "Pippo"
   eWS.Range("A1", "Z1").Font.Bold = True
   eWS.Range("A1", "Z1").Font.Underline = True
    'Salva il Documento
   eWB.SaveAs App.Path & "\MioDoc.xls" (<-- Qui inserisci il nome del
documento)


 ha scritto nel messaggio 
news:4786ce94$0$37196$4faf...@reader3.news.tin.it...


 ha scritto nel messaggio 
news:4786ce94$0$37196$4faf...@reader3.news.tin.it...


    Set exl = New Excel.Application
Facciamo che non aggiungi nessun riferimento, dimensioni gli oggetti 
come Object, e li istanzi col CreateObject...
Così, giusto per funzionare con qualunque versione di excel...
Alberto
-- 
Konrad Adenauer: All'intelligenza Dio ha posto limiti, alla stupidità 
no.

 ha scritto nel messaggio 
news:fm6dcn$1rbs$1...@newsreader1.mclink.it...

se il database è Access basta fare una query.
esempio
----
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\Dati\NomeDb.Mdb;"
cn.Open
cn.Execute "SELECT * " & _
       "INTO [Excel 8.0;Database=C:\Dati\NomeFileExcel.xls;].[Foglio1] " & _
       "FROM NomeTabella "
cn.Close
Set cn = Nothing
----
ps. prima di eseguirla cancella il file di Excel se già esistente.
Ciao
Giorgio 

 Cosě, giusto per funzionare con qualunque versione di excel...
Anche... ma devi conoscere bene l'oggetto che intendi usare,
se invece lo aggiungi come riferimento
ti puň essere d'aiuto per esempio il Visualizzatore Oggetti,
e non solo...
Si puň poi in un secondo tempo,
usare il tuo metodo ed eliminare il riferimento.


 ha scritto nel
messaggio news:4787ea98$0$16036$5fc...@news.tiscali.it...


 ha scritto nel messaggio 
news:4786cd64$0$37203$4faf...@reader3.news.tin.it...
