[算表] 大量excel檔案改資料問題？

看板Office作者ljuber (即戰力)時間18年前 (2007/09/03 22:01)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

軟體: Microsoft Excel 2003 版本: 2003 我有大量的excel檔案想要改其中幾個字例如臺中改成台中我google到了一個網站 http://www.pczone.com.tw/vbb3/thread/5/42899/ 找到下面的方法：在還沒找到軟體之前, 還是寫個程式試試吧... -_-|| 以 Excel 檔案為例, 假設檔案都放在 D:\Temp 資料夾之下, 要把其中所有 Excel 檔中的 aaa 取代為 bbb. 磁碟/檔案的處理不外乎 Dir函數和 Filesystem Object 兩種方法. 方法一. 使用 Dir 函數 Sub 取代一大堆() 　p = "D:\Temp\" 　f = Dir(p & "*.xls") 　Do While f <> "" 　　Workbooks.Open p & f 　　For Each sh In Worksheets 　　sh.Cells.Replace "aaa", "bbb", xlPart 　　Next 　　ActiveWorkbook.Close True 　　f = Dir 　Loop End Sub 方法二. 使用 Filesystem Object Sub 取代一大堆() 　Set fs = CreateObject("Scripting.FileSystemObject") 　Set fd = fs.GetFolder("D:\Temp") 　For Each f In fd.Files 　　If fs.GetExtensionName(f.Name) = "xls" Then 　　Workbooks.Open f.Path 　　For Each sh In Worksheets 　　sh.Cells.Replace "aaa", "bbb", xlPart 　　Next 　　ActiveWorkbook.Close True 　　End If 　Next End Sub 註: 上述範例須在 Excel 執行. 不過我不知道怎麼在excel下面運行這程式？是利用巨集嗎?? 可否指導一下...謝謝或者有其他小軟體可以推薦使用的.... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.73.252.129