Сохранение файла из шаблона в формате xlsx. - Microsoft Office Excel

irina181 · 23.10.2017, 10:49

Всем привет. Имеется шаблон Excel (xltm), необходим макрос, на событие Workbook_BeforeClose, который сохраняет файл из шаблона в формате xlsx (без поддержки макросов) с именем из ячейки F2 в папку, в которой находится сам шаблон. Два дня рылась в инете, многое находила, но ничего нужного не нашла. Вся надежда на вас форумчане. Всем спасибо. Файл во вложении.

kuklp · 23.10.2017, 15:05

Кросс:
http://www.excel-vba.ru/forum/index....1.msg28833#new
http://www.planetaexcel.ru/forum/ind...lsx&MID=804297

irina181 · 23.10.2017, 16:27

Вот так будет правильно

Код:

'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "D:\Мои*документы\Downloads\"
Application.DisplayAlerts = True

irina181 · 23.10.2017, 20:07

С таким кодом

Код:

Application. DisplayAlerts=False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "D:\Мои документы\Downloads\"
Application.DisplayAlerts = True

на диске D всё работает нормально.
Но на диске С с таким кодом

Код:

Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="C:Users\Masha\Documets\Акт\" & [F2].Value & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "C:Users\Masha\Documets\Акт\"
Application.DisplayAlerts = True

не работает. В чём может быть проблема ?

Aleksandr H. · 23.10.2017, 20:10

Путь на диск С неверный

irina181 · 23.10.2017, 20:15

Подскажите как надо правильно это сделать. Целый день бьюсь, результат не получается. Создала файл с макросом

Код:

Sub q()
MsgBox ThisWorkbook.Path
End Sub

. Путь показывает Users\Masha\Documets\Акт. Его и вбила в макрос.

slone2179 · 23.10.2017, 20:20

C:\Users\Masha\Documets\Акт\

irina181 · 23.10.2017, 20:26

У меня же в макросе так и написано.

Код:

="C:Users\Masha\Documets\Акт\"

slone2179 · 23.10.2017, 20:28

После двоеточия смотрите и сравните

slone2179 · 23.10.2017, 20:30

А папка точно не Documents должна быть?

23.10.2017, 15:05	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Кросс: http://www.excel-vba.ru/forum/index....1.msg28833#new http://www.planetaexcel.ru/forum/ind...lsx&MID=804297 mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

23.10.2017, 20:10	#5
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Путь на диск С неверный Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

23.10.2017, 20:15	#6
irina181 Пользователь Регистрация: 07.09.2017 Сообщений: 44	Подскажите как надо правильно это сделать. Целый день бьюсь, результат не получается. Создала файл с макросом Код: `Sub q() MsgBox ThisWorkbook.Path End Sub` . Путь показывает Users\Masha\Documets\Акт. Его и вбила в макрос. Последний раз редактировалось irina181; 23.10.2017 в 20:20.

23.10.2017, 20:26	#8
irina181 Пользователь Регистрация: 07.09.2017 Сообщений: 44	У меня же в макросе так и написано. Код: `="C:Users\Masha\Documets\Акт\"`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сохранение изображения в формате .bmp	tantema	C# (си шарп)	0	06.11.2011 22:11
Сохранение в нужном формате макросом	sasha_prof	Microsoft Office Excel	8	09.03.2011 14:15
Не работает импорт из файла *.xlsx	evggen	Microsoft Office Excel	0	29.09.2010 12:59
Максимально возможный размер файла XLSX	doober	Microsoft Office Excel	5	19.09.2010 21:04
СОХРАНЕНИЕ В ФОРМАТЕ *.PDF	provodnikam	Microsoft Office Word	10	20.02.2010 10:31

23.10.2017, 20:20	#7
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	C:\Users\Masha\Documets\Акт\

23.10.2017, 20:28	#9
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	После двоеточия смотрите и сравните

23.10.2017, 20:30	#10
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	А папка точно не Documents должна быть?