Writing the contents of cells into a file

[MyHero]

Hey Folks,

I have a bunch of values in column A, and I need to write (export) the entire column into a file called "ColumnA.dat".

Can someone please help me create an Excel Macro Script that would accomplish that?

Thanks in advance.

 

[MyHero]

Thank you all! Seiya's code worked like a charm! Thank you very much!

If I wanted to change the location, based on the contents of a cell, let's say B5, how could I modify the code?

How do you want the data to appear in the new file?

If you want to change the file name just use Range("B6") here instead of the hard-coded "\Column.DAT".

I'm not sure what you mean by the first question, but the results I'm getting are perfect.

Thanks for the Range("B6") tip.

As well, if it's not too much trouble, instead of appending the values, how can I change the code to just replace Column.DAT?

EDIT: I figured this one out by myself, that if I change Append to Output, it does this!

 

[Norie]

MyHero

I thought that was pretty straightforward - how do you want the data to appear in the new file?

New line for each piece of data - which appears to be what you want.

Delimited by something, which the code posted is actually doing - using vbCrLf as the delimiter to force a new line.

 

[MyHero]

MyHero

I thought that was pretty straightforward - how do you want the data to appear in the new file?

New line for each piece of data - which appears to be what you want.

Delimited by something, which the code posted is actually doing - using vbCrLf as the delimiter to force a new line.

I want a new line in my .dat file for each row in column A. The code that I have is working perfectly.

I would appreciate if someone could tell me how to modify the code to change the location of the .dat file based on what is in b5.

 

[Norie]

I want a new line in my .dat file for each row in column A. The code that I have is working perfectly.

Eh, I know it is.

 

[Legacy 68668]

Add a vairable something like this

Dim myLocation as String
myLocation = "c:\...\...\" & range(b6").value
 
.
.
Open myLocation for append #1