WinWrap CreateObject («Excel.Application») Несколько экземпляров

Question

Не знаете, сколько людей знают о WinWrap Basic language, который поддерживает .NET-инфраструктуру. Но в этом моя проблема. Надеюсь, что кто-то знает о языке.

Я использую его для связи с Excel 2010. В основном я извлекаю данные для запатентованного формата данных и выплевывая его в Excel. Следующие выполняются отлично, когда никакие дополнительные экземпляры Microsoft Excel 2010 не активны во время запуска сценария.

xExcel = CreateObject("Excel.Application") 
xBook = xExcel.Workbooks.Open(XLFilePath) 
xSheet = xBook.Worksheets(“Sheet1”) 
xExcel.Visible = False 
xSheet.Cells(1,1).Value = "Study Name" 

Однако, если дополнительный экземпляр Excel 2010 активируется вручную пользователем во время следующего запуска сценария, ошибки сценария отсутствуют.

xExcel = CreateObject("Excel.Application") 
xBook = xExcel.Workbooks.Open(XLFilePath) 
xSheet = xBook.Worksheets(“Sheet1”) 
xExcel.Visible = False  
Do 
    xSheet.Cells(1,1).Value = "Study Name" 
Loop 

Ребята WinWrap говорят, что CreateObject() в WinWrap простой код, который вызывает CoCreateInstance API. Я как бы потерялся там. Может кто-нибудь помочь мне понять, как создать несколько экземпляров Excel.

Редактировать Я получаю Runtime 50290 Особая ошибка приложения.

Answer 1

Вы пробовали GetObject?

Dim objExcel As Object 
On Error Resume Next 
Set objExcel = GetObject(, "Excel.Application") 
With objExcel 
    'do something 
End With