VBA Открыть несколько файлов HTML в электронных таблицах только в рабочей книге, открытой в данный момент

Я могу думать о двух вариантах: каждый раз перемещать лист из новой книги в текущую; или посмотрите на использование Querytables.

Перемещение листа прост:

Dim wb As Workbook
For Each varFilePath In colFilePaths           'whatever your loop logic is...
        Set wb = Workbooks.Open(varFilePath)
        wb.Worksheets(1).Copy Before:=ThisWorkbook.Worksheets(1)
        wb.Close False
Next varFilePath 

Другой вариант Querytables предназначен для извлечения данных из HTML, а не для создания рабочего листа, который близок к тому, как HTML будет отображаться в браузере. Как правило, результаты не будут выглядеть так же, как на веб-странице, но вы получите больше контроля. Это может быть или не быть полезным в зависимости от того, что вы собираетесь делать с данными впоследствии. Дополнительную информацию см. В документации VBA для QueryTables, но основными шагами являются создание нового QueryTable указывающего на ваш файл и ячейку назначения, настройку параметров, а затем вызов метода Refresh для заполнения ячеек:

'inside your loop...
Set ws = ThisWorkbook.Worksheets.Add
Set qt = ws.QueryTables.Add("URL;file:///" & varFilePath, ws.Range("A1"))
'set various options here...
qt.WebFormatting = xlWebFormattingAll
qt.WebSelectionType = xlEntirePage
'Get the data
qt.Refresh