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

Open "MyFile.Dat" For Append As #1 For J = 1 to NewValues     Print #1, UserVals(OrigVals + J)

Next J Close #1

Когда файл открывается в режиме добавления, любая новая информация добавляется в конец файла, не нарушая существующее содержимое.

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9206) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Appending_to_a_Non-Excel_Text_File [Добавление к текстовому файлу не в формате Excel].