controllo se file excel già aperto

[piter123]

salve, premetto che ho già cercato e provato alcuni codici senza buon esito.

ho il seguente codice in vb6

Codice: Seleziona tutto

Public Sub APRE_EXCEL()
Set AppExcel = Excel.Application   'CREA ISTANZA OGGETTO
Excel.Application.Application.Visible = True 'VISUALIZZA FILE EXCEL
Set FileExcel = AppExcel.Workbooks.Open(PERCORSO & "\DDE.xls")
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

Public Sub CHIUDE_EXCEL()
FileExcel.Close False 'CON "1" SALVA IN USCITA CON LO STESSO NOME, "FALSE" ESCE SENZA SALVARE
Set FileExcel = Nothing
Set FoglioExcel(0) = Nothing
Set FoglioExcel(1) = Nothing
Set FoglioExcel(2) = Nothing
Set FoglioExcel(3) = Nothing
'ExcelApp.SaveWorkspace
Excel.Application.Quit
End Sub

apertura e chiusura del file excel. ma se per qualche motivo mi si blocca il prg in vb6 e lo rilancio mi riapre un'altra sessione del file DDE.xls, com faccio per non fargli aprire una nuova sessione e fargli usare quella già aperta o in alternativa forzare la chiusura della precedente e aprire la nuova, grazie

[Anthony47]

Ciao,
non so quanto e' pertinente, ma prova a guardare qui: viewtopic.php?f=26&t=75130#p427006 (e tutto il resto del thread).
Li' si chiude il "target file" (se aperto) per poi riaprirlo; mi pare che potresti adottare la stessa tecnica. Non so valutare pero' le differenze tra vba e vb6.

Ciao,

[Anthony47]

Oppure puoi fare l' inventario dei Workbook aperti e se' c' e' il tuo lo chiudi (o blocchi la nuova apertura):

Codice: Seleziona tutto

For Each WB In Workbooks
If WB.Name="tuo nome" Then Goto EndWb   'Gia' aperto
Next WB
'Qui apri se non esistente
'
EndWb:
'Continua la macro

Ciao

[piter123]

ciao, intanto come al solito mille grazie, appena mi passa la congiuntivite agli occhi ci dò un'occhiata e poi ti faccio sapere.

[Anthony47]

Ok
(ad uso "notifica")

Ciao