WinWrap CreateObject（“Excel.Application”）多个实例

不知道有多少人知道哪些支持.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的人说WinWrap中的CreateObject是一个调用CoCreateInstance API的简单代码。我有点迷路了。有人能帮我理解如何创建多个Excel实例吗

编辑

---

我收到运行时50290应用程序特定错误。

您尝试过GetObject吗

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

---

您应该提到在哪一行代码中发生了什么样的错误。为什么在第二个代码示例中使用无限循环？也许这就是错误的原因？不，无限循环只是为了模拟我的脚本在很长一段时间内运行，做不同的事情，而有人会手动操作Excel。实际上，我的代码中没有无限循环。我得到运行时50290应用程序特定错误。