Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Помогите, пожалуйста, перегнать таблицу в html код.
 
#1
23.04.2011 03:44:41
Доброго времени.  
 
Помогите, пожалуйста, с решением проблемы.  
 
Имееются таблицы с отфармотированным описанием ноутбуков и фотоаппаратов, которые надо перевести в код html на соседнюю ячейку.
 
 
 
#2
23.04.2011 08:25:30
ну и сохраняйте как html..  
 
в чем проблема?
Живи и дай жить..
 
 
 
#3
23.04.2011 08:26:26
уберите txt
Живи и дай жить..
 
 
 
#4
23.04.2011 08:27:01
и поставьте html :)
Живи и дай жить..
 
 
 
#5
23.04.2011 11:02:30
Дико ИЗВИНЯЮСЬ! НЕ В ТОМ ФОРМАТЕ ТАБЛИЦУ ЗАКАЧАЛ. Вот пример:
 
 
 
#6
23.04.2011 11:12:01
Да, можно сохранить как html, но при этом код получается неоптимальным.  
Поэтому существуют утилиты и надстройки для такого преобразования.  
Поищите по "xls2html", "xls2htm".
 
 
 
#7
23.04.2011 11:28:23
Мне не надо сохранять, мне просто  в тойже книге, где таблица, надо преобразовать в html код. Люди, прошу вас, помогите. Даже в офлайне мне некому обратиться.
 
 
 
#8
23.04.2011 11:41:36
так из сохраненного вы это код можете вытащить..
Живи и дай жить..
 
 
 
#9
23.04.2011 12:11:57
Может быть это нужно? UDF Get_HTML_Format() <BR>http://www.planetaexcel.ru/forum.php/?thread_id=17161
 
 
 
#10
23.04.2011 12:26:37
{quote}{login=Hugo}{date=23.04.2011 12:11}{thema=}{post}Может быть это нужно? UDF Get_HTML_Format() <BR>http://www.planetaexcel.ru/forum.php/?thread_id=17161{/post}{/quote}  
 
 
Да, именно. Но только там одну ячейку преобразует, а мне надо целую таблицу в два столбца.
 
 
 
#11
23.04.2011 13:26:02
тогда вам начальный курс иксель пройти нужно - как писать простейшие формулы, и как их копировать
Живи и дай жить..
 
 
 
#12
23.04.2011 13:30:08
Пишем макрос  
Для каждой ячейки в задпнном диапазоне выполнить UDF Get_HTML_Format().  
Результат вычислений положитьв нужное место.
 
 
 
#13
23.04.2011 14:40:36
Я полагаю, Эдгару нужно получить именно таблицу, а UDF таблицу не строит - только отдельные строки.  
Тут вероятно нужен макрос - даём ему Range - на выходе файл.html с таблицей.  
Но сегодня погода не располагает макросы писать :)
 
 
 
#14
23.04.2011 16:32:09
{quote}{login=Hugo}{date=23.04.2011 02:40}{thema=}{post}Я полагаю, Эдгару нужно получить именно таблицу, а UDF таблицу не строит - только отдельные строки.  
Тут вероятно нужен макрос - даём ему Range - на выходе файл.html с таблицей.  
Но сегодня погода не располагает макросы писать :){/post}{/quote}  
 
 
Hugo, именнно!!! Буду безмерно благодарен, если поможете с подобным маросом. Уже головы себе поломал.
 
 
 
#15
23.04.2011 18:40:38
Жалко головы...  
Sub Range_()  
Dim c As Range  
[a1].Offset(0, 2) = 5
For Each c In Selection  
c.Offset(0, 2) = Get_HTML_Format©  
Next  
End Sub
 
 
 
#16
23.04.2011 18:42:15
[a1].Offset(0, 2) = 5
не читать! БЯКА!
 
 
"  
If n1z = True Then  
Print #1, "
 
#17
23.04.2011 19:34:36
макет--упрощенный вариант  
 
Dim j1, j1p, ntxt  
 
Sub htm110422_1919()  
j1 = 0  
j1p = 0  
'''''''''''''''''''''разметьте или смените каталог''''''  
''ntxt = "c:\rab\00.htm"  
ntxt = Excel.ActiveWorkbook.Path & "\00.htm"  
'''''''''''''''''''''''''''''  
 
Open ntxt For Output As #1  
 
Print #1, "<html>"  
Print #1, "<head>"  
Print #1, "<title>"  
Print #1, "техника</title>"  
Print #1, "</title>"  
''Print #1,"<meta content="." name="Description" />  
''Print #1,"<meta content=" " name="Keywords" />  
Print #1, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1251"" />"  
Print #1, "</head>"  
Print #1, "<body>"  
 
Print #1, ""  
Do While j1 < 123  
j1 = j1 + 1  
p11 Cells(j1, 1).Font.Bold  
Loop  
Print #1, "
"  
Close #1  
'j1 = Shell("winword.exe c:\rab\00.htm", vbMaximizedFocus)  
j1 = Shell("explorer.exe """ & ntxt & """", vbMaximizedFocus)  
 
End Sub  
Sub p11(n1z)  
If Len("" & Cells(j1, 1)) > 0 Then  
Print #1, "
"; Cells(j1, 1)  
Else  
Print #1, "		"; Cells(j1, 1); " : "; ""; Cells(j1, 2)  
End If  
End If  
End Sub
 
 
 
#18
24.04.2011 01:32:34
К сожалению, это не то.
 
 
 
#19
24.04.2011 02:05:58
И чем код shanemac не подошёл? Я именно это и предлагал (ну разве что с выделенной областью), и Вы (или не Вы? :)) согласились. Иначе бы этот код и не был вероятно написан - теперь выходит, что человек зря старался?
 
 
 
#20
24.04.2011 05:41:27
Hugo, огромное спасибо этому человеку за помощь! Но, к сожалению, он мне не подходит. Скорее всего, я не правильно объяснился, что мне надо. Мне нужен код моей таблице в самой книге, на этом же листе в соседних ячейках.
 
 
 
#21
24.04.2011 07:56:40
{quote}{login=}{date=24.04.2011 05:41}{thema=}{post}Hugo, огромное спасибо этому человеку за помощь! Но, к сожалению, он мне не подходит. Скорее всего, я не правильно объяснился, что мне надо. Мне нужен код моей таблице в самой книге, на этом же листе в соседних ячейках.{/post}{/quote}  
 
1.теги tr \td можно вписать в ячейки , но куда вписать начальную и хвостовую части  
2.можно сделать на закрытии листа  
3. тогда при  закрытии листа будет формировать подобный НТМ с именемЛиста.НТМ в неком оговоренном каталоге
 
 
 
#22
24.04.2011 11:25:38
Тогда может так  - папаризитировав на UDF Дмитрия:  
 
Function Get_HTML_Format_2Columns(rCell As Range)  
   Dim li As Long, lStartFBold As Long, sStr As String, cc As Range  
   sStr = "
"  
   For Each cc In rCell  
   For li = 1 To Len(cc)  
      If cc.Characters(li, 1).Font.Bold Then  
               If lStartFBold = 0 Then lStartFBold = li: sStr = sStr & "<strong>"  
           Else  
               If lStartFBold <> 0 Then  
                   sStr = sStr & "</strong>": lStartFBold = 0  
               End If  
           End If  
       If Mid$(cc, li, 1) = Chr(10) Then  
           sStr = sStr & "<br>"  
       Else  
           sStr = sStr & Mid$(cc, li, 1)  
       End If  
   Next li  
   sStr = sStr & "		 "  
   Next  
   sStr = Left(sStr, Len(sStr) - 9)  
   Get_HTML_Format_2Columns = sStr  
End Function  
 
 
 
При переносе полученных строк в htm нужно добавить сверху и снизу теги  
 
 
Получится так:  
<strong>Общая информация 
Дата выхода на рынок 2010 г.
 
<strong>Платформа 
Платформа (кодовое название) Intel Calpella (2009)
Процессор Intel Core i3
Модель 370M
Количество ядер 2
Тактовая частота 2 400 МГц    
 
 
 
#23
24.04.2011 11:29:22
Лучше пробел добавить:  
 
   sStr = sStr & "[td]  "
   Next  
   sStr = Left(sStr, Len(sStr) - 10)
 
 
 
#24
24.04.2011 15:32:43
Всем БОЛЬШОЕ СПАСИБО!
 
 
 
Страницы: 1
Читают тему
Наверх