Oznajmiać Funkcja PostMessage Wyzwolenie "user32" Pseudonim "PostMessageA" (ByVal hwnd Jako Int32, ByVal wMsg Jako Int32, _
ByVal wParam Jako Int32, ByVal lParam Jako Int32) Jako Int32
Const WM_QUIT = &H12
Intymny Okręt podwodny ExcelWorker
MyExcel Jako Microsoft.Office.Interop.Excel.ApplicationClass
'Stuffz - stuffz - blah Robić wszystkie twój Przodować Stuffz
MyExcel.Quit
PostMessage (Excel.Hwnd, WM_QUIT, (0), (0))
Ćmić i Jako Int32
Dla i = (0) 10000
Application.DoEvents ()
Następnie
MyExcel = Nic
Końcówka Okręt podwodny
|