1つのフォルダに複数の異なるフォルダにある複数のExcelファイルを編集する

Question

フォルダ内に異なる名前を持つ200個のフォルダがあります。今、別の名前を持つ各フォルダには、マクロのExcelファイル（.xlsm）があります。私は別のファイルで一度にすべてのファイルを編集しようとしています。コードは次のようになります。

Sub Button1_Click() 

Dim wb  As Workbook 
Dim ws  As Excel.Worksheet 
Dim strPath As String 
Dim strFile As String 

'Get the directories 
strPath = "C:\Users\generaluser\Desktop\testing main folder\" 
strFile = Dir(strPath) 

'Loop through the dirs 
Do While strFile <> "" 

    'Open the workbook. 
    strFileName = Dir(strPath & strFile & "*.xlsm") 
    'Open the workbook. 
    Set wb = Workbooks.Open(Filename:=strPath & strFile & "\" & strFileName , ReadOnly:=False) 

    'Loop through the sheets. 

    Set ws = Application.Worksheets(1) 

    'Do whatever 
    ws.Range("A1").Interior.ColorIndex = 0 



    'Close the workbook 
    wb.Close SaveChanges:=True 

    'Move to the next dir. 
    strFile = Dir 
Loop 

End Sub 

これは機能しません。私はそれを調整しようとしましたが、私は何もしないか、エラーを引き起こします。誰かがこのコードを動作させる手助けをしてくれますか？ （また、 "testing main folder"は、.xlsmファイルを保持する200個の他のフォルダを保持する私のデスクトップ上のフォルダです）

Answer 1

Option Explicitをモジュールの先頭に置きます。いくつかのコンパイルエラーが発生し、そのうちの1つはstrFileNameが宣言されていないということです。このはとなります。問題が読んだときにおおよそ同じ意味を持つ2つの変数名を使用していて、混乱しているためです。

変数の修正が完了したら、Dir functionのドキュメントをご覧ください。 2番目の問題は、ループ内でDirを複数回呼び出していることです。つまり、結果をスキップしています。

それはより多くのこのようなものになります。

Dim wb As Workbook 
Dim ws As Excel.Worksheet 
Dim file As String 

'path never changes, so make it a Const 
Const path = "C:\Users\generaluser\Desktop\testing main folder\" 
'This returns the first result. 
file = Dir$(path & "*.xlsm") 

Do While file <> vbNullString 
    Set wb = Workbooks.Open(Filename:=path & file, ReadOnly:=False) 
    Set ws = Application.Worksheets(1) 
    'Do whatever 
    wb.Close SaveChanges:=True 
    'This returns the next result, or vbNullString if none. 
    file = Dir$ 
Loop