chiudere fiel excel

[piter123]

all'avvio di un progetto vb6 ho bisogno di verificare se il file excel c:\esempio\prova.xls è aperto e se lo è chiuderlo
come posso fare, ho provaro con il seguente codice ma non mi funziona

in un modulo ho ho scritto

Codice: Seleziona tutto

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

in un'altro

Codice: Seleziona tutto

public sub chiudi_excel()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "c:\esempi\prova.xls")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Errore nella chiusura."
End If
Else
MsgBox "il foglio excel non è aperto."
End If

end sub

[piter123]

risolto in parte, al posto di

winHwnd = FindWindow(vbNullString, "c:\esempi\prova.xls")

bisogna scrivere

winHwnd = FindWindow(vbNullString, "Microsoft Excel - prova")

ora però avrei bisogno che lo chiudesse senza chiedermi di salvarlo