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]

Any other ideas folks? And again, I appreciate all your assistance everyone!

 

[ddadmin2009]

what is the version of excel u r using. Also can u send the sample of data. also can you make sure your sheet name is Sheet1 in the workbook.

 

[Legacy 68668]

try
Assuming ColumnA.dat resides in the same foloder as ThisWorkbook.

Sub test()
Dim txt As String
With Range("a1", Range("a" & Rows.Count).End(xlUp))
    txt = Join(Evaluate("transpose(" & .address & ")"), vbCrLf)
End With
Open ThisWorkbook.Path & "\ColumnA.dat", For Append As #1
    Print #1, txt
Close #1
End Sub

 

[Legacy 68668]

Correction
delete comma on the line of

Open ThisWorkbook.Path & "\ColumnA.dat", For Append As #1

 

[Oorang]

when I run your code I get the error "Compile Error: User-defined type not defined"

It then highlights:

Public Sub WriteRange(ByVal inputRange As Excel.Range, ByVal outputPath As String, _
Optional writeMode As eWriteMode =

Any ideas on how to improve your code?

Might be the enum, they aren't supported in all versions. What version of Excel are you using?

 

[MyHero]

Correction
delete comma on the line of

Open ThisWorkbook.Path & "\ColumnA.dat", For Append As #1

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?

 

[MyHero]

Might be the enum, they aren't supported in all versions. What version of Excel are you using?

by the way, I'm using Excel 2003.

 

[MyHero]

[deleted by author, my mistake]

 

[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?

as well, if I wanted to change the name of the file based on a value in B6, if possible.

 

[Norie]

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".