[VB6] Aprire un file di Excel e salvare dati

[andgio76]

Ciao a tutti!!
io volevo salvare dei dati che sono stati elaborati in visual basic 6 in excel sapete come posso aprire il file e poi successivamente scrivere nelle varie celle?
io solitamente apro file di testo con l'istruzione open per excel cosa devo fare?
ciao e grazie

[Boolean]

Devi crearti un oggetto Applicazione Excel all'interno della tua applicazione.

una volta creato l'oggetto hai a disposizione tutti i metodi e le proprietà che avresti a disposizione in Excel vero e proprio.

prima di tutto devi referenziale la libreria "Microsoft Excel 10.0 Object Library"

e poi:

Dim xlApp As New Excel.Application
Dim xlBook as Excel.Workbook
Dim xlSheet as Excel.Worksheet

Set xlBook=xlApp.Open "C:\TuoFileExcel.xls"
Set xlSheet = XlBook.Worksheets("TuoFoglio")

A= xlSheet.Range("A1").Value
xlSheet.Range("B4").Value= A*5

xlBook.Close(True) ' False per non salvare le modifiche
xlApp.Quit

set xlSheet = Nothing
set xlBook = Nothing
set xlApp = Nothing

in questo esempio, apri un workbook excel che si chiama "TuoFileExcel.xls". prendi il valore della cella A1, lo memorizzi in una variabile e lo stesso valore moltiplicato per 5 lo metti nella cella "B4".
poi chiudi il workbook, chiudi excel, e annienti gli oggetti.

occhio agli errorini, il codice l'ho scritto direttamente qui...

Boolean

[polog40]

Ciao, premettendo che io non dispongo della libreria "Microsoft Excel 10.0 Object Library" ma di "Microsoft Excel 11.0 Object Library" nei riferimenti di vb6

mi trovo con il problema che se uso il codice indicato:

Dim xlApp As New Excel.Application
Dim xlBook as Excel.Workbook
Dim xlSheet as Excel.Worksheet

Set xlBook=xlApp.Open "C:\TuoFileExcel.xls"
Set xlSheet = XlBook.Worksheets("TuoFoglio")

A= xlSheet.Range("A1").Value
xlSheet.Range("B4").Value= A*5

xlBook.Close(True) ' False per non salvare le modifiche
xlApp.Quit

set xlSheet = Nothing
set xlBook = Nothing
set xlApp = Nothing

l'oggetto xlApp non ha un metodo Open e quindi non sò come fare ad aprire il file excel!!

please, ho un enorme bisogno di aprire un file excel da vb6, qualc'uno può aiutarmi????

Grazie

[Boolean]

l'avevo detto di prestare attenzione agli errori, non avevo il VB sottomano e l'ho scritto direttamente nel post...

dovrebbe essere xlApp.Workbooks.Open ...

Boolean

[polog40]

ok, grazie mille, ho provato così e ora funziona, sei un grande!!!!!

grazie ancora