Hejsan, vet inte riktigt om denna fråga hör hemma i Office. Men jag provar här så får vi se.

Jag har gjort ett excelark som är uppbyggt med olika kolumner osv.
På excelbladet ligger en knapp. När man trycker på den knappen ska det sparas ner till en textfil.
Här är koden.

<Code>
sFilename = "Nyanmälan-Ny.txt"
nFile = FreeFile

Open sFilename For Output As #nFile

With ActiveSheet.UsedRange
For nRow = 1 To .Rows.Count
sRow = ""
For nCol = 1 To .Columns.Count
If sRow <> "" Then sRow = sRow & DELIM
sRow = sRow & CStr(.Cells(nRow, nCol))
Next nCol
Print #nFile, sRow
Next nRow
End With

Close #nFile
</Code>

Min fråga är, hur sparar man textfilen till samma ställe där excelarket ligger. Oberoende på vilken dator man sitter, eller om excelarket ligger på skrivbordet eller i en mapp.
Har provat lite med App.Path men inte fått det rätt. Får ett körfel.

Tacksam för svar

Jesse

Prova det här

Open ActiveWorkbook.Path & "\" & sFilename For Output As #nFile

Tackar, det fungerar precis som jag hade tänkt.

Jesse