FIND WINDOWS IN XP

[CIUFFO]

Perchè in XP Find Windows non funzia?
Questo codice sotto 98 funziona correttamentePrivate Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub excel()
Dim path
Dim hwnd As Long

path = (directory di CAMBI.xls)
hwnd = FindWindow(vbNullString, "Microsoft Excel - CAMBI.xls")
If hwnd = 0 Then ' 0 significa che il file di Excel non è in esecuzione.

ShellExecute hwnd, vbNullString, path, vbNullString, vbNullString, 0

Else
Exit Sub
End If

End Sub

[CIUFFO]

aiutoo :cry:
Devo risolvere questo problema, perchè non riesco a far girare il mio codice sotto XP :confused:

[tiaren]

Provalo così, a me con XP funziona!
Effettivamente però non funzionava quando lo copiato dal tuo.

Fammi sapere, ok?
ciao

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub excel()
Dim path
Dim hwnd As Long

path = "C\Documents and Settings\Aretiz\Documenti\CAMBI.xls"
hwnd = FindWindow(vbNullString, "Microsoft Excel - CAMBI.xls")

If hwnd = 0 Then ' 0 significa che il file di Excel non è in esecuzione.
ShellExecute hwnd, vbNullString, path, vbNullString, vbNullString, 0
Else
Exit Sub
End If

End Sub

Private Sub Command1_Click()
Call excel
End Sub
[/quote]

[CIUFFO]

Tutto OK :D
Grazie