如何用vba启动excel?

mikewolf2k

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
End If 这段代码如何修改?

leeyeafu

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


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


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

ahlzl

这样就行了!

2.   On Error Resume Next
3.        Set excelApp = GetObject(, "Excel.application")
4.        If Err Then
5.                Err.Clear
6.                Set excelApp = CreateObject("Excel.application")
7.                If Err Then
8.                        MsgBox ("不能运行Excel 2000，请检查是否安装了Excel 2000")
9.                        Exit Sub
10.                End If
11.                excelApp.Workbooks.Add
12.        End If
13.        excelApp.Visible = True

  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

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

ahlzl

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

试试第二贴的代码.