Save Excel Data to Txt File With no quotes

 

First: Add Microsoft Scripting Runtime Reference in Tools\References

Second: Code

Public Sub SaveData(ByRef ws As Worksheet, ByVal FirstRowIndex As Long, ByVal LastRowIndex As Long, ByVal FirstColumnIndex As Long, ByVal LastColumnIndex As Long, ByVal FileName As String)
    'Dim ws As Worksheet
    'Set ws = Application.ActiveSheet

    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim m As Long
    Dim NewWorkBook As Workbook
    Dim NewWorkSheet As Worksheet
    Dim fso As FileSystemObject
    Dim txtStream As TextStream
        
    Set NewWorkBook = Application.Workbooks.Add
    Set NewWorkSheet = NewWorkBook.Sheets(1)
    
    Set fso = New FileSystemObject
    Set txtStream = fso.CreateTextFile(FileName, Overwrite:=True, Unicode:=True)
    
    For i = FirstRowIndex To LastRowIndex
        j = i - FirstRowIndex + 1
        For k = FirstColumnIndex To LastColumnIndex
            m = k - FirstColumnIndex + 1
            NewWorkSheet.Cells(j, m).Value = ws.Cells(i, k)
            
            If k = LastColumnIndex Then
                txtStream.WriteLine ("")
            Else
                If NewWorkSheet.Cells(j, m).Value <> "" Then
                    txtStream.Write (NewWorkSheet.Cells(j, m).Value + vbTab)
                End If
            End If
        Next k
    Next i
   
   txtStream.Close
   NewWorkBook.Close
End Sub