Сохранить в TXT из Эксель

Андрей Викторов

Топикстартер
15 лет на форуме
Сообщения
1 071
Реакции
265
Коллеги, пытаюсь победить такую задачу:
необходимо выделенный диапазон листа Эксель сохранить в TXT.
и прямое копирование и другие методы записывают разделяя столбцы табуляторами значения
а строки пустыми строками, вернее строки с кучей пробелов.
А хотелось бы вместо табуляторов пробелы
а пустых строк чтоб вообще не было
+ в конце строк, которые короче остальных, также лишние табуляторы.
Это только скриптом как-то можно?
 

Bebs

15 лет на форуме
Сообщения
461
Реакции
223
Поиском с заменой. Найти: ^w; заменить на пробел
 
  • Спасибо
Реакции: NNN5

~RA~

Одарённая.
12 лет на форуме
Сообщения
11 808
Реакции
3 434
Выбрать "сохранить в csv", а там назначить разделителями, что душе угодно.
 

Alek32

Участник
Сообщения
25
Реакции
18
Для выделенного диапазона
Код:
Sub TextFile()
    Dim TextRange() As Variant
    Dim Text As String
    TextRange = Selection
    Path = "D:\testfile.txt"
    'Set fs = CreateObject("Scripting.FileSystemObject")
    'Set TextFile = fs.CreateTextFile("D:\testfile.txt", True)
    FileNumber = FreeFile
    Open Path For Output As FileNumber
    For i = 1 To UBound(TextRange, 1)
        For k = 1 To UBound(TextRange, 2)
            If k = 1 Then
                Text = TextRange(i, k)
            Else
                If TextRange(i, k) <> "" Then Text = Text & " " & TextRange(i, k)
            End If
        Next k
        If Len(Text) > 0 Then Print #FileNumber, Text
    Next i
    Close FileNumber
    Shell "notepad.exe " & Path, vbNormalFocus
End Sub
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Что тебя так удивило?
 

~RA~

Одарённая.
12 лет на форуме
Сообщения
11 808
Реакции
3 434
Ещё можно из скрипта звонить сисадмину на моб. и пищать морзой. '))'
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Это, вообще то, макрос 'fp'
звонить сисадмину на моб. и пищать морзой.
При желании можно и за джойстик подержаться, но в данный момент это вполне себе нормальный способ текстовый файл визуализировать, я постоянно из сишных программ такое делаю и не вижу никакого ахтунга