一、如何Word中用VBA打开Excel表格,读取其中的内容写入到Word

在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)

二、怎样用Word中的宏将excel中的数据读取到Word中（按照Word中的自

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 '退出ExcelEnd Sub 按 Alt+F11 打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。 如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性： oExcel.Visible = False。

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

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

转载请注明出处51数据库 » word宏读取内容到excel