Public Sub SaveAsTxtWithTab()
    Worksheets("Лист1").Activate
    
    ActiveWorkbook.SaveAs Filename:="D:\1\Book.txt", _
      FileFormat:=xlText
End Sub

Public Sub ExportToTextFile( _
  strFileName As String, _
  strDelimiter As String)
    Dim hFile As Long
    Dim lngI As Long
    Dim lngJ As Long
    Dim lngStartRow As Long
    Dim lngStartCol As Long
    Dim lngEndRow As Long
    Dim lngEndCol As Long
    Dim strLine As String
    Dim strCell As String

    Application.ScreenUpdating = False

    hFile = FreeFile

    With ActiveSheet.UsedRange
        lngStartRow = .Cells( 1 ).Row
        lngStartCol = .Cells( 1 ).Column
        lngEndRow = .Rows.Count
        lngEndCol = .Columns.Count
    End With

    Open strFileName For Output Access Write As #hFile

    For lngI = lngStartRow To lngEndRow
        strLine = ""
        
        For lngJ = lngStartCol To lngEndCol
            If Cells(lngI, lngJ).Value = "" Then
                strCell = ""
            Else
                strCell = Cells(lngI, lngJ).Value
            End If
            
            strLine = strLine & strCell & strDelimiter
        Next lngJ
        
        strLine = Left$(strLine, Len(strLine) - Len(strDelimiter))
        
        Print #hFile, strLine
    Next lngI
    
    Close #hFile

    Application.ScreenUpdating = True
End Sub