【VBA】複数のHTMLファイルを一括でExcelに変換

VBA

コードは以下の通り。

Sub ConvertHTMLtoExcel()
    Dim FolderPath As String
    Dim HTMLFile As String
    Dim ExcelApp As Object
    Dim wb As Object
    
    ' 変換元のHTMLファイルが格納されているフォルダのパスを指定します
    FolderPath = "C:\Your\Folder\Path\" ' パスを適切に変更してください
    
    ' Excelアプリケーションを起動します
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Visible = True ' Excelを表示する場合はTrue、非表示にする場合はFalse
    
    ' 指定されたフォルダ内のすべてのHTMLファイルに対して処理を行います
    HTMLFile = Dir(FolderPath & "*.html")
    Do While HTMLFile <> ""
        ' 新しいワークブックを作成します
        Set wb = ExcelApp.Workbooks.Add
        
        ' HTMLファイルを開いてデータを取り込みます
        With wb.Worksheets(1).QueryTables.Add(Connection:="TEXT;" & FolderPath & HTMLFile, Destination:=Range("A1"))
            .TextFileParseType = xlDelimited
            .TextFileOtherDelimiter = ""
            .Refresh BackgroundQuery:=False
        End With
        
        ' Excelファイルとして保存します
        wb.SaveAs FolderPath & Left(HTMLFile, Len(HTMLFile) - 4) & ".xlsx", FileFormat:=51 ' xlsx形式で保存
        wb.Close False ' ワークブックを閉じます
        
        ' 次のHTMLファイルに移動します
        HTMLFile = Dir
    Loop
    
    ' Excelアプリケーションを終了します
    ExcelApp.Quit
    Set ExcelApp = Nothing
End Sub