Excel to text file - special conditions

[mike93alfa]

Hi, I need to write the values of variable to a text file for use in another program. In Excel I will typically have in A1= Length and B1 =100 and then A2=Width and B2=50 and so on..I need to save / write to a test file in this format:

"Length"=100
"Width"=50
"Depth"=75

Thanks

 

[63falcondude]

Are you saying that you want something like this?

Excel 2010
	A	B	C	D
1	Length	100		"Length"=100 "Width"=50 "Depth"=75
2	Width	50
3	Depth	75
Sheet1

 

[BQardi]

Something like this?
Change the path in red...

Sub WriteToFile()
Dim fsB As Object, CrtTxtFile As Variant, cell As Range, LastRow As Long
Set fsB = CreateObject("Scripting.FileSystemObject")
Set CrtTxtFile = fsB.CreateTextFile("[COLOR=#ff0000][B]C:\ESD\file.txt[/B][/COLOR]", True)
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
With CrtTxtFile
    For Each cell In Range("A1:A" & LastRow)
        .WriteLine """" & cell.Value & """=" & cell.Offset(0, 1).Value
    Next cell
    .Close
End With
End Sub

 

[63falcondude]

Formula for post #2:

Excel 2010
	A	B	C	D
1	Length	100		"Length"=100 "Width"=50 "Depth"=75
2	Width	50
3	Depth	75
Sheet2

Cell Formulas
Range	Formula
D1	=""""&A1&"""="&B1&CHAR(10)&""""&A2&"""="&B2&CHAR(10)&""""&A3&"""="&B3

 

[mike93alfa]

Hi, I need to write the values of variable to a text file for use in another program. In Excel I will typically have in A1= Length and B1 =100 and then A2=Width and B2=50 and so on..I need to save / write to a test file in this format:

"Length"=100
"Width"=50
"Depth"=75

Thanks

Thanks BQardi. The code works perfectly and does exactly want I want!