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

邪恶海盗

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

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

xms77

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

header

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

邪恶海盗

回复 3# header


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

netegg

sqlite去搞

邪恶海盗

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

    求指导...

xms77

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

netegg

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

kevinch

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

邪恶海盗

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

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

netegg

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

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

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