word宏中打开excel文件并取单元格的值

发布网友发布时间：2022-05-10 14:37

共3个回答

热心网友时间：2023-10-12 01:27

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对象引用库。

前置绑定方法参见：http://zhidao.baidu.com/question/126725210.html

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

oExcel.Visible = False

热心网友时间：2023-10-12 01:27

Excel的数据可以链接到word的（保持数据与Excel数据源的数据同步）

热心网友时间：2023-10-12 01:28

第一步，建立一个excel，在excel表中输入1000个用户名和地址。
第二步，建立一个Word文档，并编辑打印所需文字和格式，并留好需要放用户名字和地址的空格。
第三步，在Word文档中依次点击“邮件—开始邮件合并—邮件合并分步向导”，在右边会出现一个栏框，选择“信函”，点击下一步；再点下一步；点击“浏览……”，选中刚刚做的excel工作薄，选择表格，点击确认。再点击下一步，将光标放在预留好的空格里，点击“邮件—插入合并域”，分别选择用户名字和地址。再点击右侧的预览，看Word文档整体效果，没有问题，就点击打印。
这样就能打印出1000个Word文档了。