在Word里如何插入指定行列数的Excel电子表格？

wh1234567

在Word里如何插入指定行列数的Excel电子表格？要求插入10行32列，想做一个这个的文档https://pic1.zhimg.com/70/v2-aee ... 8b&biz_tag=Post


补充内容 (2025-4-4 13:18):
求方法步骤

补充内容 (2025-4-4 13:19):
黑色表格是10行32列，另外下面彩色的不知道咋弄

xizhihan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
word程序对象	对象
文档对象	对象
选择集对象	对象
Excel工作簿对象	对象
Excel工作表对象	对象

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮_插入表格_被单击

如果真 (创建对象 ("Word.Application", word程序对象) ＝ 假)
信息框 ("创建对象失败", 0, , )
返回

word程序对象.可见 ＝ 真
文档对象 ＝ word程序对象.Documents.Add ()
选择集对象 ＝ word程序对象.Selection
如果真 (选择集对象.InsertOLEObject ("Excel.Sheet.12", , 假, 假, , 假, "新工作簿") ＝ 假)
信息框 ("插入表格失败", 0, , )
返回

Excel工作簿对象 ＝ 选择集对象.InlineShapes (1).OLEFormat.Object
Excel工作表对象 ＝ Excel工作簿对象.ActiveSheet
如果真 (创建对象 ("Excel.Application", ) ＝ 假)
信息框 ("操作对象失败", 0, , )
返回

' 设置表格为5行3列（示例数据）
Excel工作表对象.Range ("A1:C5").Value ＝ {{"11", "22", "33"}, ;
{"1", "2", "3"}, ;
{"4", "5", "6"}, ;
{"7", "8", "9"}, ;
{"10", "11", "12"}}
' 调整列宽为自动适应
Excel工作表对象.Range ("A1:C5").Columns.AutoFit

子程序名	返回值类型	公开	备 注
_按钮_退出_被单击

word程序对象.Quit
销毁 ()

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 word程序对象, 对象<br /> .程序集变量 文档对象, 对象<br /> .程序集变量 选择集对象, 对象<br /> .程序集变量 Excel工作簿对象, 对象<br /> .程序集变量 Excel工作表对象, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .子程序 _按钮_插入表格_被单击<br /> <br /> .如果真 (创建对象 ("Word.Application", word程序对象) ＝ 假)<br />     信息框 ("创建对象失败", 0, , )<br />     返回<br /> .如果真结束<br /> <br /> word程序对象.可见 ＝ 真<br /> 文档对象 ＝ word程序对象.Documents.Add()<br /> 选择集对象 ＝ word程序对象.Selection<br /> <br /> .如果真 (选择集对象.InsertOLEObject("Excel.Sheet.12", , 假, 假, , 假, "新工作簿") ＝ 假)<br />     信息框 ("插入表格失败", 0, , )<br />     返回<br /> .如果真结束<br /> <br /> Excel工作簿对象 ＝ 选择集对象.InlineShapes(1).OLEFormat.Object<br /> Excel工作表对象 ＝ Excel工作簿对象.ActiveSheet<br /> <br /> .如果真 (创建对象 ("Excel.Application", ) ＝ 假)<br />     信息框 ("操作对象失败", 0, , )<br />     返回<br /> .如果真结束<br /> <br /> ' 设置表格为5行3列（示例数据）<br /> Excel工作表对象.Range("A1:C5").Value ＝ {{"11", "22", "33"}, ;<br />     {"1", "2", "3"}, ;<br />     {"4", "5", "6"}, ;<br />     {"7", "8", "9"}, ;<br />     {"10", "11", "12"}}<br /> <br /> ' 调整列宽为自动适应<br /> Excel工作表对象.Range("A1:C5").Columns.AutoFit<br /> <br /> .子程序 _按钮_退出_被单击<br /> word程序对象.Quit<br /> 销毁 ()

注意配置一下word相关的支持库


补充内容 (2025-4-4 14:01):
把上一个人的代码用ai优化了一下，实测没问题

10008508

变量 WordApp, Doc, ExcelTable
WordApp = 创建对象("Word.Application")
Doc = WordApp.Documents.Add()
ExcelTable = Doc.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet", DisplayAsIcon:=False)
ExcelTable.Activate()
ExcelTable.OLEFormat.Object.Worksheets(1).Range("A1:AF10").Select() // 选中10行32列区域
ExcelTable.OLEFormat.Object.Visible = False // 退出编辑模式
Doc.SaveAs("目标路径.docx")
WordApp.Quit()

wh1234567

10008508 发表于 2025-4-4 13:34
变量 WordApp, Doc, ExcelTable
WordApp = 创建对象("Word.Application")
Doc = WordApp.Documents.Add()

没看明白如何操作，或者用易怎么写，呵呵

10008508

.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口
.程序集变量 word程序对象, 对象
.程序集变量 文档对象, 对象
.程序集变量 选择集对象, 对象
.程序集变量 Excel工作簿对象, 对象
.程序集变量 Excel工作表对象, 对象

.子程序 __启动窗口_创建完毕

.子程序 _按钮_插入表格_被单击

.如果真 (创建对象 ("Word.Application", word程序对象) ＝ 假)
    信息框 ("无法创建Word对象，请确认已安装Office", 0, , )
    返回
.如果真结束

word程序对象.可见 ＝ 真
文档对象 ＝ word程序对象.Documents.Add()
选择集对象 ＝ word程序对象.Selection

.如果真 (选择集对象.InsertOLEObject("Excel.Sheet.12", , 假, 假, , 假, "新工作簿") ＝ 假)
    信息框 ("插入Excel表格失败", 0, , )
    返回
.如果真结束

Excel工作簿对象 ＝ 选择集对象.InlineShapes(1).OLEFormat.Object
Excel工作表对象 ＝ Excel工作簿对象.ActiveSheet

.如果真 (创建对象 ("Excel.Application", ) ＝ 假)
    信息框 ("无法操作Excel对象", 0, , )
    返回
.如果真结束

' 设置表格为5行3列（示例数据）
Excel工作表对象.Range("A1:C5").Value ＝ {{"Header1", "Header2", "Header3"}, ;
    {"Data1", "Data2", "Data3"}, ;
    {"Data4", "Data5", "Data6"}, ;
    {"Data7", "Data8", "Data9"}, ;
    {"Data10", "Data11", "Data12"}}

' 调整列宽为自动适应
Excel工作表对象.Range("A1:C5").Columns.AutoFit

.子程序 _按钮_退出_被单击
word程序对象.Quit
销毁 ()

wh1234567

10008508 发表于 2025-4-4 13:41
.版本 2
.支持库 internet

您能不能上传文件？

wh1234567

10008508 发表于 2025-4-4 13:41
.版本 2
.支持库 internet

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“创建对象”。

wh1234567

xizhihan 发表于 2025-4-4 14:00
[e=0]
.版本 2
.支持库 internet

正在预处理现行程序
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“创建对象”。
编译现行易程序失败或被中止!

wh1234567

xizhihan 发表于 2025-4-4 14:00
[e=0]
.版本 2
.支持库 internet

求完整源码文件

xizhihan

wh1234567 发表于 2025-4-4 14:14
求完整源码文件

https://bbs.125.la/forum.php?mod ... d%E6%93%8D%E4%BD%9C