Visual Basic

<br />
<br />
        Dim wBooks As Excel.Workbooks<br />
        Dim wBook As Excel.Workbook<br />
        Dim sheets As Excel.Sheets<br />
<br />
        excelApp = CreateObject("Excel.Application")<br />
        wBooks = excelApp.Workbooks()<br />
        wBook = wBooks.Open(filename)<br />
sheets =        wBook.Worksheets<br />
' some other functions<br />
 sheets.PrintPreview()<br />
 WaitForExcelToClose()<br />
 excelApp.Quit()<br />

<br />
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br />
    Private Declare Function GetLastError Lib "kernel32" () As Long<br />
    Private Declare Sub SetLastError Lib "kernel32" (ByVal dwErrCode As Long)<br />
    Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, ByVal lpSource As Integer, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByVal Arguments As Long) As Long<br />
    Private Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long<br />
    Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long<br />
    Private Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long<br />
    Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long<br />
<br />
<br />
  Public Sub WaitForExcelToClose()<br />
<br />
        Dim hWnd As Long<br />
        Dim buf As String<br />
        hWnd = FindWindow("XLMain", excelApp.Caption)<br />
        If hWnd = 0 Then<br />
            buf = Space(1024)<br />
            FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0&, GetLastError, LANG_NEUTRAL, buf, 200, 0&)<br />
        Else<br />
            Dim pid As Long = 0<br />
            Dim lngThread As Long<br />
            Dim lngReason As Long<br />
            lngThread = GetWindowThreadProcessId(hWnd, pid)<br />
            Dim lngProcess As Long<br />
            lngProcess = OpenProcess(SYNCHRONIZE Or PROCESS_ALL_ACCESS, True, pid)<br />
            lngReason = WaitForSingleObject(lngProcess, INFINITE)<br />
            CloseHandle(lngProcess)<br />
        End If<br />
    End Sub<br />