VBAのIE制御

Sub fileNameAll(Optional sheetName As String = "mySheet", _
                Optional pathName As String = "myPath", _
                Optional col As Variant = "A", _
                Optional row As Integer = 2)
                
　If sheetName = "mySheet" Then: sheetName = ActiveSheet.Name 'シート名
　If pathName = "myPath" Then: pathName = ActiveWorkbook.Path 'フォルダパス

　strArray = Split(pathName & folderList(pathName), ",")
    
　'指定フォルダ内のすべてのファイル情報取得
　For i = LBound(strArray) To UBound(strArray)
　　pathName = strArray(i)
　　Call fileName(sheetName, pathName, col, row)
　Next i

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

引数すべてが任意項目となります。

「sheetName」には、ファイル名を入力するシート名文字列を入力します。
初期値は開いているシート名となります。

「pathName」には、ファイル名を抽出するフォルダのパスを入力します。
初期値は実行ファイルと同じフォルダ内のパスになります。
また、こちらのフォルダ内にあるサブフォルダも対象となります。

「col」には、入力開始する列の文字列を入力します。A列に出力される場合は「A」を指定してください。
初期値は「A」が設定されています。

「row」には、入力開始する行番号を入力します。初期値は「2」が設定されています。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次