ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Синтаксис SaveAs в vbs скрипте
15 сообщений из 15, страница 1 из 1
Синтаксис SaveAs в vbs скрипте
    #37020551
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
Подкинули скрипт 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"

Кто сталкивался помогите пожалуйста.
...
Рейтинг: 0 / 0
17.12.2010, 13:31
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020607
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Господин Уэф!

Открой Ексель, там - редактор VBA, в редакторе нажми F2 и в поле поиска введи xlExcel11 и посмотри какое число должно
быть

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.12.2010, 13:47
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020621
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Господин Уэф!,

Код: plaintext
wrkbook.SaveAs Filename:=namenew, FileFormat:=xlExcel11
вообще-то это правильная запись, что за ошибку на двоеточие выдает?

Ну или можете так:
Код: plaintext
wrkbook.SaveAs namenew, xlExcel11
...
Рейтинг: 0 / 0
17.12.2010, 13:53
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020626
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
xlExcel11
это константа надо описать
двоеточие работать скорее всего не будут
...
Рейтинг: 0 / 0
17.12.2010, 13:54
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020631
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Господин Уэф!Убираю убираю двоеточие
Не занимайтесь гаданием на кофейной гуще, когда есть четкий синтаксис вызова.
Тем самым вы приводите это к логическому выражению, результатом чего может быть только True или False
...
Рейтинг: 0 / 0
17.12.2010, 13:55
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020632
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
о каком числе речь идет?
...
Рейтинг: 0 / 0
17.12.2010, 13:55
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020640
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Господин Уэф!
> о каком числе речь идет?


Речь идет о числе, которое скрывается за благозвучным именем xlExcel11.
Кстати, у меня в 2003 екселе такой константы нет

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.12.2010, 13:57
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020644
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
Shocker.Pro,

Дайте мне этот четкий синтаксис, плиз.
...
Рейтинг: 0 / 0
17.12.2010, 13:58
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020653
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
у меня есть такая штука в оффисе 2003 xlExcel11 высвечивается
только значения у неё нету
...
Рейтинг: 0 / 0
17.12.2010, 14:00
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020658
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
"Господин Уэф!" <nospam@sql.ru>; сообщил/сообщила в новостях следующее: news:9955713@sql.ru...
> Автор: Господин Уэф!
> Shocker.Pro,
>
> Дайте мне этот четкий синтаксис, плиз.


Четче не бывает:
Код: plaintext
wrkbook.SaveAs namenew, здесь_число_которое_"скрывается"_за_xlExcel11


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.12.2010, 14:01
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020669
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: michael R
> у меня есть такая штука в оффисе 2003 xlExcel11 высвечивается
> только значения у неё нету


Странно, я даже не нашёл :(
Но вмесо неё, я написал-бы - Object BrowserConst xlWorkbookNormal = -4143 (&HFFFFEFD1)
Member of Excel.XlFileFormat

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.12.2010, 14:03
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020681
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
Игорь Горбонос,

Зачем нужно число скрывающееся за именем xlExcel11 ?
Интересно, что в хелпе не находится ни xlExcel11 ни xlExcel8 (эти значения я встретил в одном из описаний SaveAs)
в справке нашел константы XlFileFormat там действительно есть только xlExcel2, ..., xlExcel7, xlExcel9597
Мне же нужен формат в который Excel 2003 при простом сохранении предлагает пересохранить файл созданный в формате excel5. Подозреваю это тот же формат который при "Сохранить как" обозначен как "Книга Microsoft Excel 97-2003 и 5.0/95" или же "Книга Microsoft Office Excel"
...
Рейтинг: 0 / 0
17.12.2010, 14:07
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020684
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
Игорь ГорбоносСтранно, я даже не нашёл :(
Но вмесо неё, я написал-бы - Object BrowserConst xlWorkbookNormal = -4143 (&HFFFFEFD1)
Member of Excel.XlFileFormat



Попробую, спасибо
...
Рейтинг: 0 / 0
17.12.2010, 14:09
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020745
Господин Уэф!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин Уэф!
Гость
wrkbook.SaveAs namenew, -4143 ошибка

тут тоже
Const xlWorkbookNormal = -4143
Member of Excel.XlFileFormat 'ошибка, говорит, что ожидает аргумент
wrkbook.SaveAs namenew, xlWorkbookNormal
...
Рейтинг: 0 / 0
17.12.2010, 14:24
| Ответить | Цитировать | Написать  
Синтаксис SaveAs в vbs скрипте
    #37020808
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Господин Уэф!


Что-то ты недоговариваешь
Код: plaintext
1.
2.
3.
4.
5.
Set xls = CreateObject("Excel.Application")
Set wrbook = xls.Workbooks.Open("c:\b5.xls")
wrbook.SaveAs "c:\b2003.xls", - 4143 
Set wrbook = Nothing
xls.Visible = True
set xls = Nothing


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.12.2010, 14:39
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Синтаксис SaveAs в vbs скрипте
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37020684&tid=2159141]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 12ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]