使用AutoHotkey讀取Excel檔案的簡單說明

有網友詢問如何使用AutoHotkey讀取Excel檔，稍稍研讀了一下文件，簡述如本文。

1. 使用ComObjCreate來建立Excel物件。

;;FileSelectFile, Path  ;; 可以用FileSelectFile開啟檔案總管來取要操作的檔案
  sPath := "e:\excel\test1.xls"
  oSheet := ComObjCreate("Excel.Application")
  oSheet.Workbooks.Open(sPath)  ; 開啟已存在的Excel檔案
  oSheet.Visible := True

2. 用Excel物件.Range("A1").value將文字存入A1儲存格。

oSheet.Range("A1").Value := "Excel測試!"  ; set cell 'A1' to a string
  sNewValue := "Excel測試!"
  oSheet.Range("A1").Value := sNewValue  ; set cell to a variable

3. 將值寫入A行有內容的儲存格。A_Index是預設的迴圈計數器，由1遞增。

sNewValue := "測試資料"
  while (oSheet.Range("A" . A_Index).Value != "") {
    oSheet.Range("A" . A_Index).Value := sNewValue
  }

4. 將17個值寫入第6橫列。

sRow := "6"
  Columns := Object(1,"A",2,"B",3,"C",4,"D",5,"E",6,"F",7,"G",8,"H",9,"I",10,"J",11,"K",12,"L",13,"M",14,"N",15,"O",16,"P",17,"Q") ;array of column letters
  For Key, Value In Columns
    oSheet.Range(Value . sRow).Value := sNewValue  ; set values of each cell in a row

5. 依橫列數讀取有內容的A行到E行。

Loop, 5 {
  sColumn := Chr(A_Index+64)  ;; convert 1 to A, 2 to B, etc...
  ;; MsgBox %sColumn%
  while (oSheet.Range(sColumn . A_Index).Value != "") {
    cell := oSheet.Range(sColumn . A_Index).Value
    MsgBox (%sColumn%.%A_Index%)=%cell%
  }
}

參考

• Basic Ahk_L COM Tutorial for Excel
• 範例測試檔 test1.ahk 下載

＃＃

您可能也會有興趣的類似文章

• AutoHotkey的Excel.Application操作重點 (0則留言, 2019/11/08)
• 用AutoHotkey批次快速轉檔：使用GUI圖形介面 (0則留言, 2019/10/20)
• AutoHotkey輸出中文的方法 (19則留言, 2008/03/01)
• AHK63｜AutoHotkey V2 語言概述＃1－字串、熱字串與變數 (0則留言, 2024/03/30)
• AutoHotkey腳本的４種除錯方法（AHK #5） (0則留言, 2019/05/25)
• [AHK＃51] 偵測並啟動Windows服務 (0則留言, 2022/06/05)
• 幾個AutoHotkey的實用範例：音量控制、滾輪回上層與語音功能（AHK #7） (3則留言, 2019/06/05)
• AutoHotkey－網頁自動化Selenium WebDriver由實例學習常用功能(使用XPATH CSS Explorer擴充) (2則留言, 2019/11/13)
• [Tools] 操作熱鍵與熱字串的超便利工具：AutoHotKey (13則留言, 2005/04/29)
• 改寫AutoHotkey輸出中文字串的寫法 (4則留言, 2009/06/20)
• 輕鬆學會彈指神功－揭露AutoHotkey絕技 (63則留言, 2008/04/10)
• AutoHotkey－網頁自動化Selenium WebDriver安裝 (5則留言, 2019/11/10)
• AHK59｜使用VS Code開發AutoHotkey－編輯、執行與除錯 (0則留言, 2024/02/11)
• 新版AutoHotkey轉換工具ahk2exe的圖形介面操作步驟 (2則留言, 2013/04/21)
• [AHK＃58] 擷取豆瓣電影網的超簡單AutoHotkey爬蟲腳本程式 (0則留言, 2023/03/04)