Sub Export2TXT() Dim arr, i&, k%, str$ Open ThisWorkbook.Path & "/test.txt" For Output As #1 arr = [a1].CurrentRegion For i = 1 To UBound(arr) str = "" For k = 1 To UBound(arr, 2) str = str & "," & arr(i, k) Next str = Right$(str, Len(str) - 1) Print #1, str Next Close #1 MsgBox "Export success!" End Sub