ник: Анатолий (Киев)
Позднее связывание, это когда ссылка на библиотеку не используется. Тогда все специальные объектные переменные описываются как Object, а специальные константы дублируются своими одноименными. Создание объектов віполняется методами CreateObject или GetObject.
Вот пример с условным компилированием:
#Const IsExcelRef = 1 '0 - ссылка на библиотеку Excel отсутствует.
Sub OpenExcel()
#If IsExcelRef = 1 Then
Dim ExlApp As Excel.Application, WB As Excel.Workbook, WSh As Excel.Worksheet, rng As Excel.Range
Set ExlApp = New Excel.Application
#Else
Dim ExlApp As Object, WB As Object, WSh As Object, rng As Object
Const xlMinimized = -4140
Const xlMaximized = -4137
Set ExlApp = CreateObject("Excel.Application")
#End If
'Set ExlApp = CreateObject("Excel.Application") 'В обоих вариантах можно вынести за пределы условной компиляции
'Делаем окно Excel видимым и свернутым
ExlApp.Visible = True
ExlApp.WindowState = xlMinimized
'...
End Sub
|
Т.е. при установленной ссылке и IsExcelRef = 1 пишете код, наслаждаясь справкой и списками свойств/методов объектов, затем IsExcelRef = 0 - отключаете ссылку - тестируете - отдаете в работу.