送信済トレイから反映させるための基礎

指定したファイルに入っている.txtのファイル名を参照して、ExcelのA列のセルと照らし合わせて同じものがあったら、その同じものと同じ行にあるセルの中でC列のセルに、「対応済」という文字をいれられるようにしたい。＞確認済み

Sub CheckTxtFiles()
  Dim folderPath As String
  Dim fileName As String
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim lastRow As Long
  Dim i As Long
  Dim baseName As String
  
   ' フォルダのパス
  folderPath = "C:"
  
   ' 今開いているブックのアクティブシートを対象にする
  Set wb = ThisWorkbook
  Set ws = wb.ActiveSheet
  
   ' A列の最終行を調べる
  lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
  
   ' フォルダ内の .txt ファイルを順番に取得
  fileName = Dir(folderPath & "*.txt")
  Do While fileName <> ""
      ' ファイル名から拡張子を除いた部分を取得
      baseName = Left(fileName, Len(fileName) - 4)
      
      ' A列を上からチェック
      For i = 1 To lastRow
          If ws.Cells(i, 1).Value = baseName Then
               ws.Cells(i, 3).Value = "対応済"
          End If
      Next i
      
      ' 次のファイルへ
      fileName = Dir
  Loop
End Sub