• CurDir() - функция, которая возвращает путь к каталогу(для указанного диска), в котором по умолчанию будут сохраняться файлы: 
        Dim sCurDir As String
    sCurDir = CurDir("D")
  • Dir() — позволяет искать файл или каталог по указанному пути на диске. Пример использования можно посмотреть в статье: Просмотреть все файлы в папке
  • EOF() — при операции записи в файл на диске эта функция вернет True, если вы находитесь в конце файла. Обычно используется при работе с текстовыми файлами — .txt. При сохранении книг Excel лучше использовать стандартные методы: Save и SaveAs.
  • Error() - позволяет вернуть описание ошибки по ее номеру. Генерировать ошибку нужно при помощи метода RaiseError() специального объекта Er.
  • Print - записывает в открытый файл указанный текст. Далее будет приведен пример использования данной функции
  • FreeFile() — позволяет определить номер следующего свободного файла, который можно использовать как номер файла при его открытии методом Open. Предпочтительно применять именно этот метод определения номера файла(вместо статичного #1), чтобы не было неоднозначности обращения к файлам. Ниже приведены примеры применения данной функции при обращении к файлам
  • FileAttr() — позволяет определить, как именно был открыт файл в файловой системе: на чтение, запись, добавление, в двоичном или текстовом режиме и т.п. Применяется для работы с текстовыми файлами, открытыми при помощи Open "C:\Text1.txt" For [] As #1
    Открыть файл можно несколькими способами, приведу примеры наиболее распространенных вариантов:

    • Input() — открывает текстовый файл на чтение. Т.е. таким методом можно открыть файл и вытянуть из него данные. Например, чтобы считать информацию из файла C:Text1.txt и вывести ее в окно Immediate можно применить такой код: 
          Dim MyChar
    Open "C:\Text1.txt" For Input As #1 'Открываем файл функцией Open() на чтение(Input)
    Do While Not EOF(1)  'пока файл не кончился
        ' Получаем по одному символу и добавляем его к предыдущим
        MyChar = MyChar & Input(1, #1)
    Loop
    Close #1 ' Закрываем файл
    'Выводим его содержание в окно Immediate
    '(отобразить Immediate: Ctrl+G в окне редактора VBA)
    Debug.Print MyChar
    'или в MsgBox
    MsgBox MyChar, vbInformation, "www.excel-vba.ru"
    • Ouput() — метод открывает файл для записи. Например, чтобы записать в файл строку, содержащую все ячейки в выделенном диапазоне, можно использовать такой код: 
      Sub SelectionToTxt()
    Dim s As String, rc As Range
    Dim ff
    'запоминаем все значения из выделенной строки в строку
    For Each rc In Selection
        If s = "" Then 'если пока ничего не записали - присваиваем только значение ячейки
            s = rc.Value
        Else 'если уже записано - добавляем через TAB
            s = s & vbTab & rc.Value
        End If
    Next
    ff = FreeFile
    'Открываем текстовый файл
    'если файла нет - он будет создан
    Open "C:\Text1.txt" For Output As #ff
    'записываем значение строки в файл
    Print #ff, s
    Close #ff ' Закрываем файл
End Sub

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

    • Append() — метод открывает файл для записи, но в отличии от Output записывает данные в конец файла, а не перезаписывает текущие данные. Например, код добавления выделенных ячеек как одной строки в имеющийся файл будет выглядеть так: 
      Sub SelectionToTxt_Add()
    Dim s As String, rc As Range
    Dim ff
    'запоминаем все значения из выделенной строки в строку
    For Each rc In Selection
        If s = "" Then 'если пока ничего не записали - присваиваем только значение ячейки
            s = rc.Value
        Else 'если уже записано - добавляем через TAB
            s = s & vbTab & rc.Value
        End If
    Next
    ff = FreeFile
    'Открываем текстовый файл
    'если файла нет - он будет создан
    Open "C:\Text1.txt" For Append As #ff
    'записываем значение строки в файл
    Print #ff, s
    Close #ff ' Закрываем файл
End Sub
  • FileDateTime() — позволяет получить информацию о последнем времени обращения к указанному файлу. Если к файлу после создания ни разу не обращались, то это будет время создания файла. Если попытаться обратиться к уже открытой книге/файлу - то будет получено время открытия книги/файла, а не создания или сохранения. 
        sFileDateTime = FileDateTime("C:\Text1.txt")
  • FileLen() — позволяет определить длину указанного файла в байтах: 
        MsgBox FileLen("C:\Text1.txt") & " bites", vbInformation, "www.excel-vba.ru"
  • GetAttr() — возможность обратиться к файлу к файловой системе и получить информацию об его атрибутах (скрытый, доступен только для чтения, архивный и т.п.)
  • InputB() — позволяет указывать количество байт, которые надо считать из файла. Альтернатива методу Open в случаях, когда необходимо считывать данные не по конкретным строкам, а именно побайтово.
  • Loc() — от Location, то есть местонахождение — возвращает число, которое определяет текущее место вставки или чтения в открытом файле.
  • Seek() — очень похожа на функцию Loc(), но Seek() возвращает информацию о позиции, с которой будет выполняться следующая операция чтения или вставки.
  • LOF() — length of file — позволяет определить длину открытого файла в байтах.

Loading