Ora però ho bisogno di avviare un secondo programma in vb6 che vada a leggere i dati dallo stesso foglio, il problema è che uso lo stesso codice mi và ad aprire una nuova istanza del file di excel senza pero permettermi di leggere o modificare i dati dalla prima istanza del file excel aperto, come dovrei correggere il codice nel secondo programma in vb6 per poter interagire con lo stesso file excel ?
1000 grazie
- Codice: Seleziona tutto
Option Explicit
Public AppExcel As EXCEL.Application
Public FileExcel As EXCEL.Workbook
Public FoglioExcel(3) As EXCEL.Worksheet
Public CTRL_NUOVA_ISTANZA As Boolean
Public Sub APRE_EXCEL()
CTRL_NUOVA_ISTANZA = False
On Error Resume Next 'Ignora errori
Set AppExcel = GetObject(, "Excel.Application") 'Controlla se esiste gia' una copia di Excel in esecuzione
If Err.Number <> 0 Then 'Se Excel non sta girando
Set AppExcel = CreateObject("Excel.Application") 'esegui l'applicazione
CTRL_NUOVA_ISTANZA = True
End If
Err.Clear ' Cancella gli errori che possono essere accaduti.
On Error GoTo 0 'Riprendi il normale controllo degli errori
Set FileExcel = AppExcel.Workbooks.Open(PERCORSO_DDE & "DDE.xls")
If VISUALIZZA_EXCEL = 1 Then
EXCEL.Application.Application.Visible = True 'VISUALIZZA FILE EXCEL
FileExcel.Application.Visible = True
Else
If CTRL_NUOVA_ISTANZA = False Then
EXCEL.Application.Application.Visible = False 'NON VISUALIZZA FILE EXCEL
End If
FileExcel.Application.Visible = False
End If
Set FoglioExcel(0) = FileExcel.Worksheets(1)
Set FoglioExcel(1) = FileExcel.Worksheets(2)
Set FoglioExcel(2) = FileExcel.Worksheets(3)
Set FoglioExcel(3) = FileExcel.Worksheets(4)
End Sub