WinWrap CreateObject("Excel.Application")多个实例

Question

不知道有多少人知道WinWrap Basic语言，它支持.Net框架。但这就是我的问题所在。希望外面有人知道这门语言。

我正在使用它与Excel 2010通信。基本上，我是为一种专有数据格式提取数据，并将其吐到Excel中。在脚本运行期间未激活Microsoft 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