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

发布网友发布时间：2022-05-21 15:06

共2个回答

热心网友时间：2023-10-30 17:22

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")

你更新，我也补充下：

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

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

热心网友时间：2023-10-30 17:23

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