Загрузка в Excel html-страниц, ошибки при загрузке и как их побороть

[doober]

будет время к вечеру,напишу вам макрос,правильный.

Я и понимал,что вход под паролем.вы рассмотрите для себя вариант получения данных при помощи SQL запроса с сервера.Я это подразумевал

Если вас интересует только конечный результат,независимо какими путями получен

[doober]

Собираете файлы в кучку в папку и выбираете эту папку в диалоге

[Meta2]

doober
Спасибо...
Теперь я не знаю, что мне с этим делать...

Я хочу получить плоский список, как во вложенном примере, и у меня есть скрипт, который мне это делает. Может, не так изящно как ваш, но для моего уровня программирования на VBA мне вполне нравится.
Скрипт преобразует каждый ASP в HTML, как написано у вас, потом я разбираю отдельно таблицу из каждого HTML, ориентируясь на появление слова "Итого:", что служит сигналом прекращения обработки. Проблема в том, что в в одном из файлов слетает кодировка и обработка зацикливается...

Притом таких файлов не один, а несколько. Ещё я использовал такой приём - при загрузке в Excel, таблица, как правило, начинается с определённой строки, я устанавливал счётчик, начиная с этой строки и считал, покуда не встречу "Итого:" или пока не дойду до пустой ячейки. проблема состоит в том, что в некоторых файлах таблица начинается на ячейку ниже и тогда в итоговый список попадает мусор.

Как побороть кодировку и как сделать так, чтобы таблица всегда начиналась с одной и той же строки?

[doober]

Я не вижу проблем с кодировкой.
Сделаю еще один вариант

[Meta2]

Во вложении - два файла 21.xls и 22.xls, полученные, соответственно, загрузкой в Excel файлов 21.html и 22.html

Разительно отличаются...

[doober]

Попробуйте проблемные файлы побороть таким кодом.Но предварительно поменяйте расширение файла с ASP на HTML,иначе работать не будет.
Правда очень медленный вариант

Sub ASP()
Dim T_COUNT As Integer, i  As Integer, K As Integer
Set IE = CreateObject("InternetExplorer.Application"): DoEvents
Dim flag As Boolean
IE.Navigate "C:\22.html" ' Здесь укажите свой путь
K = 0
While IE.readyState <> 4: DoEvents: Wend
For Each PAG In IE.Document.all
If PAG.tagName Like "TABLE" And flag = True Then
l = l + 1
T_COUNT = T_COUNT + 1
 For n = 0 To PAG.Rows.Length - 1
 For m = 0 To PAG.Rows(n).Cells.Length - 1
 Лист1.Cells(n + l, m + 1 + K) = PAG.Rows(n).Cells(m).innerText
   If UCase(PAG.Rows(n).Cells(m).innerText) Like "*ИТОГО*" Then
K = 2
   End If: Next: Next: l = l + 3: End If
If PAG.tagName Like "H1" Then
l = l + 1
flag = True
Лист1.Cells(l, 1) = PAG.innerText
End If
If T_COUNT = 2 Then Exit For
 Next PAG
IE.Quit
Set IE = Nothing
End Sub

[Meta2]

Ага, я кажется, понял, в чём проблема...

Дело в том, что при формировании груза можно указать примечание по доставке. Те файлы, в которые это примечание добавлено, читаются криво:

1. происходит смещение на одну строку вниз из-за строки с примечанием.
2. сбивается кодировка.

как побороть смещение вниз, я представляю, но что делать с кодировкой??

все нужные файлы в аттаче.

Вопрос такой - можно ли удалить всё, вплоть до таблицы? Мне это всё не нужно.

Попробовал, кстати, ваш вариант с InternetExplorer.Application...

Работает, но ооооооооооооооооочень медленно.

[Meta2]

doober

Прикреплённый файл с вашим скриптом, результатом его работы и моей правкой.