VFP 愛用者社區

[黃澤民]

工作上經常會用到EXCEL，但因為EXCEL是從水晶報表輸出。每次取得EXCEL的欄位時，困擾的是匯出成為EXCEL工作表的欄位位址不一致，最後只能使用搜尋某些特定關鍵詞後，再取得我要的目標欄位。

使用VBA錄製了一段巨集，發現【搜尋】的巨集是長長的一段指令。經過了一些測試，得到了以下簡單用法提供給狐友。

_obj = CREATEOBJECT("excel.application")
_file = GETFILE("xls")
_obj.Workbooks.Open(_file)
_obj.Visible = .t.
_key = "科目小計"
_obj.Cells.Find(_key).Activate.........................搜尋第一筆
_obj.Cells.FindNext(obj.ActiveCell).Activate......搜尋次一筆

[goodnight]

感謝怹的分享, 這很實用