Export cell value to txt file

Hi guys,

I need a macro that exports cells A1, A2 and A3 to a text file in the current dir whit the current parent folder name.
For examlpe; My *xslm is located in "C:\tekeningen\Parts\Test\15-A9999". The txt file should be named 15-A9999.txt and saverd in folder 15-A9999.

The that i use puts the file in folder "test"

Thanks in advance!

Sub Create_TXT_PAD()

Dim c As Range, R As Range
Dim output As String
For Each R In Range("A1:C3").Rows
For Each c In R.Cells
output = output & c.Value
Next c
output = output & vbNewLine
Next R
Open ThisWorkbook.Path & ".txt" For Output As #1
Print #1, output
Close
End Sub

Thank you for your help!

Here's another..

Please Login or Register  to view this content.