有網友詢問如何使用AutoHotkey讀取Excel檔,稍稍研讀了一下文件,簡述如本文。
- 使用ComObjCreate來建立Excel物件。
;;FileSelectFile, Path ;; 可以用FileSelectFile開啟檔案總管來取要操作的檔案 sPath := "e:\excel\test1.xls" oSheet := ComObjCreate("Excel.Application") oSheet.Workbooks.Open(sPath) ; 開啟已存在的Excel檔案 oSheet.Visible := True
- 用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
- 將值寫入A行有內容的儲存格。A_Index是預設的迴圈計數器,由1遞增。
sNewValue := "測試資料" while (oSheet.Range("A" . A_Index).Value != "") { oSheet.Range("A" . A_Index).Value := sNewValue }
- 將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
- 依橫列數讀取有內容的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% } }
參考
##
您可能也會有興趣的類似文章
- 使用Autohotkey開發的熱字串替換工具:Texter (1則留言, 2007/03/06)
- 支援Unicode的Autohotkey終於浮上抬面! (0則留言, 2010/10/16)
- [Tools] 撰寫AutoHotKey指令以複製檔案 (2則留言, 2005/06/11)
- 改寫AutoHotkey輸出中文字串的寫法 (4則留言, 2009/06/20)
- 新版AutoHotkey轉換工具ahk2exe的圖形介面操作步驟 (2則留言, 2013/04/21)
- [Tools] 續:撰寫AutoHotKey指令以複製檔案 (0則留言, 2005/06/12)
- AutoHotkey輸出中文的方法 (6則留言, 2008/03/01)
- [Tools] 操作熱鍵與熱字串的超便利工具:AutoHotKey (13則留言, 2005/04/29)
- 用AutoHotkey輕鬆製作螢幕小鍵盤 (14則留言, 2008/03/16)
- [AutoHotkey] 寫得不錯的AutoHotkey推薦文 (5則留言, 2007/10/31)
- PhraseExpress:凡人版的AutoHotkey [修訂] (0則留言, 2009/11/28)
- 使用EmEditor以特定編碼開檔的方法 (0則留言, 2014/03/21)
- 輕鬆學會彈指神功-揭露AutoHotkey絕技 (53則留言, 2008/04/10)
- [Tools] 常用的AutoHotKey設定 (9則留言, 2005/05/12)
- 用AutoHotkey改造特殊按鍵 (5則留言, 2008/03/19)
The post 使用AutoHotkey讀取Excel檔案的簡單說明 appeared first on 簡睿隨筆.