各位大大好
目前剛學VBA不久碰到一個迴圈的問題
背景：想要把資料夾內的所有檔案打開，重新整理過後另存新檔案名稱，每個sheet都要貼成值並存檔
不過目前的兩個迴圈的寫法，跑出結果只有第一個檔案有另存新檔並儲存成值
第二個檔案之後都只有重新整理完成並另存新檔，但內容並沒有存成值
看起來似乎是迴圈到開啟第二個檔案開始，就忽略第二個迴圈的內容
麻煩各位大大解救一下，感恩
巨集內容如下
Public Sub ReadFiles()
Dim intCount As Integer, cotSheet As Integer
Dim strReadFile As String, nameNewfile As String
intCount = 1
cotSheet = 1
strNowfile = Sheets("工作表1").Cells(intCount, 1)
nameNewfile = Sheets("工作表1").Cells(intCount, 2)
Do While (nameNewfile <> "")
Workbooks.Open Filename:="D:\BASE\" & strNowfile
ActiveWorkbook.RefreshAll
ActiveWorkbook.SaveAs Filename:="D:\BASE\History\" & nameNewfile & " " & Format(Date, "yymmdd") & ".xlsx"
Do Until cotSheet > Worksheets.Count
Sheets(cotSheet).Select
Cells.Select
Selection.Copy
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
cotSheet = cotSheet + 1
Loop
Windows(nameNewfile & " " & Format(Date, "yymmdd")).Activate
ActiveWindow.Close
intCount = intCount + 1
strNowfile = Sheets("工作表1").Cells(intCount, 1)
nameNewfile = Sheets("工作表1").Cells(intCount, 2)
Loop
從 APP 打開
X