找回密码
 加入
搜索
查看: 6159|回复: 21

[AU3基础] AU3 用VBA插入物件都Excel的语句是怎样的

  [复制链接]
发表于 2018-8-2 11:41:15 | 显示全部楼层 |阅读模式
要把txt文本插入到Excel,应该怎样用AU3结合VBA操作。
先谢过。
发表于 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
发表于 2018-8-2 15:52:47 | 显示全部楼层
你的txt文本呢?





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2018-8-2 16:07:22 | 显示全部楼层
chzj589 发表于 2018-8-2 15:52
你的txt文本呢?

我表达错误了。
是直接把TXT档案插入到Excel里面,不用将里面的内容提取出来
发表于 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里面就可以了,实现后如下图:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 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里面去
发表于 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楼图片就好
发表于 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里面就可以
像插入物件那样子插进去
发表于 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
发表于 2018-8-3 11:30:44 | 显示全部楼层
天天笑 发表于 2018-8-3 11:14
这个有试过,会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True

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

所以你的重點應該是 找  AU3 與 OLEObjects.Add 的關係 轉換方法
发表于 2018-8-3 11:34:31 | 显示全部楼层
天天笑 发表于 2018-8-3 11:14
这个有试过,会报错。
$excel=ObjCreate("excel.application")
$excel.visible=True

https://www.autoitscript.com/for ... as-object-in-excel/
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 05:53 , Processed in 0.078948 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表