Excel vba закрыть excel без сохранения

Vba excel сохранение файла без подтверждения Vba excel сохранение файла без подтверждения Привет, сейчас мы рассмотрим ситуацию, когда у Вас возникла

Синтаксис

выражения. SaveAs (FileName, FileFormat, Пароль, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

выражение Переменная, представляюная объект Книги.

Vba excel сохранение файла без подтверждения

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

Макрос закрытия книги без сохранения

​Смотрите также​​Private Sub CommandButton4_Click()​
​ и получать нужный​ как правильно?​ #2 объект, точка​ As Excel.Application Dim​Set oExcel =​ это сделать через​ & ” /T”,​Ответ:​

​ что при событии​​ к строковым переменным​
​ActiveWorkbook.Close True​ так:​ кликом сохранялся файл​Workbooks.Close​
​ не работает (​vadim​ Set_windows.Hide End Subпри​ результат???​Но ведь в​

​ Клозе, ну сделал​​ oWorkbook As Excel.Workbook​ CreateObject(“Excel.Application”) ‘создать объект​ regional settings, а​
​ vbHide Else: MsgBox​Разместите этот код​ открытия файла из​Вы пытаетесь прицепить​
​End If​
​Sub TestClose()​ и закрывался Excel?​

​End Sub​​Юрий М​

​: ActiveWindow.Close​​ закрытии все настройки​

​oExcel.Worksheets(“Лист1”).Range(“a1”).Font.Size = 14​​ Ворде в том​ так​ Dim Количество_найденного_текста As​ Microsoft Excelзатем делаю​

​ вот как бы​​ “Excel не может​ в модуле книги,​ некоторой папки, переписываются​

​ значение типа Integer,​​End Sub​Application.Run “ВосстановитьИнтерфейс”​Юрий М​KSV​

​: Вы, если спрашиваете,​​При закрытии книги​
​ сохраняются, при открытии​
​Busine2009​

​ скрипте который я​так как не​

​ Long Set oExcel​​ что хочу​ программно?​ закрыться, наверное вы​ (обычно с названием​ модули в VBA​ возвращаемое функцией​openid.mail.ru/mail/vlad3622340​Application.Quit​: Не это ищете:​: все правильно​
​ то хоть читайте​ появляется окно “Сохранить​
​ снова этой формы​
​:​

​ представил не ругается,​​ знаю как правильно,​
​ = CreateObject(“Excel.Application”) ‘создать​………………..​
​Ципихович Эндрю​
​ не сказали пожалуйста”,​
​ ЭтаКнига)​ в открытый файл.​InStr(sName, ”&”)Андрей​: Спасибо, Юрий, ещё​ActiveWorkbook.Close True​

​ Workbooks(имя).Close true Или​​200?’200px’:”+(this.scrollHeight+5)+’px’);”>’ подавляет предупреждения Excel​ ответы. Ведь ясно​ изменения в файле?”​ с следующий раз-​Ципихович Эндрю​ выполнается и есть​ приходится угадывать​ объект Microsoft Excel​

​хочу закрыть без​
​: Вроде изучил этот​
​ 16: Cancel =​

​Option Explicit Private​​ Модули предназначены для​

planetaexcel.ru>

Открытие файла Excel

Set objExcel = New Excel.ApplicationobjExcel.Visible = FalseSet wb = objExcel.Workbooks.Open(fname)Set ws = wb.Sheets(1)

В первой строке запускаем новый Excel, затем делаем его невидимым, в 3-й строке открываем файл fname. В последней строке получаем первый лист открытого excel-кого файла.

Сохранение файла Excel с названием из ячейки — с привязкой к этой ячейке

Итак, данные у нас есть, теперь необходимо написать процедуру на VBA (макрос), которая брала бы значение из конкретной ячейки, в данном случае это будет ячейка B14, и присваивала бы это значение имени файла.

Ниже представлен код процедуры, я его подробно прокомментировал. Единственное скажу, что я во всех примерах сохраняю новые файлы без макросов (расширение .xlsx), т.е. по факту будет один файл с поддержкой макросов, а все производные — без.

Если нужно сохранять макрос в каждом файле, т.е. файлы с поддержкой макросов (расширение .xlsm), то необходимо просто указать другой тип файла при сохранении, а именно xlOpenXMLWorkbookMacroEnabled, в процедурах в комментариях я это указываю.

Открываем в Excel редактор Visual Basic, и вставляем код следующей процедуры в исходный код этой книги (ЭтаКнига, открыть двойным кликом) или в модуль, который Вы предварительно должны создать.

Примечание! Для того чтобы открыть редактор Visual Basic в Excel, необходимо перейти на вкладку «Разработчик» и нажать на кнопку «Visual Basic». Файл Excel с кодом процедуры необходимо сохранить с типом «Книга Excel с поддержкой макросов».

Код процедуры

После сохранения файла запустите макрос («Макросы -> Выполнить -> SaveFile»).

В результате в моем случае процедура успешно выполнилась, файл сохранился с названием «Марка Авто 1», данное значение взято из ячейки B14, о чем будет свидетельствовать сообщение в конце процедуры. Файл сохранен в каталоге, где и исходный файл (во всех примерах ниже прописано то же самое, т.е. сохранение рядом с исходником, но это Вы можете изменить).

Excel_SaveAsFile_On_VBA_3.jpg

Добавление кнопки в Excel для запуска макроса

Каждый раз открывать окно с макросами и выбирать нужный макрос не очень удобно, поэтому можно легко добавить кнопку где-нибудь рядом с данными и просто нажимать ее. Это делается следующим образом «Вкладка Разработчик -> Вставить -> Кнопка (элемент управления формы)».

Excel_SaveAsFile_On_VBA_4.jpg

Затем выберите место, где вставить кнопку, и нажмите туда. После этого появится окно назначения действия, т.е. нужно выбрать, какой макрос запускать при нажатии этой кнопки, выбираем наш макрос, т.е. SaveFile, и нажимаем «ОК».

Excel_SaveAsFile_On_VBA_5.jpg

В итоге появится кнопка с названием «Кнопка», это название лучше изменить, например, на «Сохранить файл». Для этого нажмите правой кнопкой мыши на кнопку и выберите настройки «Изменить текст». В итоге у Вас должно получиться что-то вроде этого.

Excel_SaveAsFile_On_VBA_6.jpg

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Необязательный Variant Строка, которая указывает имя сохраненного файла. Вы можете включить полный путь; если нет, Microsoft Excel сохраняет файл в текущей папке.
FileFormat Необязательный Variant Формат файла, который необходимо использовать при сохранения файла. Список допустимых вариантов см. в перечне XlFileFormat. Для существующего файла формат по умолчанию — это последний указанный формат файла; для нового файла по умолчанию используется формат версии Excel.
Password Необязательный Variant Строка с учетом случая (не более 15 символов), которая указывает пароль защиты, который должен быть предоставлен файлу.
WriteResPassword Необязательный Variant Строка, которая указывает пароль для записи резервирования для этого файла. Если файл сохранен с помощью пароля, а пароль не предоставляется при его открывлении, файл открывается только для чтения.
ReadOnlyRecommended Необязательный Variant True для отображения сообщения при открываемом файле, рекомендуется открыть его только для чтения.
CreateBackup Необязательный Variant True для создания файла резервного копирования.
AccessMode Необязательный XlSaveAsAccessMode Режим доступа для книги.
ConflictResolution Необязательный XlSaveConflictResolution Значение XlSaveConflictResolution, которое определяет способ разрешения конфликта при сохранении книги. Если установлено xlUserResolution, отображается диалоговое окно с разрешением конфликтов.

Если установлено xlLocalSessionChanges, изменения локального пользователя автоматически принимаются.

Если установлено xlOtherSessionChanges, изменения из других сеансов автоматически принимаются вместо изменений локального пользователя.

Если этот аргумент опущен, отображается диалоговое окно с разрешением конфликтов.

AddToMru Необязательный Variant Правда, чтобы добавить эту книгу в список недавно используемых файлов. Значение по умолчанию — False.
TextCodepage Необязательный Variant Игнорируется для всех языков в Microsoft Excel.

ПРИМЕЧАНИЕ. Когда Excel сохраняет книгу в одном из форматов CSV или текстов, указанных с помощью параметра FileFormat, она использует страницу кода, соответствующую языку используемого на текущем компьютере языкового кода системы. Этот параметр системы доступен на вкладке “Область панели > управления” и “Расположение языка” > в текущем расположении.

TextVisualLayout Необязательный Variant Игнорируется для всех языков в Microsoft Excel.

ПРИМЕЧАНИЕ. Если Excel сохраняет книгу в одном из CSV или текстовых форматов, которые заданы с помощью параметра FileFormat, он сохраняет эти форматы в логическом макете. Если текст слева направо (LTR) встроен в текст справа налево (RTL) в файл или наоборот, логический макет сохраняет содержимое файла в правильном порядке чтения для всех языков в файле без указания направления. Когда приложение открывает файл, каждый запуск символов LTR или RTL отображается в правильном направлении в соответствии с диапазонами значений символов на странице кода (если приложение, предназначенное для отображения точного макета памяти файла, например отладка или редактор, не используется для открытия файла).

Local Необязательный Variant True сохраняет файлы на языке Microsoft Excel (включая параметры панели управления). False (по умолчанию) сохраняет файлы на языке Visual Basic для приложений (VBA) (который обычно является английским языком США, если проект VBA, в котором работает Workbooks.Open, не является старым интернационализированным проектом VBA XL5/95).

Используйте надежные пароли, содержащие строчные и прописные буквы, цифры и знаки. В слабых паролях эти элементы не комбинируются.

  • Надежный пароль: Y6dh!et5
  • Слабый пароль: House27

Используйте надежный пароль, который можно запомнить, чтобы не пришлось его записывать.

пример

Зачастую сохранение новых данных в существующей книге с помощью VBA вызовет всплывающий вопрос, отметив, что файл уже существует.

Чтобы предотвратить этот всплывающий вопрос, вам необходимо подавить эти типы предупреждений.

Сохраняет изменения указанной книги. Saves changes to the specified workbook.

Обращение к открытой книге

Обращение к активной книге:

Обращение к книге с выполняемым кодом:

Обращение к книге по имени:

Workbooks(“test1.xls”)

Workbooks(“test2.xls”)

Обратиться по имени можно только к уже открытой книге, а чтобы из кода VBA Excel книгу открыть, необходимо указать полный путь к файлу.

Синтаксис Syntax

Expression. Сохранение expression.Save

Expression (выражение ) Переменная, представляющая объект Workbook . expression A variable that represents a Workbook object.

Пример

В этом примере создается новая книга, пользователь получает имя файла, а затем сохраняет книгу.

Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False NewBook.SaveAs Filename:=fName

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...