REN
2002-05-03, 02:16 AM
小弟有大量的word和excel檔,其中要把某些字串改成別的字串,比如所有的aaa要改成bbb
請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我!
贊助商連結
請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我!
贊助商連結
贊助商連結 REN 2002-05-03, 02:16 AM 小弟有大量的word和excel檔,其中要把某些字串改成別的字串,比如所有的aaa要改成bbb 請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我! 贊助商連結 Oyazi 2002-05-03, 02:29 AM 最初由 REN 發表 小弟有大量的word和excel檔,其中要把某些字串改成別的字串,比如所有的aaa要改成bbb 請問有沒有軟體可以做到,或是如何改才能有效快速,請幫幫我! 用「編輯」裡的「取代」就好啦... Word和Execl裡都有呀... REN 2002-05-03, 08:41 AM 那我不是要一個一個檔案開啟,我有上萬個檔案要改耶 最初由 Oyazi 發表 用「編輯」裡的「取代」就好啦... Word和Execl裡都有呀... leonchou 2002-05-04, 04:15 AM 在還沒找到軟體之前, 還是寫個程式試試吧... -_-|| 以 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 2002-05-08, 12:30 PM 看不懂..先COPY起來一定有機會用得到,有空執行一次看看 jiwoo 2002-05-09, 12:25 AM 最初由 sliver 發表 看不懂..先COPY起來一定有機會用得到,有空執行一次看看 :jump2: 好個聰明的傢伙 呵呵~~ gregchen 2002-05-09, 10:25 PM Leon Chou兄有沒有考慮出書呢?這樣更能博施眾濟:circle: dolphins 2002-05-10, 04:18 AM 真正是厲害 佩服佩服 |
|