论坛 › 已解决问题区 › AU3 用VBA插入物件都Excel的语句是怎样的

天天笑 发表于 2018-8-2 11:41:15

AU3 用VBA插入物件都Excel的语句是怎样的

要把txt文本插入到Excel，应该怎样用AU3结合VBA操作。
先谢过。

chzj589 发表于 2018-8-3 16:26:08

天天笑 发表于 2018-8-3 13:20
为啥我的不行？难道又是AU3版本问题？
能打开Excel，不过没有插入物件，也没有报错




;运行 AU3Check (3.3.14.2)
#include <Excel.au3>
Local $oExcel = ObjCreate("Excel.Application") ; 创建Excel对象
$oExcel.Visible = 1
Local $oBook = $oExcel.Workbooks.Add
$oExcel.ActiveSheet.OLEObjects.Add (Null, "D:\AU3调试\完成后的结果显示\test\test\123.txt", False, _
                        True, "D:\AU3调试\完成后的结果显示\test\test\line.ico", 0, "123TXT", _
                        100, 60, 140, 140).Select
$oExcel.ActiveSheet.OLEObjects.Add (Null, "D:\AU3调试\完成后的结果显示\test\test\456.txt", False, _
                        True, "D:\AU3调试\完成后的结果显示\test\test\line.ico", 0, "456TXT", _
                        250, 60, 140, 140).Select
$oExcel.ActiveSheet.OLEObjects.Add (Null, "D:\AU3调试\完成后的结果显示\test\test\789.txt", False, _
                        True, "D:\AU3调试\完成后的结果显示\test\test\line.ico", 0, "789TXT", _
                        400, 60, 40, 140).Select

chzj589 发表于 2018-8-2 15:52:47

你的txt文本呢？

天天笑 发表于 2018-8-2 16:07:22

chzj589 发表于 2018-8-2 15:52
你的txt文本呢？

我表达错误了。
是直接把TXT档案插入到Excel里面，不用将里面的内容提取出来

chzj589 发表于 2018-8-2 17:55:18

天天笑 发表于 2018-8-2 16:07
我表达错误了。
是直接把TXT档案插入到Excel里面，不用将里面的内容提取出来

没有txt文本，怎么插入Excel？
读取txt文本写入Excel，是这个意思？

天天笑 发表于 2018-8-3 08:18:24

本帖最后由 天天笑 于 2018-8-3 08:21 编辑

chzj589 发表于 2018-8-2 17:55
没有txt文本，怎么插入Excel？
读取txt文本写入Excel，是这个意思？
只需要将附件内的三个txt档案插入到Excel sheet里面就可以了，实现后如下图：

chzj589 发表于 2018-8-3 09:11:28

天天笑 发表于 2018-8-3 08:18
只需要将附件内的三个txt档案插入到Excel sheet里面就可以了，实现后如下图：

三个txt档案里是空文本，
操作：
1：读取txt档案的内容
2：写入Excel
查询帮助
自己动手，才能进步。

天天笑 发表于 2018-8-3 09:22:12

chzj589 发表于 2018-8-3 09:11
三个txt档案里是空文本，
操作：
1：读取txt档案的内容


不用读取txt档案的内容。
是把整个TXT档案当作附件插入到excel里面去

chzj589 发表于 2018-8-3 10:18:21

把txt.exe嵌入excel，是这个意思？

天天笑 发表于 2018-8-3 10:30:58

chzj589 发表于 2018-8-3 10:18
把txt.exe嵌入excel，是这个意思？

是的。执行之后如5楼图片就好

chzj589 发表于 2018-8-3 10:46:37

那还是读取txt文件里的内容，写入excel

天天笑 发表于 2018-8-3 10:57:42

chzj589 发表于 2018-8-3 10:46
那还是读取txt文件里的内容，写入excel

不用的，是插入txt档案到excel的sheet里面就可以
像插入物件那样子插进去

kk_lee69 发表于 2018-8-3 11:05:59

天天笑 发表于 2018-8-3 10:57
不用的，是插入txt档案到excel的sheet里面就可以
像插入物件那样子插进去

    ActiveSheet.OLEObjects.Add(Filename:="D:\aaaa.txt", Link:=False, _
      DisplayAsIcon:=False).Select


請善用 錄製巨集 (宏)

天天笑 发表于 2018-8-3 11:14:13

kk_lee69 发表于 2018-8-3 11:05
ActiveSheet.OLEObjects.Add(Filename:="D:\aaaa.txt", Link:=False, _
      DisplayAsIcon:=Fal ...

这个有试过，会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True
$wb=$excel.Workbooks.Add
$wb.ActiveSheet.range("C164").select
$wb.ActiveSheet.OLEObjects.Add(Filename:="G:\picture\123.txt", Link:=False, _DisplayAsIcon:=False).Select

kk_lee69 发表于 2018-8-3 11:30:44

天天笑 发表于 2018-8-3 11:14
这个有试过，会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True


會報錯 只是表示 你轉成AU3語法不對....... 不代表 這樣做 不行

所以你的重點應該是 找AU3 與 OLEObjects.Add 的關係 轉換方法

kk_lee69 发表于 2018-8-3 11:34:31

天天笑 发表于 2018-8-3 11:14
这个有试过，会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True


https://www.autoitscript.com/forum/topic/189697-inserting-a-pdf-file-as-object-in-excel/

查看完整版本: AU3 用VBA插入物件都Excel的语句是怎样的