Войти

Показать полную графическую версию : Хелп! Нужен скрипт на на WSH или VBS


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

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

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

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

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

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

hasherfrog
15-06-2004, 09:48
У Вас есть два варианта. Первый:
Открываем эксель, делаем: 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
спасибо, буду пыхтеть




© OSzone.net 2001-2012