→ ljuber:我自己研究出來了 先錄製巨集然後再修改貼上那些程式碼就ok 09/03 22:27
軟體: 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