用宏代码把excel的<em>数据</em>写入到<em>word</em&g

在word vba工具-引用中百选中Ms Excel就可以正常打开EXCEL进行操作度了
Dim xlapp As Excel.Application ‘代表回excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook（也就是excel工作答簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet '代表excel的工作页
xlapp.Application.EnableEvents = False '禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)

1. Sub test()
   

2.     Set oExcel = GetObject(, "Excel.Application")

3.     Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径

4.     MsgBox oWb.Sheets("Sheet1").Range("C5") '取"Sheet1"工作表C5单元格的值百

5.     oExcel.Quit '退出Excel

6. End Sub  

按 Alt+F11 打开VBE窗口，度通过菜单选择“插入”-“模块”，输入以上代码。 

这里采知用的是后置绑定方道法，无需事先加载Excel对象引用库。

如果在此过程中希望Excel窗口不可版见，可在调用权open方法打开Excel之前设置visible属性：

oExcel.Visible = False