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

天天笑

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

chzj589

天天笑 发表于 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

你的txt文本呢？

天天笑

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

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

chzj589

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

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

天天笑

chzj589 发表于 2018-8-2 17:55
没有txt文本，怎么插入Excel？
读取txt文本写入Excel，是这个意思？

只需要将附件内的三个txt档案插入到Excel sheet里面就可以了，实现后如下图：

chzj589

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

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

天天笑

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

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

chzj589

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

天天笑

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

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

chzj589

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

天天笑

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

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

kk_lee69

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

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


請善用 錄製巨集 (宏)

天天笑

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:14
这个有试过，会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True

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

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

kk_lee69

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

https://www.autoitscript.com/for ... as-object-in-excel/