Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

modificare dati excel da due programmi in vb6

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Triumph Of Steel, archimede

modificare dati excel da due programmi in vb6

Postdi piter123 » 19/04/09 17:48

Salve con il seguente codice apro un file excel in modo poi da poter inserire e leggere i suoi dati.
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
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31

Sponsor
 

Torna a Programmazione


Topic correlati a "modificare dati excel da due programmi in vb6":


Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti