Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
  As Long
 
Const WM_CLOSE = &H10
 
Dim myhwnd As Long
 
Private Sub Command1_Click()
Dim Dateiname as String
Dateiname="test.xls"
myhwnd=FindWindow(vbNullString, "Microsoft Excel - " & dateiname )
SendMessage myhwnd, WM_CLOSE, ByVal 0&, ByVal 0&
End Sub
 
Private Sub Command2_Click()
Dim exePfad as String
Dim Pfad as String
Dim Dateiname as String
exePfad="C:\Programme\Office\Excel.exe"
Dateiname="test.xls"
Pfad="c:\Exceldateien\"
 
Shell exepfad & " " & pfad & dateiname, vbnormal
EndSub