word宏如何查找excel里的数据并写入

Question

我有两个文件，一个是excel档的，里面存放年级，班级，男女生的人数的信息，另一个是word档的，里面也是年级，班级的信息，但是总人数的数据是没有的，现在我想编写一个word的宏，当打开这个word档的时候，执行相应的宏，宏的大概步骤就是根据年级以及班级的信息到excel档里寻找对应的年级和班级的男女生总人数的信息填充到word里，下午研究了好久，愣是没搞会，还请大大们指导，谢谢。excel和word同处于一个文件夹里，在线等

Answer 1

有篇文章“随心所欲在Word中调用Excel数据”，详细讲解了通过一个DDE“通道”连续自动地进行数据交换的方法，并有vba例子。参考地址：http://soft.yesky.com/office/276/2298776.shtml

Answer 2

Sub test()


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

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

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

    oExcel.Quit '退出Excel

End Sub  

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

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

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

oExcel.Visible = False

Answer 3

vba我帮你实现

Answer 4

为什么不在EXCEL里把数据弄好，再放到WORD里？追问

我也想的，不过某些领导就要这样做，我也么办法

追答

在WORD里输入数据，然后再根据数据查找对应的引用过来，这个在WORD里还真不知道怎么弄。

但在EXCEL里把数据根据领导的要求弄好了。在WORD里录个宏引用此表应该可以：插入、对象、由文件创建。然后再执行此宏。