コードは以下の通り。 Sub ConvertHTMLtoExcel() Dim FolderPath As String Dim HTMLFile As String Dim ExcelApp As Object Dim wb As Object ' 変換元のHTMLファイルが格納されているフォルダのパスを指定します FolderPath = "C:\Your\Folder\Path\" ' パ…