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

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

Open "DOSTEXT.DAT" for Input as #1 iFileLen = LOF(1)

Seek 1, iFileLen / 2

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

Вы также можете использовать Seek как функцию для определения вашего текущего положения в текстовом файле. Вот что делает этот код:

iCurPos = Seek(1)

Эта команда оставляет внутренний указатель файла там, где он был, но устанавливает iCurPos на значение, представляющее, сколько символов в файле указатель. Значение iCurPos — это позиция, в которой будет происходить все последующее чтение и запись файла.

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

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

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

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

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

link: / excel-Using_Seek_In_a_Macro [Использование поиска в макросе].