作者ljuber (即战力)
看板Office
标题[算表] 大量excel档案改资料问题？
时间Mon Sep 3 22:01:20 2007
软体: 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
1F：→ ljuber:我自己研究出来了 先录制巨集然後再修改贴上那些程式码就ok 09/03 22:27