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

Question

如题所述

Answer 1

可用CreateObject函数创建对EXCEL的引用，然后就可打开EXCEL工作簿，将表格中的数据复制到WORD中，参考代码如下：

Set xlapp = CreateObject("excel.application")
With xlapp.Open("带路径的EXCEL文件名")
   .Sheets(1).Range("A1:H8").Copy
   '粘贴到WORD指定位置
End With
xlapp.Quit