Синтаксис SaveAs в vbs скрипте

Узнай цену своей работы

Формулировка задачи:

Подкинули скрипт vbs, он открывает выбранный xls файл (выгруженный в формате Excel5 из сторонней программы) и перетасовывает данные.
Нужно добавить в скрипт сохранение под новым именем и в формате Excel2003.
Запарился с синтаксисом SaveAs
set xls=CreateObject("Excel.Application")
path=xls.GetOpenFileName()
set wrkbook=xls.Workbook.Open(path)
'Добавляю
namenew=wrkbook.path & "\new_" & wrkbook.name
дальше по отдельности
wrkbook.SaveAs (namenew) файл сохраняет под новым именем
wrkbook.SaveAs FileFormat=xlExcel11 Создает новый файл с именем True.xls и формат у него не меняется на Excel2003 (остается формат исходного Excel5)
Совместно использовать эти параметры не получается, никакой из синтаксисов найденных на форуме и в сети не подходит
Пробую
wrkbook.SaveAs Filename:=namenew, FileFormat:=xlExcel11
Выдает ошибку на двоеточие.
Убираю убираю двоеточие, создается файл правильного формата но с именем False.xls
Если взять в скобки wrkbook.SaveAs (Filename=namenew, FileFormat=xlExcel11 ) или так
wrkbook.SaveAs (namenew, xlExcel11) то возникает сообщение об ошибке "Недопустимо использование скобок при вызове процедуры Sub"
Кто сталкивался помогите пожалуйста.

Решение задачи: «Синтаксис SaveAs в vbs скрипте»

textual
Листинг программы
<font color="blue">Set</font> xls = CreateObject(<font color="teal">"Excel.Application"</font>)
<font color="blue">Set</font> wrbook = xls.Workbooks.<font color="blue">Open</font>(<font color="teal">"c:\b5.xls"</font>)
wrbook.SaveAs <font color="teal">"c:\b2003.xls"</font>, -<font color="darkblue"><b>4143</b></font>
<font color="blue">Set</font> wrbook = <font color="blue">Nothing</font>
xls.Visible = True
<font color="blue">set</font> xls = <font color="blue">Nothing</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5