формат сохранения файла

Пользователь

Сообщений: 67 Регистрация: 01.01.1970

18.07.2011 04:50:21

Ранее на форуме писали про то, кк задавать формат сохраняемого макросом файла:

1. Saveas DirZayavka +...+"xls.", xlNormal
2. Saveas Filename=: DirZayavka +...+"xls.", FileFormat=: xlExcel8

Коллеги, а как указать формат сохранения 2003офиса, если сохраняем мы вот с помощью такой конструкции:
=================================
iWorksheet.Copy
With .ActiveSheet
.SaveAs Filename:=iPath$ & "\" & .Name
.Parent.Close saveChanges:=True
End With
=================================

поставить параметр как в примере выше - не работает.

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

18.07.2011 05:40:15

Попробуйте так:

iWorksheet.Copy
With ActiveSheet
.SaveAs Filename:=iPath$ & "\" & .Name, xlWorkbookNormal
.Parent.Close false
End With

1) какой смысл ДВАЖДЫ сохранять файл? (saveas и saveChanges:=True)
Убрал второе сохранение

2) константа xlWorkbookNormal отвечает за формат Excel2003
(вроде бы, точно уже не помню)

3) убрал точку перед ActiveSheet - как я понял, вы пытаетесь сохранить новую книгу, созданную копированием листа при помощи iWorksheet.Copy

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

vadim245 Пользователь Сообщений: 67 Регистрация: 01.01.1970	#3 18.07.2011 13:34:48 {quote}{login=EducatedFool}{date=18.07.2011 05:40}{thema=}{post}Попробуйте так: iWorksheet.Copy With ActiveSheet .SaveAs Filename:=iPath$ & "\" & .Name, xlWorkbookNormal .Parent.Close false End With {/post}{/quote} xlWorkbookNormal всю строку выделяет красным, и пишет Compile error Expected named parameter

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#4 18.07.2011 13:42:40 Немного доделал макрос от EducatedFool iWorksheet.Copy With ActiveSheet .SaveAs Filename:=iPath$ & "\" & .Name, FileFormat:= xlExcel8 .Parent.Close false End With Попробуйте Редко но метко ...

vadim245 Пользователь Сообщений: 67 Регистрация: 01.01.1970	#5 19.07.2011 14:38:34 {quote}{login=GIG_ant}{date=18.07.2011 01:42}{thema=}{post}Немного доделал макрос от EducatedFool iWorksheet.Copy With ActiveSheet .SaveAs Filename:=iPath$ & "\" & .Name, FileFormat:= xlExcel8 .Parent.Close false End With Попробуйте{/post}{/quote} Волшебно!

Читают тему