VBAで指定フォルダ内の全CSVファイルを同時選択するマクロの作成方法

VBAを使用して、指定したフォルダ内にあるすべてのCSVファイルを同時に選択するマクロを作成する方法について解説します。これにより、大量のCSVファイルを一度に操作したり、他の処理を効率的に行うことができます。

VBAでフォルダ内のCSVファイルを同時選択する方法
コードの例
コードの説明
さらに進んだ操作：ファイルを開いて操作する
まとめ

VBAでフォルダ内のCSVファイルを同時選択する方法

VBAを使って、特定のフォルダ内にあるすべてのCSVファイルを自動的に選択するマクロを作成するには、以下の手順を参考にしてください。まず、指定したフォルダのパスを設定し、その中にあるCSVファイルを検索して選択するコードを書きます。

コードの例

以下は、フォルダ内のすべてのCSVファイルを検索して選択するVBAコードの例です。このコードは、指定されたフォルダ内のCSVファイルをループで確認し、それを選択します。

Sub SelectCSVFiles() 
    Dim folderPath As String 
    Dim fileName As String 
    Dim ws As Worksheet 
    Dim rowNum As Long 

    ' フォルダのパスを設定
    folderPath = "C:\YourFolderPath\" 

    ' フォルダ内のCSVファイルを取得
    fileName = Dir(folderPath & "*.csv") 

    ' 新しいワークシートを作成
    Set ws = ThisWorkbook.Sheets.Add 
    rowNum = 1 

    ' ファイルを検索し、CSVファイルを選択
    Do While fileName <> "" 
        ws.Cells(rowNum, 1).Value = fileName 
        rowNum = rowNum + 1 
        fileName = Dir 
    Loop 
End Sub

コードの説明

このVBAコードでは、指定されたフォルダ内のすべてのCSVファイルを取得し、ワークシートにそのファイル名を表示します。`Dir`関数を使用して、フォルダ内のファイルを検索し、`Do While`ループを使ってCSVファイルを順に処理します。

このコードはCSVファイルを「選択」するという意味ではなく、ファイル名をワークシートにリストアップする処理ですが、リストアップされたファイルを使ってさらに別の操作（例えば、ファイルを開く、編集する、まとめて処理する）を行うことができます。

さらに進んだ操作：ファイルを開いて操作する

CSVファイルを選択するだけでなく、実際にファイルを開いて操作を行いたい場合は、次のようにコードを変更します。

Sub OpenCSVFiles() 
    Dim folderPath As String 
    Dim fileName As String 

    ' フォルダのパスを設定
    folderPath = "C:\YourFolderPath\" 

    ' フォルダ内のCSVファイルを取得
    fileName = Dir(folderPath & "*.csv") 

    ' ファイルを開いて操作
    Do While fileName <> "" 
        Workbooks.Open folderPath & fileName 
        ' 必要な操作をここに追加
        fileName = Dir 
    Loop 
End Sub

このコードでは、フォルダ内のすべてのCSVファイルを順番に開いて処理を行うことができます。`Workbooks.Open`を使ってファイルを開き、ファイルごとに必要な操作（例えば、データの加工や保存）を追加することができます。