不装MS Office,如何实现对Excel的操作???

邪恶海盗 · 发表于 2012-8-16 20:59:48

本帖最后由邪恶海盗于 2012-8-16 21:20 编辑

如题,打算用AU3写个工具,用于计算并将结果保存至Excel,但我一直用WPS Office,不知道AU3能否实现???

咋不能插图???
权限不够还是???

xms77 · 发表于 2012-8-16 21:27:07

回复 1# 邪恶海盗
不装MS office的话，运行肯定是不行的。我也是这个问题

header · 发表于 2012-8-16 21:33:27

读可以用msado 如果只是写的话，直接写成空格分割的文本格式 excel也可以打开

邪恶海盗 · 发表于 2012-8-16 21:45:44

回复 3# header

这样地话不就是文本文档了???

netegg · 发表于 2012-8-17 01:59:02

sqlite去搞

邪恶海盗 · 发表于 2012-8-17 12:53:03

sqlite去搞
netegg 发表于 2012-8-17 01:59

求指导...

xms77 · 发表于 2012-8-17 22:05:08

回复 5# netegg
蛋哥，同求指导，也想知道怎样做！

netegg · 发表于 2012-8-19 01:11:59

回复 7# xms77
具体的参考http://www.connectionstrings.com/excel#85，使用对应连接字就行了，剩下的就是sqlite的活了

kevinch · 发表于 2012-8-19 12:23:22

sql操作excel要求有点高，标准二维表格，不能有合并单元格，数据从第一行开始，可以有标题行，估计多数人的表格都不符合这个要求

邪恶海盗 · 发表于 2012-8-19 20:26:34

sql操作excel要求有点高，标准二维表格，不能有合并单元格，数据从第一行开始，可以有标题行，估计多数人的 ...
kevinch 发表于 2012-8-19 12:23

问题不是一般的大,光合并单元格这一项就几乎全杀了...

netegg · 发表于 2012-8-20 00:01:28

回复 9# kevinch
只是根据楼主的问题而已，如果考虑所有情况的话，不装excel貌似根本不可能

楼上风云 · 发表于 2012-8-20 01:58:12

回复 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

楼上风云 · 发表于 2012-8-20 02:00:54

回复 1# 邪恶海盗
插图，请在编辑时选择高级模式，点击图片插入按钮，即可。
12楼的脚本，是对WPS的表格ET对象的引用示例。

邪恶海盗 · 发表于 2012-8-20 22:33:09

回复邪恶海盗
插图，请在编辑时选择高级模式，点击图片插入按钮，即可。
12楼的脚本，是对WPS的表格 ...
楼上风云发表于 2012-8-20 02:00

没有选择选项,点插图后下面框里是空白的...

看来还是考虑文本文档吧,就是查看和编辑没有Excel方便...

		自动登录	找回密码
密码			加入

[AU3基础] 不装MS Office,如何实现对Excel的操作???

相关帖子