Exporting worksheet data to text file

[Clairvoyant1332]

I'm trying to get the contents of an Excel worksheet exported to a text file, but the default formatting isn't what I'm looking for. Is there some way to open an external file so I can loop through the cells and write the data the way I want it, or should I be using some other method?

Dennis

 

[SkipVought]

Clairvoyant...

I am NOT.

Please explain what method of exporting Excel data to a text file is NOT working.

;-)

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[Clairvoyant1332]

Sorry... I guess I wasn't too clear on the problem. I was unsure if the VB6 file statements (open,print,close) also worked under VBA, but I've since found that they do.

That's what I get for not RTFM closely enough...

 

[NewCoder2]

Here's hoping I'm posting correctly!
I'm looking for how you were able to export your excel data to txt using VBA.

Thanks

 

[Clairvoyant1332]

dim xcell as integer, ycell as integer
Open "c:\outputfile.txt" For Output As #1
xcell = 1
Do While Cells(xcell, 1) <> ""
  for ycell = 1 to {some number}
    Print #1, Cells(xcell, ycell)
  next ycell
  xcell = xcell + 1
loop
close #1

 

[NewCoder2]

What about an entire sheet?

 

[Clairvoyant1332]

My code snippet does make a few assumptions about the data. I don't know offhand how to tell that you're definitely at the end of the data.