.xls to .txt output

[kleiny]

I don't know code but am hoping someone out there can help me. I have an Excel file with 4 worksheets. On one of These worksheets I have a setout list (a list with 6x columns for: Nr, Description, BA, Los, X-Coord, Y-Coord).
I would like to be able to Highlight/select a range from this table, e.g. A10:F50, press a button, and have this data displayed in a .txt-file for me which I can then save to a Folder of my liking. Ideally the column headings (from cells A3:F3) are also pasted into the txt-file above the output text.

Doesn't seem like it would be too hard (for a coder).
Anyone got a spare few minutes to Punch out a code that I can paste into VBA and assign to a button?
thanks in advance!

[davesexcel]

I did a simple search and found a couple of good results.

search for

excel, select range and save as .txt

[AlphaFrog]

Sub Macro1()
    Shell "notepad.exe", vbNormalFocus
    Range("A3:F3").Copy
    SendKeys "^V"
    Application.Wait Now + TimeValue("00:00:01")
    Selection.Copy
    SendKeys "^V"
    Application.CutCopyMode = False
End Sub

[CK76]

I use variation of below code to write large range to txt file (it's currently using "," as separator for columns, you can adjust as needed).

Public Sub OutPutSelectionToNotePad()
Dim strPath As String: strPath = "C:\Temp\TempFile.txt" 'Temp file
Dim intFF As Integer: intFF = FreeFile()
Dim rString As String: rString = ""
Dim intShow As Variant
Dim i As Long, j As Long

Open strPath For Output As #intFF
myArray = Selection.Value

For i = 1 To UBound(myArray, 1)
    For j = 1 To UBound(myArray, 2)
        rString = rString & IIf(Len(rString) > 0, "," & myArray(i, j), myArray(i, j)) ' change separator as needed
    Next j
    Print #intFF, rString & vbCrLf
    rString = ""
Next i

Close #intFF
intShow = Shell("Notepad.exe " & strPath, vbNormalFocus)
End Sub