[hasherfrog]

Это даже не смешно. Сохранить как->Web Page

[b0bi]

А как это в скрипте будет выглядеть?
Скажи плиз, если знаешь.

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

[Prisoner]

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

[b0bi]

Пацаны да помогите сделать! мне препод дал задание сделать этот скрипт и тогда он поставит мне зачёт.

[hasherfrog]

У Вас есть два варианта. Первый:
Открываем эксель, делаем: 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]

спасибо, буду пыхтеть