Мучаю Excell - нашел в хелпе вот такой кусочек кода, который никак умом понять не могу. Разъясните плиз.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub DetectExcel()
' Procedure dectects a running Excel and registers it.
Const WM_USER = 1024
Dim hWnd As Long
' If Excel is running this API call returns its handle.
hWnd = FindWindow("XLMAIN", 0 )
If hWnd = 0 Then ' 0 means Excel not running.
Exit Sub
Else
' Excel is running so use the SendMessage API
' function to enter it in the Running Object Table.
SendMessage hWnd, WM_USER + 18 , 0 , 0
End If
End Sub
---Женщины и виски размягчают мозг.
