Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Хелп! Нужен скрипт на на WSH или VBS (http://forum.oszone.net/showthread.php?t=29658)

b0bi 10-06-2004 18:26 205182
задание:
В напке C:\temp\ есть файл Excel в нём три таблицы по три калонки в кажодй и несколько записей с инфой(товары, уена, кол-во), нужно это дело перегнать в HTML!
Кто поможет буду очень благодарен и в долгу не останусь!

hasherfrog 11-06-2004 09:03 205183
Это даже не смешно. Сохранить как->Web Page

b0bi 11-06-2004 18:31 205184
А как это в скрипте будет выглядеть?
Скажи плиз, если знаешь.

[s]Исправлено: b0bi, 18:35 11-06-2004[/s]

Prisoner 12-06-2004 00:21 205185
hasherfrog
Имел ввиду сделать клик на меню Файл, затем сделать клик на пункте Сохранить как Веб страницу.
Или задание из типа "мы не ищем легких путей" и необходимо применение сабжевых скриптовых языков?

b0bi 12-06-2004 11:04 205186
Пацаны да помогите сделать! мне препод дал задание сделать этот скрипт и тогда он поставит мне зачёт.

hasherfrog 15-06-2004 09:48 205187
У Вас есть два варианта. Первый:
Открываем эксель, делаем: Tools->Macro->Record New Macro, выделяем три колонки, делаем Савекак, Закончить макрос, идём в VB, видим там такой скрипт:
Код:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 15.06.2004 by hasherfrog
'
    Columns("A:C").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Documents and Settings\TEMP\Iie aieoiaiou\Book1.htm", "Sheet1", "$A:$C", _
        xlHtmlStatic, "Book1_16225", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub
Второй вариант. В VB пишем скрипт:
1. Открыть файл, вывести в него заголовок html;
2. Вывести заголовок таблицы
3. Для каждой колонки/для каждого столбца выписать <td>Значение ячейки</td>
4. Закрыть тэги таблицы, html, файл.
Короче, попыхтеть придётся. Именно этого препод и хочет, имхо. И не зря, опять же имхо.

b0bi 15-06-2004 15:17 205188
спасибо, буду пыхтеть


Время: 19:33.

Время: 19:33.
© OSzone.net 2001-