Макросы и функции VBA

Макрос "Экспорт в txt"

Экспортирует значения выделенных ячеек в текстовый файл.

Sub Экспорт_В_Txt()
   Dim filename As String
   Dim NumRows As Long, NumCols As Integer
   Dim r As Long, c As Integer
   Dim Data
   Dim ExpRng As Range
 
   Set ExpRng = Selection
   NumCols = ExpRng.Columns.Count
   NumRows = ExpRng.Rows.Count
   filename = ThisWorkbook.Path & "\Файл1 " & Format(Now(), "DD.MM.YYYY hh.mm.ss") & ".txt"
   Open filename For Output As #1
       For r = 1 To NumRows
           For c = 1 To NumCols
               Data = ExpRng.Cells(r, c).Value
               If IsNumeric(Data) Then Data = Val(Data)
               If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
               If c <> NumCols Then
                   Print #1, Data;
               Else
                   Print #1, Data
               End If
           Next c
       Next r
   Close #1
End Sub