[VB6] Compilare tabella Excel e salvare il lavoro

[angelicab]

ciao
come posso fare per passare dei dati da Vb6 ad un file excel?

[sosan1]

Aggiungi un riferimento alle librerie di Excel da vb6 e poi dichiari le variabili che ti servono per interagire con gli oggetti di Excel (file, foglio, cella, range...) cosi puoi scrivere all'interno delle celle i dati che ti occorrono

Dim MyExcel As Excel.Application
'variabile oggetto che contiene il riferimento alla cartella di lavoro di Excel
Dim MyBook As Workbook
'variabile oggetto che contiene il riferimento al foglio di lavoro di Excel
Dim FoglioExcel As Worksheet
'variabile oggetto che contiene il riferimento alle celle del foglio di lavoro di Excel
Dim CellaFoglioExcel As Range


'imposta Excel
Set MyExcel = New Excel.Application
MyExcel.Application.WindowState = xlMinimized
MyExcel.Visible = True
'imposta ed apre il file excel
Set MyBook = MyExcel.Workbooks.Open(App.Path & "\miofile.xls")

'imposta il foglio di lavoro del file excel
Set FoglioExcel = MyBook.Worksheets(1)

'imposta la cella
Set CellaFoglioExcel = FoglioExcel.Cells(1, 4) 'prima riga quarta colonna

[angelicab]

grazie!
e per poi salvare... stampare e chiudere il file excel?

[sosan1]

myexcel.Activeworkbook.printout

myexcel.ActiveWorkbook.Close True
myexcel.Quit
Set myexcel = Nothing