WinWrap CreateObject（“ Excel.Application”）多個實例

Question

不知道有多少人知道支持.Net框架的WinWrap Basic語言 。 但這就是我的問題所在。 希望有人知道這門語言。

我正在使用它與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的家伙說WinWrap中的CreateObject（）是調用CoCreateInstance API的簡單代碼。 我有點迷路了。 有人可以幫助我了解如何創建多個Excel實例。

編輯我得到運行時50290應用程序特定錯誤 。

Answer 1

您是否嘗試過GetObject？

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