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

Open "MyFile.Dat" For Output As #1 Print #1, NumValues For J = 1 to NumValues     Print #1, UserVals(J)

Next J Close #1

Первое, что записывается в файл, — это числовое значение, указывающее, сколько отдельных значений будет следовать за ним (код предполагает, что вы устанавливаете это значение в переменной NumValues). Затем цикл For …​ Next используется для создания баланса файла.

Вы должны знать, что написанный код перезапишет любой существующий файл MyFile.Dat. Если вы хотите каким-то образом защитить файл, ваш код должен будет проверить, существует ли он, прежде чем открывать его, или вам нужно будет установить атрибуты файла только для чтения.

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

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

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

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

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

link: / excel-Saving_Information_in_a_Text_File [Сохранение информации в текстовом файле].