編者：amnesiac 首發(fā)：官方論壇之中文版
注：本文改寫自微軟知識(shí)庫文章拔疚，待找到源網(wǎng)址后補(bǔ)上荞彼。
注2：本文中代碼有誤觉既，請(qǐng)參閱已修正的論壇版本世杀。不過如果您對(duì)自己有信心或有豐富的腳本經(jīng)驗(yàn)阀参，挑戰(zhàn)自己繼續(xù)往下看吧。從錯(cuò)誤中學(xué)習(xí)常常效果更好瞻坝，你信嗎蛛壳？
Office 家族系列軟件功能強(qiáng)大，更強(qiáng)大的是通過相應(yīng)的對(duì)象模型可以把這些軟件腳本化所刀，唯一的問題可能是每個(gè)軟件都有自己專用對(duì)象模型衙荐。例如如果要操作 Word 或 Excel，您必須學(xué)習(xí)兩種對(duì)象模型浮创，這樣并不是說學(xué)習(xí)它們很難忧吟，意思是例如知道如何添加數(shù)據(jù)到 Word 文檔并不能給您在添加數(shù)據(jù)到 Excel 文檔時(shí)帶來多少幫助。
所以在一些只需要執(zhí)行基本操作的情況下斩披，使用 ADO 操作 Excel 文檔可能是較好的選擇溜族。比起 Excel 對(duì)象模型讹俊，使用 ADO 具有以下優(yōu)點(diǎn)：
- ADO 對(duì)象模型簡單易學(xué)。
- ADO 且可用于 CSV煌抒、TSV仍劈、xls、mdb 等多種文件類型摧玫。
- ADO 中通過 SQL 查詢可以方便地進(jìn)行過濾和聚合等耳奕。
- 使用 ADO 是在進(jìn)程內(nèi)執(zhí)行绑青，速度快（請(qǐng)參閱 COM 對(duì)象的進(jìn)程內(nèi)诬像、外運(yùn)行）。
- 無需安裝 Excel闸婴，這可節(jié)省了一筆不小的費(fèi)用（基于國情坏挠，這點(diǎn)放最后）。
測試文件樣本
一般而言邪乍，除了需要通過腳本演示在 Excel 中進(jìn)行的操作和使用 Excel 中專有的一些高級(jí)功能外降狠，基本上 ADO 都可以滿足要求。下面將通過一個(gè)簡單的電子表格說明如何使用 ADO 訪問電子表格庇楞。（如果一定還要尋找其他適合使用 Excel 的原因榜配，那么很可能是您對(duì) Excel 對(duì)象模型很熟悉，而目前對(duì) ADO 還不大了解吕晌，這樣看過本文后也許會(huì)給您帶來較大的收獲蛋褥。）
下面是一個(gè)簡單的電子表格文件 C:\Scripts\Test.xls：
具體的內(nèi)容結(jié)構(gòu)：一個(gè)標(biāo)簽為 Name，另一個(gè)為 Number睛驳。為了確保您能對(duì) Excel 電子表格使用數(shù)據(jù)庫查詢烙心，必須讓電子表格符合簡單的風(fēng)格：讓第一行作為標(biāo)題行，從第二行開始為數(shù)據(jù)乏沸，并且不要跳過任何行或列淫茵。同時(shí)為了讓代碼簡單些，在標(biāo)題中不要包含空格蹬跃，例如使用 SocialSecurityNumber 作為列標(biāo)題代替 Social Security Number匙瘪。
訪問樣本數(shù)據(jù)
現(xiàn)在我們看看使用 ADO 來訪問這樣電子表格數(shù)據(jù)的代碼：
adOpenStatic := 3
adLockOptimistic := 3
adCmdText := 0x0001
objConnection := ComObjCreate("ADODB.Connection")
objRecordSet := ComObjCreate("ADODB.Recordset")
objConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Scripts\Test.xls; Extended Properties=""Excel 8.0;HDR=Yes;"";")
objRecordset.Open("Select * FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText)
while !objRecordset.EOF
{
MsgBox, % objRecordset.Fields.Item("Name") objRecordset.Fields.Item("Number")
objRecordset.MoveNext
}
運(yùn)行代碼后結(jié)果像這樣：
A 1
B 1
C 2
D 2
E 1
F 1
代碼分析
開始部分定義了一些常量和兩個(gè)對(duì)象——ADODB.Connection 和 ADODB.Recordset，這兩個(gè)對(duì)象用來連接數(shù)據(jù)源并從中獲取數(shù)據(jù)蝶缀。這幾乎是所有 ADO 腳本中的模板了丹喻，這里不會(huì)對(duì)這部分進(jìn)行詳細(xì)的說明。
現(xiàn)在來看看接下來這行代碼扼劈，它實(shí)際上建立了到 Excel 電子表格的連接：
objConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Scripts\Test.xls; Extended Properties=""Excel 8.0;HDR=Yes;"";")
其中 Data Source 部分指定了電子表格的文件路徑和名稱驻啤。如果文件名稱中包含空格呢？仍然直接寫就行了荐吵，例如 Data Source=C:\Scripts\My Spreadsheet.xls骑冗。
注意赊瞬，您可能會(huì)把連接字符串中的 Excel 8.0 改為您電腦上安裝的 Excel 版本，但會(huì)執(zhí)行錯(cuò)誤贼涩，因?yàn)檫@里的 Excel 8.0 并非電腦上安裝的 Excel 程序的版本巧涧，而是指用來訪問 Excel 文檔提供者（Provider）的版本。
還有遥倦，其中的 HDR=Yes 表示電子表格含有標(biāo)題行谤绳，如果沒有標(biāo)題行則設(shè)置 HDR 為 No。
連接到數(shù)據(jù)源后袒哥，使用 SQL 查詢來獲取其中的數(shù)據(jù)缩筛。這是用來返回包含了電子表格中所有行的記錄集的代碼：
objRecordset.Open("Select * FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic, adCmdText)
這里只需要關(guān)心 SQL 查詢的參數(shù)，Select * FROM [Sheet1$] 是標(biāo)準(zhǔn)的 SQL 查詢堡称，選擇數(shù)據(jù)庫（工作表）中的所有字段（列）瞎抛。在查詢中指定了工作表的名稱，需要注意它的格式：工作表名稱后面附加了 $ 符且括在方括號(hào)中却紧。
操作這里得到的記錄集和操作從 SQL Server 得到的記錄集沒多大區(qū)別桐臊，因此可以用下面這些代碼簡單地顯示記錄集中每個(gè)記錄中的 Name 和 Number 字段：
while !objRecordset.EOF
{
MsgBox, % objRecordset.Fields.Item("Name") objRecordset.Fields.Item("Number")
objRecordset.MoveNext
}
任務(wù)完成了，很漂亮晓殊。
進(jìn)一步思考
您可能會(huì)產(chǎn)生這樣的疑問：不能使用 Excel 對(duì)象模型來獲取這樣的信息嗎断凶？確實(shí)可以這么做。我承認(rèn)巫俺，如果只是要顯示電子表格中的每行內(nèi)容认烁，使用 ADO 并沒有體現(xiàn)出多少好處（好處還是有的，或許您可以使用 Excel 對(duì)象模型實(shí)現(xiàn)相同的任務(wù)识藤，并比較它們的代碼砚著，不過這個(gè)不是決定性的好處）。
不過痴昧，設(shè)想一下如果我們只要顯示 Number 等于 2 的那些行呢稽穆？使用 Excel 腳本我們需要檢查每一行的 Number 是否等于 2，以決定是否顯示出來赶撰。這樣不難舌镶，但卻很麻煩，尤其當(dāng)您需要檢查多個(gè)列的時(shí)候（例如您需要尋找在 Finance 部門且頭銜為 Administrative Assistant 的所有用戶）豪娜。比較起來餐胀，通過 ADO 我們可以不用檢查電子表格中的每行，唯一需要做的只是修改 SQL 查詢瘤载，即使用類似下面的查詢就可以獲取 Number 等于 2 的所有行：
objRecordset.Open("Select * FROM [Sheet1$] Where Number = 2", objConnection, adOpenStatic, adLockOptimistic, adCmdText)
這樣我們就能得到下面的結(jié)果：
C 2
D 2
從這里可以看出否灾，在 ADO 使用 SQL 查詢進(jìn)行過濾很方便，實(shí)際上除了過濾鸣奔，還可以方便地進(jìn)行排序墨技、聚合等操作惩阶。
小結(jié)
本文中簡單介紹了使用 ADO 從 Excel 電子表格中讀取數(shù)據(jù)，主要說明了在一些情況下使用 ADO 訪問 Excel 電子表格比使用 Excel 更好的原因扣汪，實(shí)際上断楷，使用 ADO 除了能從 Excel 中獲取數(shù)據(jù)外，還可以寫入數(shù)據(jù)崭别《玻可以把 ADO 先看成一種通用數(shù)據(jù)訪問接口，詳細(xì)特性請(qǐng)參閱微軟的 ADO 手冊(cè)茅主，簡單了解可參考 ADO 教程舞痰。
對(duì)于普通用戶而言，本文缺乏背景介紹學(xué)習(xí)起來有難度暗膜，但與其他技術(shù)類似匀奏，對(duì)于這些高級(jí)技術(shù)的學(xué)習(xí)不應(yīng)局限在 AutoHotkey 自身幫助，本身也不屬于它的內(nèi)容学搜。需要自己從其他資料或語言中學(xué)習(xí)，例如 Windows API论衍、COM瑞佩、SQL、WMI坯台，這些一般都是語言獨(dú)立的炬丸。
