Поддержка нескольких версий Excel для автоматизации из приложения Access

Question

У меня есть приложение Access, разработанное в Access 2013 в многопользовательском env, использует автоматизацию Excel для экспорта и форматирования файла Excel.

Нормальные документы Office/Excel 2013 (15.0) были сделаны и все хорошо работает на машинах Office 2013. Не играет хорошо на машинах 2010 года.

Используя машину 2010 года, я заменил ссылки 15.0 на 14.0 ссылки, и приложение будет рад на машинах 2010 и 2013 годов. После следующего редактирования/обновления на моем компьютере 2013 возвращаются ссылки 15.0.

Любые предложения по более удобной разработке/эксплуатации в этой среде с несколькими версиями?

Спасибо!

Answer 1

Общее решение этой проблемы - использовать late binding. Недостатками позднего связывания являются

• Dim xlApp As Object означает, что мы не получаем никакой IntelliSense для xlApp и
• связанные константы, такие как xlEdgeTop не определены без соответствующего задания

Эти вопросы могут быть смягчается с помощью условной компиляции в проекте VBA. Для разработки, то добавьте ссылку на проект и определить условную компиляцию аргумент

, которые вы можете использовать в своем коде, как этот

Option Compare Database 
Option Explicit 

Public Sub WorkWithExcel() 
    #If LateBinding Then 
     Dim xlApp As Object 
     Set xlApp = CreateObject("Excel.Application") 
    #Else 
     Dim xlApp As Excel.Application 
     Set xlApp = New Excel.Application 
    #End If 

    Debug.Print xlEdgeTop 
End Sub 

Чтобы избежать беспорядок, я был бы склонен держать константы в отдельном модуле, как это

Option Compare Database 
Option Explicit 

#If LateBinding Then 
    Public Const xlEdgeTop = 8 
#End If 

Когда код подстройка завершена, удалите Reference, установите LateBinding аргумент «True» (LateBinding = -1) и скомпилировать проект. Добавьте любые константы, которые вы пропустили (всегда, кажется, один или два), и когда они компилируются без ссылки, вы должны быть хороши для развертывания.

Для следующей сессии развития, установить LateBinding обратно в «False» (LateBinding = 0) и добавить ссылку обратно.