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

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

Next J Close #1

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

Помните, что информация в этом совете показывает, как добавлять данные в текстовый файл; он не указывает, откуда должны поступать эти данные. Другими словами, если вы хотите, чтобы данные поступали из информации, хранящейся в переменных в вашем макросе, вам необходимо определить, какое содержимое переменной записывать в файл. (В примере кода фактически используются переменные — массив UserVals — для записи информации в текстовый файл.)

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

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

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

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

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

Этот совет (2536) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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