程序代码:
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编辑过]