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

要excel读取和写入word有一个前提,必须是word的某个表格中写或者读,不然宏没办法准肯定位.

选中要导入的内容复制粘贴到word就是了，或者保存为另一张sheet，再到word里面插入就OK
1.首先准备好一个excel表格，保存好。

2.打开百word文档，切换到“插入”标签，在“文本”栏，找到“对象”工具，点击度。

3.弹出对象对话框，切换到“由文件创建”标签，点击“浏览”，找到回已保存的excel表格。

4.重点，一定要钩选“链接到文件”。点确定。

5.在word文档中插入了excel表格，当在excel表格中答做出修改时，word文档跟着更新。即excel和word中的数据同步更新。

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