Синтаксис 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"
Кто сталкивался помогите пожалуйста.
Нужно добавить в скрипт сохранение под новым именем и в формате 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д