MySQL, PHP и… Microsoft Office
Листинг 6
Public poIE As InternetExplorerWithEvents
Public psURL As String ' URL загружаемой страницы
Public psSQL As String ' SQL-запрос
Public Sub DocumentComlete(vURL As Variant)
'-- Процедура вызывается событием DocumentComlete,
'-- сравнивает URL загруженной страницы,
'-- создает объект HTML Document
'-- и выполняет необходимые действия с
'-- содержимым Web-страницы
Dim oDoc As HTMLDocument
Dim sURL As String
'-- Проверка URL загруженной страницы
sURL = vURL
sURL = ReplaceString(sURL, "\", "/")
If sURL <> psURL Then Exit Sub
'-- Создание объекта HTML Document
Set oDoc = poIE.IE.document
'-- Обработка документа
With oDoc
.all.Item("sql_query").Value = psSQL
End With
Set oDoc = Nothing
End Sub
