Export without duplicate quotes
Post date: Jan 16, 2014 9:27:02 AM
Sub ExportRange()
Dim ExpRng As Range
Open ThisWorkbook.Path & "\textfile.txt" For Output As #1
Set ExpRng = Worksheets("book2").Range("A1").CurrentRegion
FirstCol = ExpRng.Columns(1).Column
LastCol = FirstCol + ExpRng.Columns.Count - 1
FirstRow = ExpRng.Rows(1).Row
LastRow = FirstRow + ExpRng.Rows.Count - 1
For r = FirstRow To LastRow
For c = FirstCol To LastCol
' data = ExpRng.Cells(r, c).Value
Data = Data & " " & ExpRng.Cells(r, c).Value
If c = LastCol Then
Print #1, Data
Data = ""
End If
Next c
Next r
Close #1
End Sub