[算表] 多檔案取代格式vba問題
軟體:Excel
版本:2010
因工作需要多張工作表一次取代，故求解以下vba寫法，
但置換其中一欄為06-2013，置換成07-2013，
但轉換則一直跑到日期格式：2013/7/1，
實際以取代功能作業則不會，能否請教以下vba寫法需加入什麼參數，
才能讓格式不會跑掉。
Sub Macro1()
Dim nowworkbook As String '檔案名稱
Dim s As String '被取代的字串
Dim d As String '取代過的字串
Dim strFileName As String '讀取的檔案名稱
nowworkbook = Excel.ActiveWorkbook.Name
n = 2
strFileName = Cells(n, 1)
While strFileName <> ""
Workbooks.Open Filename:=Excel.ActiveWorkbook.Path & "\" & strFileName
For j = 1 To Sheets.Count
Sheets(j).Select
i = 2
While Windows(nowworkbook).ActiveSheet.Cells(i, 2) <> ""
s = Windows(nowworkbook).ActiveSheet.Cells(i, 2)
d = Windows(nowworkbook).ActiveSheet.Cells(i, 3)
Cells.Replace What:=s, Replacement:=d
i = i + 1
Wend
Cells(1, 1).Select
Next
n = n + 1
strFileName = Sheet1.Cells(n, 1)
Wend
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.231.34.160
→
10/09 00:12, , 1F
10/09 00:12, 1F
→
10/09 00:36, , 2F
10/09 00:36, 2F
→
10/09 00:51, , 3F
10/09 00:51, 3F
→
10/09 00:51, , 4F
10/09 00:51, 4F
→
10/09 02:59, , 5F
10/09 02:59, 5F
→
10/09 22:04, , 6F
10/09 22:04, 6F
→
10/09 22:05, , 7F
10/09 22:05, 7F
→
10/10 02:03, , 8F
10/10 02:03, 8F
推
10/10 06:15, , 9F
10/10 06:15, 9F
→
10/10 06:19, , 10F
10/10 06:19, 10F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
