Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

chiudere fiel excel

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

chiudere fiel excel

Postdi piter123 » 10/09/09 14:12

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
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31

Sponsor
 

Re: chiudere fiel excel

Postdi piter123 » 10/09/09 15:04

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
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31


Torna a Programmazione


Topic correlati a "chiudere fiel excel":


Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti