不装MS Office,如何实现对Excel的操作???
本帖最后由 邪恶海盗 于 2012-8-16 21:20 编辑如题,打算用AU3写个工具,用于计算并将结果保存至Excel,但我一直用WPS Office,不知道AU3能否实现???
咋不能插图???
权限不够还是??? 回复 1# 邪恶海盗
不装MS office的话,运行肯定是不行的。我也是这个问题 读可以用msado 如果只是写的话,直接写成空格分割的文本格式 excel也可以打开 回复 3# header
这样地话不就是文本文档了??? sqlite去搞 sqlite去搞
netegg 发表于 2012-8-17 01:59 http://www.autoitx.com/images/common/back.gif
求指导... 回复 5# netegg
蛋哥,同求指导,也想知道怎样做! 回复 7# xms77
具体的参考http://www.connectionstrings.com/excel#85,使用对应连接字就行了,剩下的就是sqlite的活了 sql操作excel要求有点高,标准二维表格,不能有合并单元格,数据从第一行开始,可以有标题行,估计多数人的表格都不符合这个要求 sql操作excel要求有点高,标准二维表格,不能有合并单元格,数据从第一行开始,可以有标题行,估计多数人的 ...
kevinch 发表于 2012-8-19 12:23 http://www.autoitx.com/images/common/back.gif
问题不是一般的大,光合并单元格这一项就几乎全杀了... 回复 9# kevinch
只是根据楼主的问题而已,如果考虑所有情况的话,不装excel貌似根本不可能 回复 1# 邪恶海盗
网络上淘来的,供参考:
;wps表格转置
Dim $app=ObjGet('','wps.application')
Dim $table
with $app.selection.tables
if .count>0 Then
$table=.item(1)
Else
MsgBox(0,'未选择表格','即将退出',5)
Exit
EndIf
EndWith
Dim $et
SplashTextOn("稍候!",'正借用 金山表格装置功能',300,100)
With $table
.range.copy()
$et=ObjCreate('et.application')
$et.visible=-1
$et.workbooks.add
EndWith
With $et
.activesheet.paste() ;到et
.Selection.Copy
.Cells(.Selection.Rows.Count + 1, 1).PasteSpecial(-4104, -4142, False, true) ;转置
.CutCopyMode = 0
.Selection.Copy
$tbRng=$table.range
$table.delete
$tbRng.paste() ;到wps
.CutCopyMode = 0
.activeworkbook.close(false)
.quit()
SplashOff()
EndWith 回复 1# 邪恶海盗
插图,请在编辑时选择 高级模式,点击 图片插入按钮,即可。
12楼的脚本,是对WPS的表格ET对象的引用示例。 回复邪恶海盗
插图,请在编辑时选择 高级模式,点击 图片插入按钮,即可。
12楼的脚本,是对WPS的表格 ...
楼上风云 发表于 2012-8-20 02:00 http://www.autoitx.com/images/common/back.gif
没有选择选项,点插图后下面框里是空白的...
看来还是考虑文本文档吧,就是查看和编辑没有Excel方便...
页:
[1]