Здравствуйте. Помогите пожалуйста с макросом: на сохранение определенной области (А4-В5) в текстовом формате с именем из определенной ячейки (А1) желательно без табуляции.
Здравствуйте. Помогите пожалуйста с макросом: на сохранение определенной области (А4-В5) в текстовом формате с именем из определенной ячейки (А1) желательно без табуляции.pm89
'Здесь укажите путь, по которому надо сохранить текстовый файл. strFullName = "C:\Users\User\Desktop\" & Range("A1") & ".txt" arr() = Range("A4:B5").Value
Open strFullName For Output As #1 For i = 1 To UBound(arr) 'Здесь вместо пробела укажите нужный разделитель между столбцами. Print #1, arr(i, 1) & " " & arr(i, 2) Next i Close #1
MsgBox "Готово!", vbInformation
End Sub
[/vba]
[vba]
Код
Sub Сохранить_в_txt()
Dim strFullName As String Dim arr(), i As Long
'Здесь укажите путь, по которому надо сохранить текстовый файл. strFullName = "C:\Users\User\Desktop\" & Range("A1") & ".txt" arr() = Range("A4:B5").Value
Open strFullName For Output As #1 For i = 1 To UBound(arr) 'Здесь вместо пробела укажите нужный разделитель между столбцами. Print #1, arr(i, 1) & " " & arr(i, 2) Next i Close #1