How to allow your macro/vba code to overwrite an existing Excel file.
This allows you to do things like, export a weekly report to a specific file and have it overwrite that file each week.
The technique in this tutorial does not require any confirmation in order to overwrite the file.
Sections:
Overwrite A File Using VBA
Example
Notes
Overwrite A File Using VBA
Add these two lines to any macro to allow them to overwrite a file without having the confirmation window appear:
Add to the top of the macro:
Application.DisplayAlerts = FalseAdd to the bottom of the macro:
Application.DisplayAlerts = TrueApplication.DisplayAlerts controls if Excel will show pop-up window alert messages, such as when you go to overwrite an existing file and Excel wants to warn you about that.
When you set this value to False, these messages will not appear and, so, you won’t have to confirm anything that the macro does.
Make sure to set it back to True at the end of the macro so that Excel will function normally again after the macro has finished running.
Example
Here is a simple macro that you can use to test this out:
Sub Save_File_Overwrite()
' Save the current workbook as Test.xlsm
' 51 for regular file
' 52 for macro enabled workbook
ThisWorkbook.SaveAs "C:Test.xlsm", 52
End SubRun the above macro twice from a macro-enabled workbook. The second time that you run it, you will see a confirmation dialogue box asking if you want to overwrite the existing file or not.
Add the DisplayAlerts lines of code to the file and try it again:
Sub Save_File_Overwrite()
' Don't show confirmation window
Application.DisplayAlerts = False
' Save the current workbook as Test.xlsm
' 51 for regular file
' 52 for macro enabled workbook
ThisWorkbook.SaveAs "C:DirectoryTest.xlsm", 52
' Allow confirmation windows to appear as normal
Application.DisplayAlerts = True
End SubNow, the file will overwrite the existing file without making a mention of it.
Notes
Be careful! When you disable alerts in Excel, data can be overwritten without you knowing about it. If you have a large and complex macro that works fine except for one area where you want to save the file, disable alerts only for that one area and enable them afterwards for the rest of the macro; this reduces the chance that other data will get overwritten without warning.
Download the sample file if you want to see the above example in Excel.
Similar Content on TeachExcel
Excel VBA MsgBox — Message Box Macro
Tutorial: Create a pop-up message box in Excel using VBA Macros. This allows you to show a message t…
Logical Operators in Excel VBA Macros
Tutorial: Logical operators in VBA allow you to make decisions when certain conditions are met.
They…
Require a Password to View Hidden Worksheets in Excel — VBA Tutorial
Tutorial:
Full Course
A simple macro that allows you to require a password in order to view hidden …
Excel VBA — Create an Array — 3 ways
Tutorial: Ill show you three different ways to create an array in Excel VBA and Macros and how to ge…
Loop Through an Array in Excel VBA Macros
Tutorial:
I’ll show you how to loop through an array in VBA and macros in Excel. This is a fairly…
Loop through a Range of Cells in Excel VBA/Macros
Tutorial: How to use VBA/Macros to iterate through each cell in a range, either a row, a column, or …
Subscribe for Weekly Tutorials
BONUS: subscribe now to download our Top Tutorials Ebook!
|
Сохранить и заменить название файла |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
Содержание
- CopyFile method
- Syntax
- Remarks
- See also
- Support and feedback
- Метод CopyFile
- Синтаксис
- Замечания
- См. также
- Поддержка и обратная связь
- VBA Excel. Копирование и перемещение файлов
- Копирование файлов
- Метод CopyFile
- Синтаксис
- Параметры
- Примеры
- Метод CopyFolder
- Синтаксис
- Замечания
- См. также
- Поддержка и обратная связь
- FileCopy в VBA — Копировать файл из одного места в другое с помощью VBA
- Excel VBA FileCopy
- Синтаксис FileCopy в Excel VBA
- Как скопировать файл в Excel VBA?
- Пример № 1 — FileCopy в VBA
- Пример №2 — FileCopy в VBA
- Плюсы FileCopy в VBA
- То, что нужно запомнить
- Рекомендуемые статьи
CopyFile method
Copies one or more files from one location to another.
Syntax
object.CopyFile source, destination, [ overwrite ]
The CopyFile method syntax has these parts:
| Part | Description |
|---|---|
| object | Required. The object is always the name of a FileSystemObject. |
| source | Required. Character string file specification, which can include wildcard characters, for one or more files to be copied. |
| destination | Required. Character string destination where the file or files from source are to be copied. Wildcard characters are not allowed. |
| overwrite | Optional. Boolean value that indicates if existing files are to be overwritten. If True, files are overwritten; if False, they are not. The default is True. Note that CopyFile will fail if destination has the read-only attribute set, regardless of the value of overwrite. |
Wildcard characters can only be used in the last path component of the source argument. For example, you can use:
But you can’t use:
If source contains wildcard characters, or destination ends with a path separator (****), it is assumed that destination is an existing folder in which to copy matching files. Otherwise, destination is assumed to be the name of a file to create. In either case, three things can happen when an individual file is copied:
If destination does not exist, source gets copied. This is the usual case.
If destination is an existing file, an error occurs if overwrite is False. Otherwise, an attempt is made to copy source over the existing file.
If destination is a directory, an error occurs.
An error also occurs if a source using wildcard characters doesn’t match any files. The CopyFile method stops on the first error it encounters. No attempt is made to roll back or undo any changes made before an error occurs.
Files copied to a new destination path will keep the same file name. To rename the copied file, simply include the new file name in the destination path. For example, this will copy the file to a new location and the file in the new location will have a different name:
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Источник
Метод CopyFile
Копирует один или несколько файлов из одного расположения в другое.
Синтаксис
object. Источник CopyFile , назначение, [ перезапись ]
Синтаксис метода CopyFile содержит следующие элементы:
| Part | Описание |
|---|---|
| object | Обязательно. Объект всегда является именем Объекта FileSystemObject. |
| источник | Обязательно. Спецификация файла строки символов, которая может содержать подстановочные знаки (для одного или нескольких копируемых файлов). |
| destination | Обязательно. Символьное строковое обозначение конечного расположения, в которое необходимо скопировать файл или файлы из элемента source. Использование подстановочных знаков не допускается. |
| Перезаписать | Необязательный параметр. Логическое значение, которое указывает, требуется ли перезапись существующих файлов. Если установлено значение True, файлы будут перезаписаны; если задано значение False, перезапись не выполняется. По умолчанию используется значение True. Необходимо учитывать, что функция CopyFile не выполняется, если для элемента destination установлено свойство «только чтение», независимо от значения элемента overwrite. |
Замечания
Подстановочные знаки могут использоваться только в последнем компоненте пути аргумента source. Например, можно использовать:
Однако нельзя использовать:
Если источник содержит подстановочные знаки или назначение заканчивается разделителем пути (****), предполагается, что назначение — это существующая папка, в которую копируются соответствующие файлы. В противном случае элемент, destination предположительно является именем создаваемого файла. В любом случае при копировании отдельного файла могут произойти три вещи:
Если элемент destination не существует, выполняется копирование элемента source. Это типичный случай.
Если элемент destination представляет собой существующий файл, возникает ошибка, если элементу overwrite присвоено значение False. В противном случае выполняется попытка копирования элемента source в существующий файл.
Если destination является каталогом, происходит ошибка.
Ошибка также возникает в том случае, если элемент source, который использует подстановочные знаки, не соответствует ни одному из файлов. Выполнение метода CopyFile останавливается при обнаружении первой ошибки. До возникновения ошибки попыток отката или отмены каких-либо изменений не выполняется.
Файлы, скопированные в новый целевой путь, будут сохранять одно и то же имя файла. Чтобы переименовать скопированный файл, просто добавьте новое имя файла в путь назначения. Например, файл будет скопирован в новое расположение, а файл в новом расположении будет иметь другое имя:
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
VBA Excel. Копирование и перемещение файлов
Копирование и перемещение файлов в VBA Excel с помощью методов CopyFile и MoveFile объекта FileSystemObject. Синтаксис, параметры, примеры.
Копирование файлов
Метод CopyFile
Синтаксис
Параметры
| Параметр | Описание |
|---|---|
| object | Переменная, возвращающая объект FileSystemObject. Обязательный параметр. |
| source | Строковое выражение, задающее полное имя файла, который требуется скопировать в другое расположение. Для копирования нескольких файлов используются подстановочные знаки. Обязательный параметр. |
| destination | Строковое выражение, задающее конечное расположение, куда требуется скопировать файл (файлы) из элемента source. Подстановочные знаки не допускаются. Обязательный параметр. |
| overwrite | Логическое значение, которое указывает, требуется ли перезаписывать существующие файлы в конечном расположении. True – файлы будут перезаписаны, False – перезапись не выполняется. Необязательный параметр, по умолчанию – True. |
Если копируемый файл с полным именем source не существует, будет сгенерирована ошибка.
При копировании одного файла методом CopyFile допустимо в параметре destination указать другое собственное имя файла, тогда скопированный файл будет сохранен под новым именем. В том числе, можно изменить и расширение файла.
Примеры
Пример 1
Копирование одного файла в другое расположение с проверкой его существования:
Источник
Метод CopyFolder
Рекурсивно копирует папку из одного места в другое.
Синтаксис
object. Источник CopyFolder , назначение, [ перезапись ]
Синтаксис метода CopyFolder состоит из следующих частей:
| Part | Описание |
|---|---|
| object | Обязательно. Всегда имя объекта FileSystemObject. |
| источник | Обязательно. Строка знаков, представляющая спецификацию папки, которая может содержать подстановочные знаки для одной или нескольких копируемых папок. |
| destination | Обязательно. Строка знаков, определяющая место назначения, в которое должны быть скопированы папка и вложенные папки из source. Использование подстановочных знаков запрещено. |
| Перезаписать | Необязательный параметр. Значение типа Boolean, показывающее, можно ли перезаписывать существующие папки. При значении True файлы перезаписываются, при значении False перезапись файлов не происходит. По умолчанию используется значение True. |
Замечания
Подстановочные знаки могут использоваться только в последнем компоненте пути аргумента source. Например, можно использовать:
Однако нельзя использовать:
Если источник содержит подстановочные знаки или назначение заканчивается разделителем пути (), предполагается, что назначение — это существующая папка, в которую копируются соответствующие папки и вложенные папки. В противном случае предполагается, что destination — это имя создаваемой папки. В любом случае при копировании отдельной папки могут произойти четыре вещи:
Если папка destination не существует, выполняется копирование папки source и всего ее содержимого. Это обычный случай.
Если destination является существующим файлом, происходит ошибка.
Если destination является каталогом, выполняется попытка скопировать папку и все ее содержимое. Если файл, содержащийся в source, уже существует в destination, возникает ошибка, если значение overwrite равно False. В противном случае будет выполнена попытка скопировать файл поверх существующего файла.
Если destination является каталогом только для чтения и значение overwrite равно False, при попытке скопировать в этот каталог существующий файл только для чтения возникает ошибка.
Ошибка также возникает, если значение source, заданное с использованием подстановочных знаков, не соответствует никаким папкам.
Метод CopyFolder останавливается при первой обнаруженной ошибке. Попытка отката изменений, выполненных до появления ошибки, не выполняется.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
FileCopy в VBA — Копировать файл из одного места в другое с помощью VBA
Excel VBA FileCopy
Есть много способов скопировать или переместить файл из одной папки в другую. Мы можем сделать это вручную, скопировав и вырезав значок файла и вставив его в папку назначения. Но когда дело доходит до автоматизации этого процесса копирования файла, мы можем сделать это и в VBA. Чтобы скопировать файл, у нас есть функция, доступная в VBA, которая называется «Копирование файла».
Синтаксис FileCopy в Excel VBA
Применить File Copy в VBA очень легко. Синтаксис File Copy выглядит так, как показано ниже.
File Copy имеет только два компонента для подачи. Которые:
- Источник — Здесь мы разместим исходное местоположение, откуда нам нужно скопировать файл.
- Назначение — и это будет папка назначения, в которую мы будем вставлять скопированный файл.
Полный синтаксис будет в типе String. Потому что мы будем использовать путь к файлу, который будет в виде текста.
Как скопировать файл в Excel VBA?
Теперь давайте попробуем с некоторыми примерами копирования файлов VBA в Excel.
Вы можете скачать этот VBA Скопировать файл Excel шаблон здесь — VBA Скопировать файл Excel шаблон
Пример № 1 — FileCopy в VBA
В первом примере мы увидим, как скопировать файл из исходного местоположения и вставить его в место назначения очень простым способом.
Для этого нам понадобится файл любого вида или расширения. Здесь мы рассматриваем файл Excel с расширением xlsx . Как мы видим, мы поместили этот файл Excel в папку, которая легко доступна и называется Test .
Теперь мы скопируем этот файл с помощью FileCopy в указанную ниже папку назначения.
Шаг 1: Для этого перейдите в VBA и откройте раскрывающийся список «Модуль из вставки», как показано ниже.
Шаг 2: Теперь в открытом модуле напишите подкатегорию VBA FileCopy или любое другое имя по вашему выбору.
Код:
Шаг 3: Теперь откройте функцию FileCopy, как показано ниже.
Код:
Шаг 4: Теперь в кавычках напишите адрес местоположения источника, а затем имя и расширение файла, как показано ниже.
Код:
Шаг 5: В качестве места назначения снова поместите путь в кавычки, затем файл и расширение.
Код:
Шаг 6: Теперь скомпилируйте код и запустите его, нажав на кнопку Play, которая находится под строкой меню. Мы увидим, что файл Excel с именем Test теперь копируется из исходного местоположения в местоположение назначения, как показано ниже. Поскольку в файле ничего не было, размер файла равен 0 КБ .
Пример №2 — FileCopy в VBA
В другом примере мы увидим, как скопировать файл из исходного местоположения в место назначения, определив переменную. Этот процесс немного длительный, но более надежный, так как мы будем фиксировать параметры и переменные.
Шаг 1: Теперь сначала откройте новый модуль и напишите подкатегорию VBA File Copy, как показано ниже.
Код:
Шаг 2: Сначала определите переменную, в которую мы будем помещать исходное местоположение файла того же файла Excel, который мы использовали в примере-1 в качестве String.
Код:
Шаг 3: Аналогичным образом, нам понадобится еще одна переменная для места назначения.
Код:
Шаг 4: Теперь поместите местоположение в первую определенную переменную, которая является « FirstLocation » вместе с именем файла и его расширением.
Код:
Шаг 5: Аналогичным образом сделайте то же самое для местоположения пункта назначения, используя переменную « SecondLocation», которую мы определили выше.
Код:
Шаг 6: Теперь пришло время использовать функцию FileCopy .
Код:
В соответствии с синтаксисом FileCopy, во-первых, мы должны указать местоположение источника, где мы сохранили файл. Но, как мы уже определили выше, исходные и целевые папки для обеих переменных.
Шаг 7: Итак, здесь мы можем напрямую выбрать эти переменные. Сначала выберите переменную местоположения источника, которая является FirstLocation .
Код:
Шаг 8: Снова аналогичным образом выберите переменную места назначения, которая является SecondLocation, как показано ниже.
Код:
Шаг 9: После этого мы скомпилируем код, нажав функциональную клавишу F8. И если ошибки не найдены, запустите код. Мы увидим, что файл из исходного местоположения копируется и вставляется в папку назначения, как показано ниже.
Мы можем попробовать другой путь. Для теста давайте рассмотрим другое местоположение источника, где у нас будет файл слова.
Как мы видим, в файле нет данных, поэтому размер снова отображается как 0 КБ.
И целевой папкой будет папка «Расположение вывода», которая находится в папке «Расположение ввода». Если мы видим внутри файла, нет доступных данных.
Теперь мы заменим источник и назначение в переменных FirstLocation и Second Location соответственно, за которыми следуют имя файла и его расширение.
Код:
Теперь запустите код.
Мы увидим, что файл Test word теперь копируется из папки Input Location в папку Output location с тем же размером, который равен 0 КБ.
Плюсы FileCopy в VBA
- Может использоваться для копирования более 1 файла за один снимок.
- Для 10 файлов требуется примерно столько же времени, сколько для копирования одного файла.
- Мы можем использовать любой тип файла расширения, который мы хотим скопировать.
То, что нужно запомнить
- Всегда ставьте имя файла и его расширение в конце имени местоположения.
- Заключите в кавычки ссылки места назначения и источника.
- После этого сохраните код в макросе, чтобы Excel смог использовать и сохранить код для будущих целей.
- Всегда предоставляйте разрешение на код, чтобы он мог скопировать файл из исходного расположения и вставить его в место назначения.
Рекомендуемые статьи
Это руководство по FileCopy в VBA. Здесь мы обсуждаем, как скопировать файл Excel с использованием кода VBA, а также с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи —
- Работа с VBA Active Cell
- Удаление строки в VBA
- Как использовать Excel VBA Transpose?
- Как исправить ошибку 1004 с помощью VBA
Источник
При сохранении книги Excel в новую папку вы получите окно подсказки, как показано на скриншоте ниже, если книга с таким же именем существует и находится в папке. Как автоматически перезаписать существующий файл без предупреждения? Метод, описанный в этой статье, может вам помочь.
Функция Сохранить как для автоматической перезаписи существующего файла кодом VBA
Функция Сохранить как для автоматической перезаписи существующего файла кодом VBA
Если вы хотите сохранить книгу под новым именем и автоматически перезаписать существующий файл в Excel. Пожалуйста, сделайте следующее.
1. Сначала создайте командную кнопку для запуска функции «Сохранить как» на вашем листе. Пожалуйста, нажмите Застройщик > Вставить > Командная кнопка (активный элемент управления X). Смотрите скриншот:
2. Нарисуйте командную кнопку на своем листе. Затем щелкните его правой кнопкой мыши и выберите Просмотреть код из контекстного меню.
3. в Microsoft Visual Basic для приложений окна, скопируйте приведенный ниже код VBA и вставьте между Частный суб и End Sub линий в Code окно.
Код VBA: функция «Сохранить как» для автоматической перезаписи существующего файла
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True4. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно. И выключите Режим проектирования под Застройщик меню.
5. Нажмите кнопку Command, затем Сохранить как появится диалоговое окно, выберите папку для сохранения этой книги и нажмите кнопку Сохраните кнопку.
Если в целевой папке существует книга с таким же именем, она будет автоматически перезаписана текущей книгой без запроса.
Статьи по теме:
- Как сохранить рабочий лист в виде файла PDF и отправить его по электронной почте в виде вложения через Outlook?
- Как сохранить имя файла Excel с отметкой времени?
- Как сохранить, экспортировать несколько / все листы в отдельные CSV или текстовые файлы в Excel?
- Как отключить или запретить параметры «Сохранить и сохранить как» в Excel?
- Как отключить сохранение книги, но разрешить сохранение только как в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (2)
Оценок пока нет. Оцените первым!