Работа с файлами VBA

Приветствую! Сегодня мы поговорим о файлах, а точнее, как получать информацию из текстовых файлов в VBA. И будем повышать ваше умение программировать, как обычно, на примере.

Задача:

В обычном текстовом файле содержатся строки:

Приветствуем Вас на сайте CodeTown.ru
здесь Вы найдёте много интересных
примеров на разные темы
и на разных языках.
Наслаждайтесь=)

Необходимо вывести их на лист в Excel, чтобы каждое слово находилось в своей ячейки с учётом пробелов.

Поехали!

Sub Prog()
    Dim r As Integer
    Dim c As Integer
    Dim sl As String
    Dim x As Integer
    
    Close #1
    Open "file.txt" For Input As #1
    r = 0
    Do Until EOF(1)
        c = 0
        Line Input #1, Data
        Do While InStr(Data, " ") <> 0
            x = InStr(Data, " ")
            sl = Left(Data, x)
            Data = Right(Data, Len(Data) - x)
            Cells(r + 1, c + 1) = sl
            c = c + 1
        Loop
         Cells(r + 1, c + 1) = Data
        r = r + 1
    Loop
    Close #1
End Sub

Open «file.txt» For Input As #1 — таким образом прописываем путь к файлу, который мы хотим прочитать. Помните, что наши пути могут различаться. Также в конце команды мы присваиваем файлу идентификационный номер. В нашем случае 1.

Do Until EOF(1) — инициализация цикла чтения файла, пока не кончится файл (End Of File). В скобках функции указываем идентификационный номер файла, с которым мы работаем.

Line Input #1, Data — построчное считывание информации из файла. То есть, за каждую итерацию цикла Do Until EOF(1)F(1) мы обрабатываем одну строку.
Функция Line Input является наследуемой функцией от функции Input, которая в свою очередь позволяет считывать данные разного формата из открытых файлов разного типа. Подробный синтаксис вы можете найти здесь.

Как видите, программа небольшая и мы прошли уже основную часть. Мы смогли считать данные в виде строки, теперь, необходимо её обработать. То есть, поделить на слова и записать каждое в ячейку.

Do While InStr(Data, " ") <> 0 — инициализирует цикл разделения строки на слова по пробелам. Собственно, сама функция InStr(Data, " ") занимается поиском символа, указанного на второй позиции (в нашем случае пробел) в строке, указанной на первой позиции (Data). Поиск осуществляется слева направо. Результатом функции является позиция найденного символа. Подробнее читайте тут. Таким образом, цикл не закончится, пока не закончатся пробелы. Однако, следует помнить, что пробел редко стоит в конце строки(обычно из-за ошибки автора). По этому после выхода из цикла в переменной Data останется последнее слово строки. Не забудем его вывести.

Напоследок, обратите внимание на расположение обнуляющих операций переменный c и r. Нам приходится обнулять переменную r перед началом обработки строки, чтобы реализовать перенос между строк.

Если Вам какие-то команды остались не ясны, советую почитать предыдущие статьи, там вы найдёте примеры на работу с ними.

Наш вывод:

Вот, собственно, и всё, разобрали некоторые моменты работы с файлами в VBA. Задавайте вопросы в комментариях. Надеюсь вы прониклись магией VBA, если же нет, читайте продолжение. =)

Скачать исходники