Здравствуйте уважаемые специалисты. Помогите с решением.
Есть макрос, вписывающий в текстовый файл 1.txt - текста из диапазона C10:D17. Причем пустые ячейки - макрос интерпретирует как переход на другую строку (равносильно нажатию клавиши Enter).
Подскажите - как заставить этот макрос - интерпретировать как переходы на новую строку - только пустые ячейки по вертикали... а по горизонтали интерпретировать пустые ячейки - как пять пробелов ?
(То есть текст должен иметь примерно ту же форму, что и та, которая вписана в диапазон C10:D17.) (Прикрепил текстовый файл того - как должен выглядеть сохраненный текст в идеале)
Здравствуйте уважаемые специалисты. Помогите с решением.
Есть макрос, вписывающий в текстовый файл 1.txt - текста из диапазона C10:D17. Причем пустые ячейки - макрос интерпретирует как переход на другую строку (равносильно нажатию клавиши Enter).
Подскажите - как заставить этот макрос - интерпретировать как переходы на новую строку - только пустые ячейки по вертикали... а по горизонтали интерпретировать пустые ячейки - как пять пробелов ?
(То есть текст должен иметь примерно ту же форму, что и та, которая вписана в диапазон C10:D17.) (Прикрепил текстовый файл того - как должен выглядеть сохраненный текст в идеале)mv6677
Sub tst2() Open ThisWorkbook.Path & "\" & [C5] For Output As #1 Dim Line As Range Dim iCell As Range Dim mStr As String For Each Line In [C10:D17].Rows For Each iCell In Line.Cells If Not IsEmpty(iCell) Then mStr = mStr & iCell.Text Else mStr = mStr & vbTab End If Next Print #1, mStr mStr = "" Next Close #1 End Sub
[/vba]
так попробуйте:
[vba]
Код
Sub tst2() Open ThisWorkbook.Path & "\" & [C5] For Output As #1 Dim Line As Range Dim iCell As Range Dim mStr As String For Each Line In [C10:D17].Rows For Each iCell In Line.Cells If Not IsEmpty(iCell) Then mStr = mStr & iCell.Text Else mStr = mStr & vbTab End If Next Print #1, mStr mStr = "" Next Close #1 End Sub