Save a txt file via VBA

[gedinfo]

Hello,

I wish to be able to save some information from an excel spreadsheet to a txt file.

Two items that I need to resolve:

What is the proper way to copy the spreadsheet data to the file? I already have the code in to open the file.

The code below does not actually copy the data.

What is the best way to save this .txt file with VBA commands?

Thank you.

snippet:
If Dir("C:\temp\Parse.txt") <> "" Then
Open "C:\temp\Parse.txt" For Output As #1
Dim TxtToWrite As String
TxtToWrite = "Maxima "
Print #1, TxtToWrite
End If

 

[AlphaFrog]

What is the proper way to copy the spreadsheet data to the file?

Not to be critical, but your question is very vague.

• Do you want each cell on its own line?
• Or do you want each row on it's own line?
• If writing by row, then separate the cells with; quotes, commas, spaces, tabs ?

Excel can already save a sheet as a comma separated text file (.csv). This could easily be opened in any text or word program and manipulated.

You can also simply copy a range of cells and paste them in Notepad.

There are several Excel add-ins that can do this. Some are free for trial or individual use.

If you search this forum, you can find a lot of example code to variations on this theme.

 

[gedinfo]

I have a column(G) that has text in it.
I have a column(B) that has data in it.

I wish to be able to search for certain text in column (G) and then take the data from Column(B) and write this to a file.

Example:
I search for "DataOne" in Column(G)
If this text exists in column(G), then take the value from column(B).

So, this string "DataOne 'value' is written to a .txt file.
There are many instances of this in this spreadsheet(2048 rows).

I wish to be able to search the entire spreadsheet for this text("DataOne") and write to a file.