Question

在VB6.0中，点击按钮就可以打开Excel，应该怎么改？

Private Sub Command4_Click()
Dim a
a = Shell("E:\工作\VB软件\有机合成设备\11\评分.xlsx ", vbNormalFocus)
End Sub
Option Explicit
Public xlapp As Excel.Application
Public xlbook As Excel.Workbook
Public xlsheet As Excel.Worksheet
Public k1 As Long

Answer 1

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.Range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")

 

你更新，我也补充下：

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.Range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Open("E:\工作\VB软件\有机合成设备\11\评分.xlsx ")
End Sub

需要工程引用，已测试，无问题见图：

追问

我原先是：Shell "explorer E:\工作\VB软件\有机合成设备\11\评分.xlsx "
运行程序后，第一次点击按钮打开excel了（后来发生错误结束进程），第二次打开excel没出错，我再点击按钮打开excel时，就没有反应了。改成你给我的，它也没有反应，我应该怎么改？

Answer 2

Private Sub Command4_Click()
    Dim xlapp
    Dim xlbook
    Set xlapp = CreateObject("excel.application")
    Set xlbook = xlapp.Workbooks.Open("E:\工作\VB软件\有机合成设备\11\评分.xls")
    xlapp.Visible = True
End Sub