给你一个Word的VBA代码示例,关键是建立一个Excel.Application变量
Sub OPExcel()
'打开工作表取值
Dim App As New Excel.Application
Dim Wb As Excel.Workbook
DanWei = Replace(ThisDocument.Name, ".doc", "")
LuJun = ThisDocument.Path & "\" & DanWei & ".XLS"
Set Wb = App.Workbooks.Open(LuJun)
B23 = Format(Wb.Sheets("部门预算总表01").Range("B23"), "###,##0.00")