Обучающее видео различных тематик бесплатно!

Экспорт данных в текстовый файл VBA

Сказки на ночь

Экспорт данных в текстовый файл VBA

  

Чтобы экспортировать данные в текстовый файл, откройте его для записи с помощью выражения Output As #1. Сохраните все требуемые строки в файле с помощью выражения Print #1. Прежде чем открыть файл для записи, убедитесь, что на диске не существует копии этого файла. Для этого попытайтесь удалить файл с помощью выражения Kill. Чтобы проигнорировать сообщение об ошибке, которое будет сгенерировано, если файл с заданным именем не существует, воспользуйтесь выражением On Error Resume Next. Следующий макрос экспортирует данные рабочего листа в текстовый файл

Results.txt.
Sub WriteFile()
ThisFile = ThisWorkbook.Path & Application.PathSeparator & _
"Results.txt"
'  Удалить копию файла.
On Error Resume Next
Kill (ThisFile)
On Error GoTo 0
'  Открыть файл.
Open ThisFile For Output As #1
FinalRow = Range("A65536").End(xlUp).Row
'  Экспортировать  в файл данные рабочего листа.
For j = 1 To FinalRow
Print #1,  Cells(j,  1).Value
Next j
Close #1
MsgBox "Файл " & ThisFile & " успешно сохранен."
End Sub

Аналогичный способ экспорта данных в текстовый файл применялся в главе 14, "Взаимодействие с Internet", при создании Web-страниц. Скорость импорта и экспорта текстовых файлов оставляет желать лучшего. В следующей главе рассматривается использование Microsoft Access для обеспечения быстрого доступа к данным, предусматривающего индексацию и многопользовательский режим.
 
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.


Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.