Литература по VB для работы с Microsoft Office

' Описываем необходимые процедуры API:
 Declare Function FindWindow Lib "user32" Alias _
 "FindWindowA" (ByVal lpClassName as String, _
 ByVal lpWindowName As Long) As Long
 
 Declare Function SendMessage Lib "user32" Alias _
 "SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long _
 ByVal wParam as Long _
 ByVal lParam As Long) As Long
 
 Sub GetExcel()
 Dim MyXL As Object ' Переменная для сохранения
 ' ссылки на Microsoft Excel.
 Dim ExcelWasNotRunning As Boolean ' Флаг для выхода из приложения.
 
 ' Проверка, выполняется ли Microsoft Excel.
 On Error Resume Next ' Отложенный перехват ошибок.
 ' Функция GetObject, вызванная без указания первого аргумента, 
 ' возвращает ссылку на экземпляр приложения. Если это приложение 
 ' не запущено, возвращается ошибка. Обратите внимание на запятую, 
 ' стоящую на месте отсутствующего первого аргумента.
 Set MyXL = Getobject(, "Excel.Application")
 If Err.Number <> 0 Then ExcelWasNotRunning = True
 Err.Clear ' Очищаем объект Err на случай ошибки.
 
 ' Проверка Excel. Если Excel выполняется,
 ' он вводится в таблицу выполняемых объектов (Running Object table).
 DetectExcel
 
 Задаем в объектной переменной ссылку на открываемый файл.
 Set MyXL = Getobject("c:\vb4\MYTEST.XLS")
 
 ' Делаем видимым Excel с помощью свойства Application. Затем делаем
 ' видимым окно, содержащее файл, с помощью семейства Windows объекта,
 ' определяемого ссылкой MyXL.
 MyXL.Application.Visible = True
 MyXL.Parent.Windows(1).Visible = True
 
 ' Здесь помещаем инструкции
 ' по обработке вызванного файла.
 ' ...
 ' Если приложение Microsoft Excel не выполнялось при запуске данной
 ' программы, закрываем его с помощью метода Quit свойства Application.
 ' Отметим, что при попытке выхода из Microsoft Excel строка заголовка
 ' мигает и выводится приглашение сохранить все загруженные файлы.
 If ExcelWasNotRunning = True Then 
 MyXL.Application.Quit
 End IF
 
 Set MyXL = Nothing ' Освобождаем ссылку на 
 
 ' приложение и электронную таблицу.
 End Sub
 
 Sub DetectExcel()
 ' Процедура находит выполняемый Excel и регистрирует его.
 Const WM_USER = 1024
 Dim hWnd As Long
 ' Если Excel выполняется, этот вызов API возвращает его дескриптор.
 hWnd = FindWindow("XLMAIN", 0)
 If hWnd = 0 Then ' 0 означает, что Excel не выполняется.
 Exit Sub
 Else 
 ' Excel выполняется. Используйте функцию API SendMessage, чтобы ввести его в таблицу выполняемых объектов (Running Object Table).
 
 SendMessage hWnd, WM_USER + 18, 0, 0
 End If
 End Sub