Imports System.Runtime.InteropServices Public Class Form1 Public Const WM_CLOSE = &H10 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim EXCELApp As Excel.Application EXCELApp = New Excel.Application() EXCELApp.Visible = True 'EXCELApp.Workbooks.Add() EXCELApp.Workbooks.Open(System.Environment.CurrentDirectory & "\Book1.xls") End Sub Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click Dim hwndPPt As Integer hwndPPt = MyApi.FindWindow("XLMAIN","Microsoft Excel - Book1.xls") 'MsgBox("hwndEXCEL (" & Hex(hwndPPt) & ") has the Window handle to " & _ ' "EXCEL's Main Window." & vbCr & " Click OK to close EXCEL.") 'EXCELApp.Quit() MyApi.SendMessageA(hwndPPt,WM_CLOSE,0) End Sub End Class Public Class MyApi <DllImport("user32.dll")> Public Shared Function _ FindWindow(ByVal strClassName As String,ByVal strWindowName _ As String) As Integer End Function <DllImport("user32.dll")> Public Shared Function _ SendMessageA(ByVal hWnd As Integer,ByVal wMsg As Long,ByVal wParam As Long,ByVal lParam As Long) As Long End Function End Class
