可以通过以下步骤实现:
Sub OpenExcel()
Dim xlApp As Object
Dim xlWorkbook As Object
' 创建Excel应用程序对象
Set xlApp = CreateObject("Excel.Application")
' 打开Excel工作簿
Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
' 可以在这里添加其他操作,如读取数据、修改数据等
' 关闭Excel工作簿
xlWorkbook.Close
' 退出Excel应用程序
xlApp.Quit
' 释放对象
Set xlWorkbook = Nothing
Set xlApp = Nothing
End Sub
"C:\路径\文件名.xlsx"
处,替换为你要打开的Excel文件的实际路径和文件名。这样,你就可以通过在Word中使用VBA来打开Excel了。请注意,以上代码仅适用于Windows操作系统,并且需要在计算机上安装有Excel应用程序。
领取专属 10元无门槛券
手把手带您无忧上云