Dichiarare il movimento di liberazione “user32„ altrimenti detto “PostMessageA„ di PostMessage di funzione (hwnd come Int32, wMsg come Int32, _ di ByVal di ByVal
wParam di ByVal come lParam di ByVal, di Int32 come Int32) come Int32
Const WM_QUIT = &H12
ExcelWorker secondario riservato
MyExcel come Microsoft.Office.Interop.Excel.ApplicationClass
'- Insignificante - insignificante insignificante fa tutto l'vostro Excel Stuffz
MyExcel.Quit
PostMessage (Excel.Hwnd, WM_QUIT, 0, 0)
Oscurare la i come Int32
Per i = 0 - 10000
Application.DoEvents ()
Dopo
MyExcel = niente
Sommergibile dell'estremità
|