• ГЛАВА 13. РАБОТА С ФАЙЛАМИ
• Типы ФАЙЛОВ в VBA
• ОТКРЫТИЕ И ЗАКРЫТИЕ ФАЙЛА
• ВВОД ДАННЫХ В ФАЙЛ ПОСЛЕДОВАТЕЛЬНОГО ДОСТУПА
• ВЫВОД ДАННЫХ ИЗ ФАЙЛА ПОСЛЕДОВАТЕЛЬНОГО ДОСТУПА
• РАБОТА с ФАЙЛОМ ПРОИЗВОЛЬНОГО ДОСТУПА
• НАИБОЛЕЕ УПОТРЕБЛЯЕМЫЕ ИНСТРУКЦИИ и ФУНКЦИИ ПРИ РАБОТЕ С ФАЙЛАМИ
• ОБЪЕКТ FILESEARCH

Глава 13.

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

Типы файлов в VBA

В VBA допустима работа с тремя типами текстовых файлов. .

Открытие и закрытие файла

Обсудим инструкции, связанные с открытием файла для операций ввода/вывода, а также с закрытием файла по завершению работы с ним.

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

Open "Первый" For Binary Access Write As #1 Close #1

Ввод данных в файл последовательного доступа

Обсудим инструкции, используемые при вводе информации в файл последовательного доступа.

Приведем две процедуры, использующие инструкции Print и write для создания файлов последовательного доступа. Сначала рассмотрим процедуру с инструкцией

Print. Sub

ПримерИспольэования Print

Open "С:\Новый" For Output As II

' Печатает текст в файл '

Print #1, "Тест"

'

' Печатает пустую строку в файл

'

Print #l,

'

' Печатает в двух зонах печати

'

Print #1, "Зона 1";

Tab;

"ъПОБ 2" ;

Spc(3) ;

"3 РТПВЕМБ"

Close #1

End Sub

тЕЪХМШФБФПН ПРЙУБООЩИ ЧЩЫЕ ЙОУФТХЛГЙК ВХДЕФ ЖБКМ УП УМЕДХАЭЙН УПДЕТЦЙНЩН:

фЕУФ

ъПОБ 1 ъПОБ 2 3 РТПВЕМБ

рЕТЕКДЕН ФЕРЕТШ Л РТЙНЕТХ РТПГЕДХТЩ, УПЪДБАЭЕК ЖБКМ РПУМЕДПЧБФЕМШОПЗП

дПУФРБ РТЙ РПНПЭЙ ЙОУФТХЛГЙЙ Write.

Sub рТЙНЕТйУРПМШЪПЧБОЙСwriteЕ

Open "еЭЕрТЙНЕТ"

For Output As #1

Write #1, "рТЙНЕТ";

"ЙУРПМШЪПЧБОЙС"

Write #l, "ЙОУФТХЛГЙЙ";

Write #1, "Write"

x = 1

Write #1, "юЙУМП";

И Close #1

End Sub

тЕЪХМШФБФПН ПРЙУБООЩИ ЧЩЫЕ ЙОУФТХЛГЙК ВХДЕФ ЖБКМ УП УМЕДХАЭЙН УПДЕТЦЙНЩН:

"рТЙНЕТ","ЙУРПМШЪПЧБОЙС" "ЙОУФТХЛГЙЙ","Write" "юЙУМП",1

пВТБФЙФЕ ЧОЙНБОЙЕ ОБ БЧФПНБФЙЮЕУЛПЕ ТБЪНЕЭЕОЙЕ Ч ЖБКМЕ ТБЪДЕМЙФЕМЕК -ЪБРСФЩИ, Й ФП, ЮФП УФТПЛПЧБС ЙОЖПТНБГЙС ВЕТЕФУС Ч ЛБЧЩЮЛЙ. ч РТПГЕДХТЕ

рТЙНЕТЙУМПМШЪПЧБОЙСWrite ЧФПТБС ЙОУФТХЛГЙС write УРЕГЙБМШОП ЪБЛБОЮЙЧБЕФУС ЪОБЛПН ";" ьФП ПВЕУРЕЮЙЧБЕФ ЧЩЧПД ДБООЩИ ФТЕФШЕК ЙОУФТХЛГЙЕК write Ч ФХ ЦЕ УФТПЛХ ЖБКМБ, Ч ЛПФПТХА ЧЩЧПДЙМБ ЧФПТБС ЙОУФТХЛГЙС.

чЩЧПД ДБООЩИ ЙЪ ЖБКМБ РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ

пВУХДЙН ЙОУФТХЛГЙЙ Й ЖХОЛГЙЙ ЧЩЧПДБ ЙОЖПТНБГЙЙ ЙЪ ЖБКМБ РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ, Б ФБЛЦЕ ЖХОЛГЙА ЙДЕОФЙЖЙЛБГЙЙ ЛПОГБ ЖБКМБ.

рТЙЧЕДЕН РТЙНЕТ ЙУРПМШЪПЧБОЙС ЙОУФТХЛГЙЙ input # ДМС УЮЙФЩЧБОЙС ДБООЩИ ЙЪ ЖБКМБ. ч ЬФПН РТЙНЕТЕ РТЕДРПМБЗБЕФУС, ЮФП ОБ ДЙУЛЕ УХЭЕУФЧХЕФ ЖБКМ ЗТХРРБьЛПОПНЙУФПЧ, УПДЕТЦБЭЙК ЙОЖПТНБГЙА П УФХДЕОФБИ. жБКМ ВЩМ УПЪДБО РТЙ РПНПЭЙ ЙОУФТХЛГЙЙ write # Й УПУФПЙФ ЙЪ ДЧХИ УФПМВГПЧ, Ч РЕТЧПН ЙЪ ЛПФПТЩИ ХЛБЪЩЧБЕФУС ЖБНЙМЙС, Б ЧП ЧФПТПН — ПГЕОЛБ УФХДЕОФБ. дМС ХДПВУФЧБ ТБВПФЩ У ЙОЖПТНБГЙЕК ЧЧЕДЕО РПМШЪПЧБФЕМШУЛЙК ФЙР уФХДЕОФЩ. рТПГЕДХТБ РТЙНЕТЙУРПМШЪПЧБОЙСInput РПУМЕДПЧБФЕМШОП УЮЙФЩЧБЕФ ЖБНЙМЙЙ Й ПГЕОЛЙ ЙЪ ЖБКМБ Й ЧЩЧПДЙФ ЙИ Ч СЮЕКЛЙ РЕТЧПЗП Й ЧФПТПЗП УФПМВГБ ТБВПЮЕЗП МЙУФБ.

фХТЕ уФХДЕОФЩ

' жБНЙМЙС As String * 20

пГЕОЛБ As String * 3

End Type

Sub рТЙНЕТйУРПМШЪПЧБОЙСInput()

Dim уФХДЕОФ As уФХДЕОФЩ

Open "зТХРРБьЛПОПНЙУФПЧ"

For Input As 12 i = 1

Do While Not EOF(2) With уФХДЕОФ

Input #2, .жБНЙМЙС, .пГЕОЛБ

Cells(i, 1).Value = .жБНЙМЙС

Cells(i, 2).Value = .пГЕОЛБ

End With

i = i + 1 Loop

Close #2

End Sub

рТЙЧЕДЕН РТЙНЕТ ЙУРПМШЪПЧБОЙС ЙОУФТХЛГЙЙ Line input # ДМС УЮЙФЩЧБОЙС ДБООЩИ ЙЪ ЖБКМБ ЗТХРРБьЛПОПНЙУФПЧ, ЙНЕАЭЕЗП ФХ ЦЕ УФТХЛФХТХ, ЮФП Й Ч РТЕДЩДХЭЕН РТЙНЕТЕ, ОП УПЪДБООПЗП У РПНПЭША ЙОУФТХЛГЙЙ Print #. йОУФТХЛГЙС Line input # УЮЙФЩЧБЕФ ЧУА УФТПЛХ ЙЪ ЖБКМБ Ч УФТПЛПЧХА РЕТЕНЕООХА. рПЬФПНХ Ч ЬФПН УМХЮБЕ ХЦЕ ОЕФ ОЕПВИПДЙНПУФЙ ЙУРПМШЪПЧБФШ ЧЧЕДЕООЩК РПМШЪПЧБФЕМШУЛЙК ФЙР, Б ДПУФБФПЮОП ПЗТБОЙЮЙФШУС ФПМШЛП ПВЩЮОПК УФТПЛПЧПК РЕТЕНЕООПК. чУС УЮЙФЩЧБЕНБС ЙОЖПТНБГЙС УФТПЛБ ЪБ УФТПЛПК ЧЧПДЙФУС Ч УРЙУПЛ ДЙБМПЗПЧПЗП .ПЛОБ.

Private Sub UserForm_Initialize()

Dim уФХДЕОФ As String

Open "зТХРРБьЛПОПНЙУФПЧ"

For Input As #1

i = 1

With ListBoxl

.Clear Do While Not EOF(l)

Line Input 11, уФХДЕОФ

.Addltem уФХДЕОФ

i = i + 1 Loop

Close #l

End With

End Sub

тБВПФБ У ЖБКМПН РТПЙЪЧПМШОПЗП ДПУФХРБ

рТЙЧЕДЕН ЙОУФТХЛГЙЙ ЧЧПДБ/ЧЩЧПДБ ЙОЖПТНБГЙЙ РТЙ ТБВПФЕ У ЖБКМПН РТПЙЪЧПМШОПЗП ДПУФХРБ, Б ФБЛЦЕ ЙОУФТХЛГЙЙ ПРТЕДЕМЕОЙС ДМЙОЩ ЖБКМБ Й ФЕЛХЭЕК РПЪЙГЙЙ ХЛБЪБФЕМС Ч ЖБКМЕ.

лБЛ ЧЙДОП ЙЪ РТЙЧЕДЕООПЗП Ч РТЕДЩДХЭЕН ТБЪДЕМЕ РТЙНЕТБ ДМС УЮЙФЩЧБОЙС ЙОЖПТНБГЙЙ РТЙ РПНПЭЙ ЙОУФТХЛГЙЙ input # ЙЪ ЖБКМБ ЗТХРРБьЛПОПНЙУФПЧ, ЖБКМ РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ ЙОПЗДБ ХДПВОП ЪБДБЧБФШ ЛБЛ РПУМЕДПЧБФЕМШОПУФШ ЪБРЙУЕК (Ч ДБООПН УМХЮБЕ, ЪБРЙУЕК П УФХДЕОФБИ), РТЙЮЕН ЛБЦДБС ЙЪ ЪБРЙУЕК ЖПТНЙТХЕФУС ЙЪ ЗТХРРЩ РПМЕК (Ч ДБООПН УМХЮБЕ ЙЪ РПМЕК жБНЙМЙС Й ПГЕОЛБ). пФНЕФЙН, ЮФП ФБЛБС ЗТХРРЙТПЧЛБ РП ЪБРЙУСН ОЕ СЧМСЕФУС ЮЕН-ФП РТЙУХЭЙН ЖБКМБН РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ. ьФП РТПУФП РПДИПД, РПЪЧПМСАЭЙК ХРТПУФЙФШ РТПГЕУУ РПУМЕДПЧБФЕМШОПЗП УЮЙФЩЧБОЙС ЪБРЙУЕК. ч ЖБКМЕ РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ УХЭЕУФЧХЕФ ФПМШЛП ПДОБ ЧОХФТЕООСС УФТХЛФХТБ, ПВТБЪПЧБООБС ТБЪДЕМЙФЕМСНЙ (ЪБРСФЩНЙ ЙМЙ УРЕГЙБМШОЩНЙ УЙНЧПМБНЙ, ПВПЪОБЮБАЭЙНЙ РЕТЕИПД ОБ ОПЧХА УФТПЛХ).

ч РТПФЙЧПРПМПЦОПУФШ ЖБКМБН РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ, Ч ЖБКМБИ РТПЙЪЧПМШОПЗП ДПУФХРБ ЪБРЙУШ СЧМСЕФУС ЧУФТПЕООЩН ЬМЕНЕОФПН. жБКМ РТПЙЪЧПМШОПЗП ДПУФХРБ — ЬФП ЖБКМ, ХРПТСДПЮЕООЩК РП ЪБРЙУСН, ЮФП РПЪЧПМСЕФ ВЩУФТП РЕТЕНЕУФЙФШУС ОБ МАВХА ЪБРЙУШ, НЙОХС РТЕДЩДХЭЙЕ.

рТЙ УПЪДБОЙЙ ЖБКМБ РТПЙЪЧПМШОПЗП ДПУФХРБ ХЛБЪЩЧБЕФУС НБЛУЙНБМШОБС ДМЙОБ ЛБЦДПК ЪБРЙУЙ. уБНП УПВПК ТБЪХНЕЕФУС, ЮФП Ч МАВХА ЪБРЙУШ НПЦОП ЧЧПДЙФШ ДБООЩЕ, ЪБОЙНБАЭЙЕ ОЕ ЧУЕ НЕУФП, ЧЩДЕМЕООПЕ ДМС ЪБРЙУЙ, ОП ОЕМШЪС ЧЧЕУФЙ ДБООЩЕ, ФТЕВХАЭЙЕ ВПМШЫЕ НЕУФБ, ЮЕН ДПРХУФЙНБС ДМЙОБ ЪБРЙУЙ. мЙЫОСС ЙОЖПТНБГЙС ВХДЕФ РТПУФП ХУЕЛБФШУС.

оБ РТБЛФЙЛЕ ВЩЧБЕФ ХДПВОП УПЪДБЧБФШ ПФДЕМШОЩК ЖБКМ, Ч ЛПФПТПН ИТБОЙФУС ЙОЖПТНБГЙС П УФТХЛФХТЕ ЖБКМБ РТПЙЪЧПМШОПЗП ДПУФХРБ: УФТХЛФХТБ ЪБРЙУЙ, ЕЕ ДМЙОБ Й ЪБЗПМПЧЛЙ РПМЕК.

пФНЕФЙН, ЮФП РТЙ ПФЛТЩФЙЙ ЖБКМБ РТПЙЪЧПМШОПЗП ДПУФХРБ, Ч ПФМЙЮЙЕ ПФ ЖБКМБ РПУМЕДПЧБФЕМШОПЗП ДПУФХРБ, ОЕ ОБДП УРЕГЙБМШОП ХЛБЪЩЧБФШ, ПФЛТЩЧБЕФУС ПО ДМС ЧЧПДБ ЙМЙ ЧЩЧПДБ ЙОЖПТНБГЙЙ. чЧПД Й ЧЩЧПД ЙОЖПТНБГЙЙ ПРТЕДЕМСАФ ЛПНБОДЩ Put Й Get.

рТЙЧЕДЕН ПДЙО, РТЙНЕТ ТБВПФЩ У ЖБКМПН РТПЙЪЧПМШОПЗП ДПУФХРБ ЗТХРРБ ьЛПОПНЙУФПЧ, ЛПФПТЩК ЙНЕЕФ ФХ ЦЕ УФТХЛФХТХ, ЮФП Й Ч РТЕДЩДХЭЕН РТЙНЕТЕ. жБКМ УПЪДБЕФУС У РПНПЭША РТПГЕДХТЩ ЪБРЙУШЧПБКМ, ЛПФПТБС РПУМЕДПЧБФЕМШОП УЮЙФЩЧБЕФ ДБООЩЕ ЙЪ РЕТЧПЗП Й ЧФПТПЗП УФПМВГБ ТБВПЮЕЗП МЙУФБ Й ЪБФЕН ЧЧПДЙФ ЙИ Ч ЖБКМ. ч ЬФПК РТПГЕДХТЕ ЮЙУМП ЧЧПДЙНЩИ ЪБРЙУЕК ЖЙЛУЙТПЧБОП Й ТБЧОП 5. рТПГЕДХТБ уЮЙФЩЧБОЙЕЙЪЖБКМБ РТПЙЪЧПДЙФ ПВТБФОПЕ ДЕКУФЧЙЕ — УЮЙФЩЧБЕФ ДБООЩЕ ЙЪ ЖБКМБ Й ЧЧПДЙФ ЙИ Ч СЮЕКЛЙ ФТЕФШЕЗП Й ЮЕФЧЕТФПЗП УФПМВГБ ТБВПЮЕЗП МЙУФБ. йОФЕТЕУОПК ПУПВЕООПУФША ЖБКМБ РТПЙЪЧПМШОПЗП ДПУФХРБ СЧМСЕФУС ФП, ЮФП РТЙ ТБВПФЕ У ОЙН НПЦОП ПРТЕДЕМЙФШ ЮЙУМП ЪБРЙУЕК ОЕ РЕТЕУЮЙФЩЧБС ЙИ. юЙУМП ЪБРЙУЕК ТБЧОП ПФОПЫЕОЙА ТБЪНЕТБ ЖБКМБ Л ДМЙОЕ ПДОПК ЪБРЙУЙ. дМЙОБ ЪБРЙУЙ ХУФБОБЧМЙЧБЕФУС РТЙ УПЪДБОЙЙ ЖБКМБ РТПЙЪЧПМШОПЗП ДПУФХРБ Й ПРТЕДЕМСЕФУС ФЙРПН РЕТЕНЕООПК, РТЙ РПНПЭЙ ЛПФПТПК ЖБКМ ВЩМ УПЪДБО, ТБЪНЕТ ПФЛТЩФПЗП ЖБКМБ ЧПЪЧТБЭБЕФУС ЖХОЛГЙЕК LOF, Б ЕЭЕ ОЕ ПФЛТЩФПЗП — ЖХОЛГЙЕК FileLen. ч ТБУУНБФТЙЧБЕНПН УМХЮБЕ ЮЙУМП ЪБРЙУЕК Ч ЖБКМЕ ТБЧОП LOF(l) / Len(уФХДЕОФ).

фХТЕ уФХДЕОФЩ

жБНЙМЙС As String * 20 пГЕОЛБ As String * 3

End Type

'

Sub ъБРЙУШчжБКМ()

Dim уФХДЕОФ As уФХДЕОФЩ

Dim i As Integer

Open "зТХРРБьЛПОПНЙУФПЧ"

For Random As #1 Len = Len(уФХДЕОФ)

For i = 1 To 5

With уФХДЕОФ

.жБНЙМЙС = Cells(i, 1).Value .пГЕОЛБ = Cells(i, 2).Value

End With

Put #1, i, уФХДЕОФ

Next i

Close #1

End Sub '

Sub уЮЙФЩЧБОЙЕйЪжБКМБ()

Dim уФХДЕОФ As уФХДЕОФЩ

Dim i As Integer

Dim n As Integer

Open "зТХРРБьЛПОПНЙУФПЧ"

For Random As #1 Len = Len(уФХДЕОФ)

n = LOF(l) / Len(уФХДЕОФ)

For i = 1 To n

Get #1, i, уФХДЕОФ

With уФХДЕОФ

Cells (i, 3) .Value = .жБНЙМЙС Cells(i, 4).Value = .пГЕОЛБ

End With

Next i

Close #1

End Sub

оБЙВПМЕЕ ХРПФТЕВМСЕНЩЕ ЙОУФТХЛГЙЙ Й ЖХОЛГЙЙ РТЙ ТБВПФЕ У ЖБКМБНЙ

рТЙЧЕДЕН ОБЙВПМЕЕ ЮБУФП ХРПФТЕВМСЕНЩЕ ЙОУФТХЛГЙЙ Й ЖХОЛГЙЙ ДМС ТБВПФЩ У ЖБКМБНЙ.

фБВМ. 13.1. лПОУФБОФЩ БФТЙВХФПЧ ЖБКМБ

пВЯЕЛФ FileSearch

пВЯЕЛФ FileSearch ПВМБДБЕФ ЖХОЛГЙПОБМШОЩНЙ ЧПЪНПЦОПУФСНЙ ДЙБМПЗПЧПЗП ПЛОБ пФЛТЩФЙЕ ДПЛХНЕОФБ (Open), ПФПВТБЦБЕНПЗП ОБ ЬЛТБОЕ_РПУТЕДУФЧПН ЧЩВПТБ ЛПНБОДЩ жБКМ, пФЛТЩФШ (File, Open). пВЯЕЛФ FileSearch ЧИПДЙФ Ч ПВЯЕЛФ Application Й ЙЕТБТИЙЮЕУЛЙ ЧЛМАЮБЕФ Ч УЕВС (ТЙУ. 13.1):

• уЕНЕКУФЧП FoundFiles, ЛПФПТПЕ СЧМСЕФУС УРЙУЛПН ЧУЕИ ЖБКМПЧ, ЧПЪЧТБЭБЕНЩИ Ч ТЕЪХМШФБФЕ РПЙУЛБ
  
• уЕНЕКУФЧП PropertyTests, ЛПФПТПЕ СЧМСЕФУС УРЙУЛПН ЧУЕИ ЛТЙФЕТЙЕЧ РПЙУЛБ
  

тЙУ. 13.1. йЕТБТИЙЮЕУЛБС УФТХЛФХТБ ПВЯЕЛФБ FileSearch

пВЯЕЛФ FileSearch ЧПЪЧТБЭБЕФУС УЧПКУФЧПН FileSearch ПВЯЕЛФБ Application.

пВЯЕЛФ FileSearch ЙНЕЕФ УМЕДХАЭЙЕ ДЧБ НЕФПДБ.

рТЙЧЕДЕН ОБЙВПМЕЕ ЮБУФП РТЙНЕОСЕНЩЕ УЧПКУФЧБ ПВЯЕЛФБ FileSearch.

уМЕДХАЭЙК РТЙНЕТ РПЪЧПМСЕФ Ч РПМЕ УП УРЙУЛПН ДЙБМПЗПЧПЗП ПЛОБ ЧЩЧЕУФЙ УРЙУПЛ ЧУЕИ ЖБКМПЧ ФЕЛХЭЕК РБРЛЙ:

Private Sub UserForm_Initialize()

ComboBoxl.Clear With Application.FileSearch

.FileName = "*.xls" .SearchSubFolders = False

If .Execute(SortBy:=msoSortByFileName,

sortorder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count

ComboBoxl.Addltem .FoundFiles(i)

Next i

End If

End With

End Sub

рТЕДЩДХЭБС РТПЗТБННБ ПФПВТБЦБЕФ Ч РПМЕ УП УРЙУЛПН РПМОЩЕ ЙНЕОБ ЖБКМПЧ, Ф. Е. ЙНС ЖБКМБ Й РХФШ. дМС ФПЗП ЮФПВЩ Ч УРЙУЛЕ ПФПВТБЦБМЙУШ ФПМШЛП ЙНЕОБ ЖБКМПЧ (ВЕЪ РХФЙ), РТПЗТБННХ ОЕПВИПДЙНП НПДЙЖЙГЙТПЧБФШ УМЕДХАЭЙН ПВТБЪПН:

Private Sub UserForm_Initialize()

Dim йНСрБРЛЙ As String

Dim йНСжБКМБ As String

Dim дМЙОБрХФЙ As Integer

ComboBoxl.Clear йНСрБРЛЙ = CurDir дМЙОБрХФЙ = Len(йНСрБРЛЙ)

With Application.FileSearch .FileName = "*.xls"

.SearchSubFolders = False

If .Execute (SortBy:=msoSortByFileName,

sortorder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count

йНСжБКМБ = Right(.FoundFiles(i), Len(.FqundFiles(i))

- дМЙОБрХФЙ - 1) ComboBoxl.Addltem йНСжБКМБ

Next i

End If

End With

End Sub