Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА
Процедуры [13]
Пользовательские функции [9]
Полезные приёмы [45]

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
[ Результаты · Все опросы ]
Всего ответов: 57670
Главная » Готовые решения » VBA » Полезные приёмы
Текстовые файлы. Экспорт из Excel
29.11.2013, 19:36

Sub example_01()
ActiveWorkbook.SaveAs "sheet4.txt", FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close 0
End Sub

Sub example_02()
Dim x, y(), i&, j&, s$
x = ActiveSheet.UsedRange.Value
If IsArray(x) Then
 ReDim y(1 To UBound(x))
 For i = 1 To UBound(x)
 For j = 1 To UBound(x, 2)
 y(i) = y(i) & vbTab & x(i, j)
 Next j
 Next i: s = Join(y, vbCrLf)
Else
 s = x
End If
With CreateObject("scripting.filesystemobject")
 With .CreateTextFile(ThisWorkbook.Path & "\sheet44.txt", True)
 .Write s: .Close
 End With
End With
MsgBox "Ok", 64
End Sub
Добавил: nilem | | Теги: экспорт, работа с текстовыми файлами, vba, ВБА, текстовые файлы
Просмотров: 7383 | Рейтинг: 1.5/2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!