word&excel內容文字大量代換

[REN]

小弟有大量的word和excel檔,其中要把某些字串改成別的字串,比如所有的aaa要改成bbb
請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我!

[Oyazi]

最初由 REN 發表
小弟有大量的word和excel檔,其中要把某些字串改成別的字串,比如所有的aaa要改成bbb
請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我!

用「編輯」裡的「取代」就好啦...
Word和Execl裡都有呀...

[REN]

那我不是要一個一個檔案開啟,我有上萬個檔案要改耶

最初由 Oyazi 發表

用「編輯」裡的「取代」就好啦...
Word和Execl裡都有呀...

[leonchou]

在還沒找到軟體之前, 還是寫個程式試試吧... -_-||

以 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 執行.

[sliver]

看不懂..先COPY起來一定有機會用得到，有空執行一次看看

[jiwoo]

最初由 sliver 發表
看不懂..先COPY起來一定有機會用得到，有空執行一次看看

好個聰明的傢伙 呵呵~~

[gregchen]

Leon Chou兄有沒有考慮出書呢？這樣更能博施眾濟

[dolphins]

真正是厲害
佩服佩服