Главная страница. Научно-производственная фирма ЛОГИКА [Электронный ресурс] / ЗАО НПФ ЛОГИКА - Электрон. дан. - Санкт-Петербург. : 2010 - Режим доступа: http://www.logika.spb.ru, свободный - Загл. с экрана. - Яз. рус.;
Справочник VBA [Электронный ресурс] / vba-help.ru., 2003-2009 - Электрон. дан. - Москва. : 2009 - Режим доступа: http://vba-help.ru, свободный. - Загл. с экрана. - Яз. рус.;
Apache.RU - Russian Apache Web-Server [Электронный ресурс] / Apache.ru., 1999-2008 - Электрон. дан. - Москва. : 2008 - Режим доступа: http://www.apache.ru, свободный - Загл. с экрана - Яз. рус.;
Википедия - свободная энциклопедия [Электронный ресурс] / Wikimedia Foundation, Inc.; Электрон. дан. - Сан-Франциско. :2001 - Режим доступа: http://www.ru.wikipedia.org, свободный. - Загл. с экрана. - Яз. многоязычный.;
Приложение (информационное)
Программный код макроса экспорта данных из базы
данных программы "ПРОЛОГ"
Public Sub exec()i As Integer"CC:\Program Files\Apache\htdocs\Часовой_архив_узла_СПТ961_.html" For Output As #1"C:\Program Files\Apache\htdocs\Суточный_архив_узла_СПТ961_.html" For Output As #2"C:\Program Files\Apache\htdocs\Месячный_архив_узла_СПТ961_.html" For Output As #3#1, "<html>"#1, "<head>"#1, "<title>Часовой архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"#1, "<body>"#1, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"#1, "<tr>"#1, "<td>Время</td>"#1, "<td>хв(°C)</td>"#1, "<td>хв(кгс/cм2)</td>"#1, "<td>т1(°C)</td>"#1, "<td>т1(кгс/cм2)</td>"#1, "<td>т1(т)</td>"#1, "<td>т1(ГКал)</td>"#1, "<td>и_т1(ч)</td>"#1, "<td>к_т1(ч)</td>"#1, "<td>т1(м3)</td>"#1, "<td>п1(т)</td>"#1, "<td>п1(ГКал)</td>"#1, "<td>т2(°C)</td>"#1, "<td>т2(кгс/cм2)</td>"#1, "<td>т2(т)</td>"#1, "<td>т2(ГКал)</td>"#1, "<td>и_т2(ч)</td>"#1, "<td>к_т2(ч)</td>"#1, "<td>т2(м3)</td>"#1, "<td>п2(т)</td>"#1, "<td>п2(ГКал)</td>"#1, "<td>т3(°C)</td>"#1, "<td>т3(кгс/cм2)</td>"#1, "<td>т3(т)</td>"#1, "<td>т3(ГКал)</td>"#1, "<td>и_т3(ч)</td>"#1, "<td>к_т3(ч)</td>"#1, "<td>т3(м3)</td>"#1, "<td>т4(°C)</td>"#1, "<td>т4(кгс/cм2)</td>"#1, "<td>т4(т)</td>"#1, "<td>т4(ГКал)</td>"#1, "<td>и_т4(ч)</td>"#1, "<td>к_т4(ч)</td>"#1, "<td>т4(м3)</td>"#1, "<td>т5(°C)</td>"#1, "<td>т5(кгс/cм2)</td>"#1, "<td>т5(т)</td>"#1, "<td>т5(ГКал)</td>"#1, "<td>и_т5(ч)</td>"#1, "<td>к_т5(ч)</td>"#1, "<td>т5(м3)</td>"#2, "<html>"#2, "<head>"#2, "<title>Суточный архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"#2, "<body>"#2, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"#2, "<tr>"#2, "<td>Время</td>"#2, "<td>хв(°C)</td>"#2, "<td>хв(кгс/cм2)</td>"#2, "<td>т1(°C)</td>"#2, "<td>т1(кгс/cм2)</td>"#2, "<td>т1(т)</td>"#2, "<td>т1(ГКал)</td>"#2, "<td>и_т1(ч)</td>"#2, "<td>к_т1(ч)</td>"#2, "<td>т1(м3)</td>"#2, "<td>п1(т)</td>"#2, "<td>п1(ГКал)</td>"#2, "<td>т2(°C)</td>"#2, "<td>т2(кгс/cм2)</td>"#2, "<td>т2(т)</td>"#2, "<td>т2(ГКал)</td>"#2, "<td>и_т2(ч)</td>"#2, "<td>к_т2(ч)</td>"#2, "<td>т2(м3)</td>"#2, "<td>п2(т)</td>"#2, "<td>п2(ГКал)</td>"#2, "<td>т3(°C)</td>"#2, "<td>т3(кгс/cм2)</td>"#2, "<td>т3(т)</td>"#2, "<td>т3(ГКал)</td>"#2, "<td>и_т3(ч)</td>"#2, "<td>к_т3(ч)</td>"#2, "<td>т3(м3)</td>"#2, "<td>т4(°C)</td>"#2, "<td>т4(кгс/cм2)</td>"#2, "<td>т4(т)</td>"#2, "<td>т4(ГКал)</td>"#2, "<td>и_т4(ч)</td>"#2, "<td>к_т4(ч)</td>"#2, "<td>т4(м3)</td>"#2, "<td>т5(°C)</td>"#2, "<td>т5(кгс/cм2)</td>"#2, "<td>т5(т)</td>"#2, "<td>т5(ГКал)</td>"#2, "<td>и_т5(ч)</td>"#2, "<td>к_т5(ч)</td>"#2, "<td>т5(м3)</td>"#3, "<html>"#3, "<head>"#3, "<title>Суточный архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"#3, "<body>"#3, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"#3, "<tr>"#3, "<td>Время</td>"#3, "<td>хв(°C)</td>"#3, "<td>хв(кгс/cм2)</td>"#3, "<td>т1(°C)</td>"#3, "<td>т1(кгс/cм2)</td>"#3, "<td>т1(т)</td>"#3, "<td>т1(ГКал)</td>"#3, "<td>и_т1(ч)</td>"#3, "<td>к_т1(ч)</td>"#3, "<td>т1(м3)</td>"#3, "<td>п1(т)</td>"#3, "<td>п1(ГКал)</td>"#3, "<td>т2(°C)</td>"#3, "<td>т2(кгс/cм2)</td>"#3, "<td>т2(т)</td>"#3, "<td>т2(ГКал)</td>"#3, "<td>и_т2(ч)</td>"#3, "<td>к_т2(ч)</td>"#3, "<td>т2(м3)</td>"#3, "<td>п2(т)</td>"#3, "<td>п2(ГКал)</td>"#3, "<td>т3(°C)</td>"#3, "<td>т3(кгс/cм2)</td>"#3, "<td>т3(т)</td>"#3, "<td>т3(ГКал)</td>"#3, "<td>и_т3(ч)</td>"#3, "<td>к_т3(ч)</td>"#3, "<td>т3(м3)</td>"#3, "<td>т4(°C)</td>"#3, "<td>т4(кгс/cм2)</td>"#3, "<td>т4(т)</td>"#3, "<td>т4(ГКал)</td>"#3, "<td>и_т4(ч)</td>"#3, "<td>к_т4(ч)</td>"#3, "<td>т4(м3)</td>"#3, "<td>т5(°C)</td>"#3, "<td>т5(кгс/cм2)</td>"#3, "<td>т5(т)</td>"#3, "<td>т5(ГКал)</td>"#3, "<td>и_т5(ч)</td>"#3, "<td>к_т5(ч)</td>"#3, "<td>т5(м3)</td>"dbs = CurrentDbrst = dbs.openrecordset("T961_ARCHIVE")While Not rst.EOF= 1Each rstprop In rst.Fields= rstpropi = 1 Then= 2i = 2 Then= s= 3f = 0 Then#1, "<tr>"Iff = 1 Then#2, "<tr>"Iff = 2 Then#3, "<tr>"Iff = 0 ThenIsNull(s) Then#1, "<td>