- 帖子
- 44
- 主題
- 22
- 精華
- 0
- 積分
- 79
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-1-22
- 最後登錄
- 2017-5-9
|
因工作需要多張工作表一次取代，故求解以下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 |
|
發表於 2013-10-8 23:09
| 
