In un modulo separato:
codice:
Option Explicit
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
Private Const SW_NORMAL = 1
Public Sub ExecFile(ByVal fileName As String)
Dim ret As Long
ret = ShellExecute(0, "open", fileName, vbNullString, vbNullString, SW_NORMAL)
If ret<=32 Then
Err.Raise 51, "ExecFile", "Impossibile eseguire il file """ & fileName & """." & vbCrLf & "Codice di errore di ShellExecute: " & LTrim(CStr(ret))+"."
End If
End Sub
nel codice del tuo form (supponendo che i tuoi due pulsanti si chiamino CommandButton1 e CommandButton2:
codice:
Option Explicit
Private Sub CommandButton1_Click()
ExecFile "c:\percorso\nomefileword.doc"
End Sub
Private Sub CommandButton2_Click()
ExecFile "c:\percorso\nomefileexcel.xls"
End Sub
.
@oregon: credo che si faccia prima così che a fargli capire il regolamento... 
Rispondi quotando
