[VB6] Gestire due cartelle di Excel contemporaneamente

[francesco_test]

Salve,
sto sviluppando una applicazione in VB6 che si interfaccia con Excel.
In questa applicazione devo permettere il passaggio di dati da due cartelle distinte che sono contemporaneamente aperte nella mia applicazione in VB6.
Come posso fare ad aprire due cartelle contemporaneamente in VB6 senza problemi?
Grazie.
Francesco.

[Boolean]

devi innanzi tutto referenziare la libreria:

Microsoft Excel 10.0 Object Library (o superiore)

poi istanzi delle variabili che si riferiscano all'oggetto Applicazione Excel, alle varie cartelle di lavoro aperte e ai fogli da cui prendi i dati...

una volta fatto questo, la strada è in discesa.

in pratica:

Dim xlApp As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlBook2 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook1 = xlApp.Workbooks.Open(C:\Cartella1.xls)
Set xlBook2 = xlApp.Workbooks.Open(C:\Cartella2.xls)

Set xlSheet1 = xlBook1.Worksheets("Foglio1")
Set xlSheet2 = xlBook2.Worksheets("Foglio2")

una volta ottenuti i riferimenti ai fogli, puoi tranquillamente prendere i valori delle celle che ti interessano da ognuno di essi, ad esempio:

Valore1 = xlSheet1.Cells(1,4).Value
Valore2 = xlSheet2.Range("C5").Value

oppure passare valori da un foglio all'altro:

xlSheet2.Range("H9").Value = xlSheet1.Range("B5").Value

una volta completate le operazioni, devi chiudere i workbooks, l'istanza di Excel e annientare le variabili oggetto:

xlBook1.Close (True) ' <--- o False per non salvare
xlBook2.Close (True) 
xlApp.Quit

Set xlSheet1 = Nothing
Set xlSheet2 = Nothing
Set xlBook1 = Nothing
Set xlBook2 = Nothing
Set xlApp = Nothing

Boolean

[francesco_test]

ottimo.
grazie.