使用vba的多個excel文件的獨特動作

Question

我正試圖在一個文件夾中同時進行一個簡單的動作（例如將「。」）替換爲多個excel文件。這裏已經解決了同樣的問題。爲打開，但不能用於其他目前我的文件夾在我的當前文件

Sub LoopThroughFiles() 
    Dim FolderPath As String, FileName As String 
FolderPath = "C:\my_folder\" 

FileName = Dir(FolderPath & "*.xlsx") 
    While (file <> "") 
     Workbooks.Open(FolderPath & FileName) 

     Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _ 
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

     Workbooks(FileName).Close SaveChanges:=True 
     file = Dir 
    Wend 
End Sub 

宏作品：但解決方案並不在我的情況下工作。你有什麼想法我可以解決這個問題嗎？

感謝您的幫助！

Answer 1

您不打開新文件。您只需循環瀏覽文件夾，但所有Cell.Replace語句都會在當前工作表上執行。在你的循環中使用它：

Workbooks.Open Filename:= ...