エクセルマクロでPNGファイルを検索する方法

日付:

エクセルマクロでPNGファイルを検索する方法

1. はじめに

　エクセルのマクロを使用して、特定のフォルダ内にある PNG ファイルを検索する方法を解説します。この手順は、VBA（Visual Basic for Applications）を使って行います。

2. コードの解説

以下が、PNG ファイルを検索するためのサンプルコードです。

Sub SearchPNGFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Long
    
    ' マクロが実行されているフォルダのパスを取得
    folderPath = ThisWorkbook.Path
    
    ' 新しいワークブックを作成
    Set wb = Workbooks.Add
    Set ws = wb.Worksheets(1)
    
    ' ヘッダー行を追加
    ws.Cells(1, 1).Value = "PNG ファイル名"
    
    ' フォルダ内のすべてのファイルを検索
    fileName = Dir(folderPath & "\*.png")
    i = 2
    Do While fileName <> ""
        ws.Cells(i, 1).Value = fileName
        i = i + 1
        fileName = Dir
    Loop
    
    ' ワークブックを保存
    wb.SaveAs folderPath & "\PNGファイル一覧.xlsx"
    wb.Close SaveChanges:=False
    
    MsgBox "PNGファイル一覧をエクセルファイルに保存しました。", vbInformation
End Sub

解説

  • folderPath 変数には、マクロが実行されているフォルダのパスが格納されます。
  • 新しいワークブックを作成し、その最初のワークシートを取得します。
  • ヘッダー行を追加して、ファイル名を表示するための列を作成します。
  • Dir 関数を使用して、フォルダ内のすべての PNG ファイルを検索します。
  • ファイル名をワークシートに書き込み、次のファイルを検索します。
  • 最後に、ワークブックを保存して閉じます。

3. 実行方法

  1. エクセルを開きます。
  2. Alt + F11 キーを押して VBA エディタを開きます。
  3. 新しいモジュールを挿入し、上記のコードを貼り付けます。
  4. マクロを実行するためのボタンを作成し、クリックして実行します。

これで、同じフォルダ内のすべての PNG ファイルがエクセルファイルに一覧表示されます。必要に応じてファイル名や保存先を変更してください。

注意: マクロを実行する前に、フォルダ内に PNG ファイルが存在することを確認してください。