WinWrap CreateObject(“Excel.Application”)多个实例

时间:2015-03-31 23:26:48

标签: excel multiple-instances createobject winwrap

不确定有多少人知道支持.Net框架的 WinWrap Basic language 。但这就是我的问题所在。希望有人知道这种语言。

我正在使用它与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应用程序特定错误

1 个答案:

答案 0 :(得分:0)

你试过GetObject吗?

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