Дописать код, чтобы сохраняемый файл сохранял только значения

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

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

13.08.2017 15:50:40

Доброго время суток!
Помогите дописать этот код макроса, чтобы при нажатии кнопки файл сохранялся со значениями, без макросов и кнопок

Код

Private Sub Печать_Click()
On Error Resume Next
Const REPORTS_FOLDER = "Архив\"
MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
Имя_для_сохранения = [A7] & [Q7]
Filename = Application.GetSaveAsFilename(Имя_для_сохранения, "(*.xls),", , "Введите имя файла для сохраняемого отчёта", "Сохранить")
If VarType(Filename) = vbBoolean Then Exit Sub
Err.Clear: ActiveSheet.Copy: DoEvents
If Err Then Exit Sub
If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
ActiveWorkbook.Close False
End If
End Sub

Sanja

Модератор

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

13.08.2017 15:54:22

Цитата
KanuHosen написал: без макросов

Замените в коде '*.xls' на '*.xlsx'
С кнопками сложнее. Покажите пример файла

Согласие есть продукт при полном непротивлении сторон

KanuHosen Пользователь Сообщений: 33 Регистрация: 16.11.2016	#3 13.08.2017 16:07:59 Не помогло изменение, новосохраненный файл при открытии выдает ошибку. А вот и пример файла. Прикрепленные файлы ФАРМэкспорт.xlsm (97.75 КБ)

Sanja

Модератор

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

13.08.2017 16:58:06

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

Скрытый текст

Изменено: Sanja - 13.08.2017 18:07:22

Согласие есть продукт при полном непротивлении сторон

KanuHosen Пользователь Сообщений: 33 Регистрация: 16.11.2016	#5 14.08.2017 00:10:37 Спасибо! А можно макрос еще доработать, у меня в файле есть выпадающий список, можно его сделать в сохранившемся файле тоже статическим

Sanja Модератор Сообщений: 19473 Регистрация: 10.01.2013	#6 14.08.2017 08:11:58 В какой ячейке? Согласие есть продукт при полном непротивлении сторон

KanuHosen Пользователь Сообщений: 33 Регистрация: 16.11.2016	#7 14.08.2017 12:51:27 В ячейке F14, рядом со словом водитель, выпадающий список ФИО водителей.

Sanja

Модератор

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

14.08.2017 16:51:28

В коде выше, между строками 18 (Next) и 19 (Copy: DoEvents) вставьте такую строчку.
ВАЖНО! Первая точка перед .Cells ОБЯЗАТЕЛЬНА!

Код
.Cells.Validation.Delete

Изменено: Sanja - 14.08.2017 18:05:51

Согласие есть продукт при полном непротивлении сторон

KanuHosen Пользователь Сообщений: 33 Регистрация: 16.11.2016	#9 14.08.2017 18:31:11 Вот терь точно, БОЛЬШОЕ СПАСИБО!!!!

Читают тему