excel vbaを使って同じフォルダー内のファイルを開きたい

Question

前提・実現したいこと

excel2013でVBAを使って、フォルダー内のファイルを全て開き、マクロを記録したファイルのデータを開いた他のファイルにコピーしたいと考えています。、フォルダー内のファイルを開くところまでコードを記入したのですが、フォルダーネームを定義するところで、以下のエラーメッセージが出ました。

発生している問題・エラーメッセージ

コンパイルエラー　引数エラーメッセージ　がLeft関数に対して出ました。

該当のソースコード

ソースコード
Sub Macro5()
'
' Macro5 Macro
'

'
Dim FolderName As String
Dim index As Integer
Dim FileName As String
FolderName = Application.GetOpenFilename
If FolderName = "False" Then
Exit Sub
End If

index = InStrRev("C:\Users***\Documents\macro練習用\", "\")
FolderName = Left("C:\Users***\Documents\macro練習用\" & index)
FileName = Dir("C:\Users***\Documents\macro練習用\" & "*.xlsx")

Do While FileName = ""

Workbooks.Open FileName = Dir("C:\Users***\Documents\macro練習用\" & "*.xlsx*")
 
 
Loop

End Sub

試したこと

indexで引数を記入していると、私は理解していたので、引数が足りないの意味がわからず、indexを"""で囲んでみましたがエラーメッセージは変わりませんでした。

補足情報（FW/ツールのバージョンなど）

このエラーを解決したく、よろしくお願いします。

Comments

[crowmt]

InStrRevが返すINDEXは何を意味すると考えていますか？　LEFT関数はどういうものとして考えていますか？　また、「フォルダー内のファイル」は「Application.GetOpenFilename」で選んだファイルのあるフォルダを指していますか？　その場合、「"C:\Users\*\Documents\macro練習用\"」と固定フォルダを指定しているのはなぜでしょうか。

[meg_]

エラーメッセージをそのまま全て載せていただけませんか？

[doridori17]

エラーメッセージは「コンパイルエラー　引数は
省略できません」です。

[doridori17]

InStrRevが返すINDEXは、フォルダー名を文字位置を数で返していると考えていました。LEFT関数は検索埼左から指定数の文字列を返すものと考えています。「Application.GetOpenFilename」と「"C:\Users\*\Documents\macro練習用\"」は同じものと考えていました。

[crowmt]

承知しました。個々は分かっているようですが、変数や組み立て方が理解できていない感じですね。

Answer 1

質問の答えだけですと

FolderName = Left("C:\Users*\Documents\macro練習用\" & index)

↓

FolderName = Left("C:\Users*\Documents\macro練習用\", index)

ですが、変数の意味合いがなくなっています。

ソース内にコメントしていますのでご確認ください。
デバッグしながら１行１行意味を理解するようにすると先に進みやすくなると思います。

Sub Macro5()
'
' Macro5 Macro
'

'
    Dim FolderName As String
    Dim index As Integer
    Dim FileName As String
    
    FolderName = Application.GetOpenFilename ' ← FolderName = "C:\Users*\Documents\macro練習用\test.xlsm"
                                             '    仮にtest.xlsmというファイルを選択したとする
        If FolderName = "False" Then
    Exit Sub
    End If
    
    index = InStrRev(FolderName, "\")        ' ← 後ろから\を探し、その位置をindexに返す index=30
    FolderName = Left(FolderName , index) '←フォルダパスを抜き出す　左から30文字をFileNameにセット
    'FolderName = "C:\Users*\Documents\macro練習用\"
    
    FileName = Dir(FolderName & "*.xlsx") '← フォルダの最初のExcelファイルを取得
    
    Do While FileName <> "" '← フォルダ内のファイルがなくなるまで回す（つもりと思われる）
                            ' FileName = "" ではファイル名がない時にWhileするとなるので矛盾する
    
        ' ↓ファイルを開くのと、フォルダ内の次のファイルを取得するのがごちゃ混ぜになっている
        '   この先はまだ考えていないと思われるので省略
        Workbooks.Open FileName = Dir("C:\Users***\Documents\macro練習用\" & "*.xlsx*")

    Loop

End Sub

Comments

[doridori17]

ありがとうございます。一行ずつデバックして進んだので、indexの意味がわかりました。フォルダーが開くところまできたので、ファイルを開くコードを自分で考えてみます。変数と組み合わせは理解するとできることが増えそうなので、さらに調べてみます。大変助かりました。

。

[crowmt]

ある程度解消できたようで何よりです。質問的にはまだ解決していないと思われますが、調査に時間がかかるようでしたら一旦クローズされた方がいいかと思います。

Answer 2

質問者様が下記コードでやりたいことが"C:\Users*\Docu～"から末尾の「\」を取り除きたいことだとすると、

FolderName = Left("C:\Users*\Documents\macro練習用\" & index)

下記で出来ます。

FolderName = Mid("C:\Users*\Documents\macro練習用\", 1, index - 1)