作者：乔山办公网日期：
返回目录：excel表格制作
可用CreateObject函数创建对EXCEL的引zd用，然后就可打开EXCEL工作簿，将表格中的数据内复制到WORD中，参考代码如下：
Set xlapp = CreateObject("excel.application")
With xlapp.Open("带路径的EXCEL文件名容")
.Sheets(1).Range("A1:H8").Copy
'粘贴到WORD指定位置
End With
xlapp.Quit可以的，如果你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)