Текстовые файлы. Экспорт из Excel - Полезные приёмы - VBA - Готовые решения$ - Мир MS Excel

Версия для слабовидящих Версия для слабовидящих

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

Главная » Готовые решения » VBA » Полезные приёмы

Текстовые файлы. Экспорт из Excel

	29.11.2013, 19:36


view plain print ? Sub example_01() ActiveWorkbook.SaveAs "sheet4.txt", FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close 0 End Sub Sub example_01() ActiveWorkbook.SaveAs "sheet4.txt", FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close 0 End Sub view plain print ? 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 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
1 2 3 4 5 Добавил: nilem \| \| Теги: экспорт, работа с текстовыми файлами, vba, ВБА, текстовые файлы
Просмотров: 7549 \| Рейтинг: 1.5/2

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!