Sub HTMLファイル内の文字列検索() Dim フォルダパス As String Dim 対象ファイル As String Dim ファイル内容 As String Dim ファイル番号 As Integer Dim 行番号 As Long ' フォルダパスを設定 フォルダパス = "C:\Path\To\Your\Folder" ' 対象のフォルダのパスに置き換えてください ' フォルダ内のHTMLファイルを処理 対象ファイル = Dir(フォルダパス & "\*.html") Do While 対象ファイル <> "" ' ファイルを開く ファイル番号 = FreeFile Open …