Экспортировать дынные из таблицы HTML страницы через VBA в таблицу MS Access

@Beginne_r · Регистрация: 07.12.2012

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, возможно ли такое сделать?
Есть много файлов с таблицами одинаковой структуры.
Надо чтобы по нажатию одной кнопки - данные из всех файлов добавлялись в таблицу MS Access.

Можно ли это сделать силами VBA? Или нужно использовать что-то другое?

Ниже привожу маленький фрагмент как выглядит в вордпаде исходный код страницы:

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<td class="bog" colspan="99">[B]DATA[/B]</td>
<tr class="odds">
<td class="bot" nowrap><script>document.write(Util.date_str4(new Date(TIME0*1000)))</script></td>
...
<td class="bop"><a href="/cgi-bin/lkkkkkk?type=ochtml&peid=0000000&ot=0&topbar=0">DATA1-DATA2</a></td>
<td class="boo"> AAA1</td><td class="boo"> BBB1</td><td class="boo"> CCC1</td>
<td class="boct" nowrap><script>document.write(Util.date_str3(new Date(TIME1*1000)))</script></td>
<td class="boo"> AAA2</td><td class="boo"> BBB2</td><td class="boo"> CCC2</td>
<td class="boct" nowrap><script>document.write(Util.date_str3(new Date(TIME2*1000)))</script></td>
<td class="boo"> AAA3</td><td class="boo"> BBB3</td><td class="boo"> CCC3</td>
<td class="boct" nowrap><script>document.write(Util.date_str3(new Date(TIME3*1000)))</script></td>
<td class="boo"> AAA4</td><td class="boo"> BBB4</td><td class="boo"> CCC4</td>
<td class="boct" nowrap><script>document.write(Util.date_str3(new Date(TIME4*1000)))</script></td>
<td class="boo"> AAA5</td><td class="boo"> BBB5</td><td class="boo"> CCC5</td>
<td class="boct" nowrap><script>document.write(Util.date_str3(new Date(TIME5*1000)))</script></td>
...
<tr class="dannie">
...
</table>

На выхоже надо получить таблицу

столбец1 столбец2 столбец3 столбец4 столбец5 столбец 6 столбец7
TIME0 DATA1 DATA2 AAA1 BBB1 CCC1 TIME1
...
TIME0 DATA1 DATA2 AAA5 BBB5 CCC5 TIME5
т.е. первые три столбца идут с одинаковыми данными, а четыре оставшихся с разными

Как можно это сделать, подскажите, пожалуйста, с чего начать, где посмотреть?

@Андрэич · 09.12.2012, 02:36

Beginne_r,
через VBA это можно сделать с использованием так наз Регулярных выражений

@Beginne_r · 09.12.2012, 03:25 **[ТС]**

Нашёл немного инфы про регулярные выражения, но не пойму с чего начать? Нет ли каких-нибудь простейших примеров, где хотя бы показывалось как начинатть - т.е. указывать с какого файла начинать и заканчивать, а также сам механизм добавления данных в таблицу access так как я нашёл только для excel примеры.

@Андрэич · 09.12.2012, 03:49

"Простейших" нет, но там всё не очень сложно, если в понимаете и программируете в VBA. Самая большая сложность здесь, имхо, - составление рабочего паттерна.
(Попробую найти примеры)

Добавлено через 13 минут
Здесь ссылки на другие форумы запрещены, я попытался вам отправить в личку - но у вас запрещен прием сообщений.
Если "не к спеху", после выходных посмотрю ваши данные

@Beginne_r · 09.12.2012, 04:02 **[ТС]**

Андрэич,
вроде сейчас (после 5-го сообщения) личные сообщения должны заработать. Попробуйте ещё раз, пожалуйста, отправить.

По паттернам я вроде смысл понял, там только сложность в том, что у меня несколько строк в исходной таблице. А каждая исходная строка уже в аксессе должна быть как 5-20 строк.

Я бы потренировался методом проб и ошибок, но не знаю как именно начать работу (например, обращаться ко всем файлам папки) и добавлять даные уже в саму таблицу...

@Андрэич · 09.12.2012, 04:26

Не даёт. (К тому же, даже в личных сообщениях ссылка "закрашиваеся".

shanemac51 · 09.12.2012, 13:52

ПЕРЕВЕЛА В ЧИТАБЕЛЬНЫЙ ВИД, НО ЯСНОСТИ В ЗАДАНИИ НЕ ПОЛУЧИЛА

умеете же вы все давать супер-запутанные вопросы

хотя надо
--взять реальный кусок
--забить в блокноте секреты на аааааааааа пппппппппп рррррррррррррр
--оставив полностью схему
Код HTML51 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 <html> <table border=1> <TR> <td class="bog" colspan="99">DATA</td> <tr class="odds"> <td class="bop"> <a href="/cgi-bin/lkkkkkk?type=ochtml&peid=0000000&ot=0&to pbar=0">DATA1-DATA2</a></td> <td class="bot" nowrap>м-Util.date_str4(new Date(TIME0*1000))</TD> <TD>WW1- <script type="text/javascript">document.write(NEW DATE())</script></td> <TD> <script type="text/javascript">document.write('111')</script></td> <td class="boo"> AAA1</td> <td class="boo"> BBB1</td> <td class="boo"> CCC1</td> <td class="boo"> DDD1</td> <td class="boo"> EEE1</td> </table>

@Андрэич · 10.12.2012, 07:38

И я в итоге тоже.
Ещё раз, подробно, что нужно выбрать из документа, в какие поля (только называйте их по-человечески, а не Поле345...) и т.д.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.12.2012, 02:36
	Beginne_r, через VBA это можно сделать с использованием так наз Регулярных выражений 1

@Beginne_r 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 41
	09.12.2012, 03:25 [ТС]
	Нашёл немного инфы про регулярные выражения, но не пойму с чего начать? Нет ли каких-нибудь простейших примеров, где хотя бы показывалось как начинатть - т.е. указывать с какого файла начинать и заканчивать, а также сам механизм добавления данных в таблицу access так как я нашёл только для excel примеры. 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.12.2012, 03:49
	"Простейших" нет, но там всё не очень сложно, если в понимаете и программируете в VBA. Самая большая сложность здесь, имхо, - составление рабочего паттерна. (Попробую найти примеры) Добавлено через 13 минут Здесь ссылки на другие форумы запрещены, я попытался вам отправить в личку - но у вас запрещен прием сообщений. Если "не к спеху", после выходных посмотрю ваши данные 1

@Beginne_r 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 41
	09.12.2012, 04:02 [ТС]
	Андрэич, вроде сейчас (после 5-го сообщения) личные сообщения должны заработать. Попробуйте ещё раз, пожалуйста, отправить. По паттернам я вроде смысл понял, там только сложность в том, что у меня несколько строк в исходной таблице. А каждая исходная строка уже в аксессе должна быть как 5-20 строк. Я бы потренировался методом проб и ошибок, но не знаю как именно начать работу (например, обращаться ко всем файлам папки) и добавлять даные уже в саму таблицу... 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.12.2012, 04:26
	Не даёт. (К тому же, даже в личных сообщениях ссылка "закрашиваеся". 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,934 Записей в блоге: 4
	09.12.2012, 13:52
	ПЕРЕВЕЛА В ЧИТАБЕЛЬНЫЙ ВИД, НО ЯСНОСТИ В ЗАДАНИИ НЕ ПОЛУЧИЛА умеете же вы все давать супер-запутанные вопросы хотя надо --взять реальный кусок --забить в блокноте секреты на аааааааааа пппппппппп рррррррррррррр --оставив полностью схему Код HTML51 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 <html> <table border=1> <TR> <td class="bog" colspan="99">DATA</td> <tr class="odds"> <td class="bop"> <a href="/cgi-bin/lkkkkkk?type=ochtml&peid=0000000&ot=0&to pbar=0">DATA1-DATA2</a></td> <td class="bot" nowrap>м-Util.date_str4(new Date(TIME0*1000))</TD> <TD>WW1- <script type="text/javascript">document.write(NEW DATE())</script></td> <TD> <script type="text/javascript">document.write('111')</script></td> <td class="boo"> AAA1</td> <td class="boo"> BBB1</td> <td class="boo"> CCC1</td> <td class="boo"> DDD1</td> <td class="boo"> EEE1</td> </table> 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	10.12.2012, 07:38
	И я в итоге тоже. Ещё раз, подробно, что нужно выбрать из документа, в какие поля (только называйте их по-человечески, а не Поле345...) и т.д. 0