Как создать новый Application

   Set objExcel = CreateObject("Excel.Application")
   objExcel.Workbooks.Open ("C:\Documents and Settings\user... и т.д.xls")

Private Declare Function FindWindow _
Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
 
Private Declare Function ShowWindow _
Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowLong _
Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Function UserForm_Show()
Dim ihWnd As Long, iStyle As Long
 
ihWnd = FindWindow(vbNullString, UF2.Caption)
 
iStyle = GetWindowLong(ihWnd, -16&)
SetWindowLong ihWnd, -16&, iStyle Or &H20000
 
iStyle = GetWindowLong(ihWnd, -20&)
SetWindowLong ihWnd, -20&, iStyle Or &H40000
 
ShowWindow ihWnd, 5&
End Function