mikewolf2k 发表于 2004-2-23 18:53:00

如何用vba启动excel?

On Error Resume Next<BR>                       Set excelapp = GetObject(, "Excel.application")<BR>                       If err Then<BR>                                                       err.Clear<BR>                                                       Set excelapp = CreateObject("Excel.application")<BR>                                                       If err Then<BR>                                                                                       MsgBox ("不能运行Excel 2000，请检查是否安装了Excel 2000")<BR>                                                                                       Exit Sub<BR>                                                       End If<BR>                       End If


这段代码如何修改?

leeyeafu 发表于 2004-2-23 20:21:00

代码好象不需要修改，但要注意：


1、VBA工程需要引用EXCEL对象库，即Microsoft Excel 9.0 Object        Library(Excel 2000)。


2、添加变量声明：Dim ExcelApp As Excel.Application

ahlzl 发表于 2004-2-23 20:30:00

这样就行了!On Error Resume Next
       Set excelApp = GetObject(, "Excel.application")
       If Err Then
               Err.Clear
               Set excelApp = CreateObject("Excel.application")
               If Err Then
                     MsgBox ("不能运行Excel 2000，请检查是否安装了Excel 2000")
                     Exit Sub
               End If
               excelApp.Workbooks.Add
       End If
       excelApp.Visible = True

mikewolf2k 发表于 2004-2-23 20:32:00

我的意思是要检测到当前没有打开excel时自动打开excel,这段代码应该可以实现该功能,但是它没有.

ahlzl 发表于 2004-2-23 20:35:00

mikewolf2k发表于2004-2-23 20:32:00static/image/common/back.gif我的意思是要检测到当前没有打开excel时自动打开excel,这段代码应该可以实现该功能,但是它没有.

试试第二贴的代码.<BR>
页: [1]
查看完整版本: 如何用vba启动excel?