Question

我想将2个Microsoft Word文档嵌入到名为＆＃34;简介＆＃34;的Excel工作表中。第一个文档应该从单元格A1开始嵌入，第二个文档应该从单元格A62开始嵌入。

Set objExcel = CreateObject("Excel.Application")  
objExcel.Visible = True 
objExcel.DisplayAlerts=False
Set objWorkbook1= objExcel.Workbooks.Open("workbook.xlsx")
Set Xlsheet = objWorkbook1.Worksheets("Introduction")
Xlsheet.Select
Xlsheet.OLEObjects.Add(FileName:="intro.docx", Link:=False, DisplayAsIcon:=False)
Xlsheet.Range("A62").Select
Xlsheet.OLEObjects.Add(FileName:="methods.docx", Link:=False, DisplayAsIcon:=False).Select
objWorkbook1.saveAs "workbook_new.xlsx",51
objWorkbook1.close
objExcel.DisplayAlerts=True
set objExcel=nothing

当我运行上面的代码时，我得到一个错误，说第7行，第32行，预期＆＃39;）。这会产生一个＆＃39;＆＃39;在此行中的FileName之后对我没有意义。 Xlsheet.OLEObjects.Add(FileName:="intro.docx", Link:=False, DisplayAsIcon:=False)

我做错了什么？

Answer 1

尝试将其更改为Xlsheet.OLEObjects.Add FileName:="intro.docx", Link:=False, DisplayAsIcon:=False

将多个Word文档嵌入Excel

1 个答案: