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

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

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

 

[Bebs]

Поиском с заменой. Найти: ^w; заменить на пробел

 

[~RA~]

Выбрать "сохранить в csv", а там назначить разделителями, что душе угодно.

 

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

Поиском с заменой

Ха! А мну вот хочется исключить этот этап как раз таки.

 

[Alek32]

Для выделенного диапазона

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

 

[~RA~]

Shell "notepad.exe " & Path, vbNormalFocus

 

[_MBK_]

Что тебя так удивило?

 

[~RA~]

Ещё можно из скрипта звонить сисадмину на моб. и пищать морзой.

 

[_MBK_]

из скрипта

Это, вообще то, макрос

звонить сисадмину на моб. и пищать морзой.

При желании можно и за джойстик подержаться, но в данный момент это вполне себе нормальный способ текстовый файл визуализировать, я постоянно из сишных программ такое делаю и не вижу никакого ахтунга

 

[~RA~]

Это, вообще то, макрос

Не по теме:
Софистика это.