[教程][Office]AutoHotkey使用ADOB操作EXCLE

本来想要使用AutoHotkey内置的com操作excle表格但是环境问题无法使用
然后用了比较擅长的ADOB操作excle,ADOB的缺点在于无法删除数据，优点在于可以使用sql语句进行增改查操作非常的方便。

;作者：小死猛
;脚本：AutoHotkey增删改查Excel
;博客：http:// xueahk.com/ahk-adobexcle.html
;语言：AutoHotkey1.1.22
;时间：2016年8月16日15:15:51
;SQL参考http://www.w3school.com.cn/sql/index.asp
;ADOB参考http://itlab.idcquan.com/linux/manual/database/adodb1.99.html
adOpenStatic := 3
adLockOptimistic := 3
adCmdText := 0x0001

objConnection := ComObjCreate("ADODB.Connection")
objRecordSet := ComObjCreate("ADODB.Recordset")

objConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\OneDrive\xueahk\AutoHotkey增删改查Excel\1.xlsx; Extended Properties=""Excel 8.0;HDR=Yes;"";")

;增加数据 语法INSERT INTO 表名称 VALUES (值1, 值2,....)
;objRecordset.Open("INSERT INTO [Sheet1$] VALUES (""值1"",'2')", objConnection, adOpenStatic, adLockOptimistic, adCmdText)

;删除数据 语法DELETE FROM 表名称 WHERE 列名称 = 值
;无法实现删除但是我们可以用另一种方法代替更新数据为NULL

;修改数据 语法UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值
;objRecordset.Open("UPDATE [Sheet1$] SET name='win' WHERE name='C'", objConnection, adOpenStatic, adLockOptimistic, adCmdText)

;查询数据 语法SELECT 列名称 FROM 表名称
objRecordset.Open("Select * FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText)
;objRecordset.Open("SELECT AVG(id) FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText) ;计算某列平均值
while !objRecordset.EOF
{
    MsgBox % objRecordset.Fields[0].Value
    objRecordset.MoveNext
}

<

pre class=”lang:pgsql decode:true ” title=”SQL”>SELECT * FROM habit — 查询表中所有内容
SELECT news FROM habit — 查询制定列所有内容
SELECT * FROM habit WHERE download=’http’ — 查询制定行的所有内容
SELECT news FROM habit WHERE download=’http’ — 查询指定行制定列的内容

INSERT INTO habit VALUES (‘至1′,’2′,’12313′,’123131′,’sdsfsf’) — 增加一行到表中

DELETE FROM habit WHERE news=’2′ — 删除指定行

UPDATE habit SET download=’http:// xueahk.com’ WHERE download=’http’ — 修改制定行的数据

SELECT SUM(downloads) AS ‘总和’ FROM habit — 球的制定列的总和

SELECT MAX(downloads) AS ‘总和’ FROM habit — 求得制定列中的最大值