程序代码:Dim XlApp As New Excel.Application
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set XlBook = XlApp.Workbooks.Add
XlApp.Visible = False
Set XlBook = XlApp.Workbooks.Open(App.Path & "\ABC.xlsx")
MsgBox "ABC.xlsx 文件已经打开。"
XlApp.Quit我测试了一下,没有问题呀!你是不是没有引用Excel的原因?
或者不支持低版本的Excel的原因?
[此贴子已经被作者于2018-7-7 11:12编辑过]








