Macro to copy column contents into a text file

**vinaynagasani** · 06-30-2009, 05:03 PM

Hello Friends
Please can any one help me in writing a macro, which copies the column contents in to a text file.
the idea here is, i should give a columname as a parameter to my macro, then it should copy the contents of that columnname to a text file
Please give me some inputs
Thanks in Advance
Vinay

**vinaynagasani** · 07-01-2009, 11:58 AM

Please help me with this macro
Thanks
vinay

**vinaynagasani** · 07-02-2009, 11:00 AM

Hi Friends
Please help me with this macro
Thanks in Advance
Vinay

**pike** · 07-02-2009, 06:04 PM

Hi vinaynagasani
What do you have so far?

**vinaynagasani** · 07-08-2009, 04:26 PM

In the following macro, I am copying the Kth column entries in all sheets to a text file
Sub WorksheetLoop()

Dim I As Integer
Dim J As Long

For I = 1 To Sheets.Count
H = 11
Open "C:\temp\abc.txt" For Append As 1
For J = 2 To Sheets(I).Range("K65000").End(xlUp).Row + 1
TestVal = Sheets(I).Cells(J, H).Value
If Len(Sheets(I).Cells(J, H).Value) = 0 Then
GoTo label1
End If
Print #1, TestVal

label1: Next J
Close #1
Next I

End Sub

**pike** · 07-09-2009, 04:25 AM

Hey vinaynagasan
first a little house keeping can you add the code tags to your post
been preoccupied but try...

Code:

Sub ptest()
   Open ThisWorkbook.Path & "\ptest.txt" For Output As #1
       For Each ws In Worksheets
           ws.Activate
           ii = ws.Cells(Rows.Count, 9).End(xlUp).Row
            For r = 1 To ii
                data = Cells(r, 9).Value
                    Write #1, data ';
            Next r
     Next ws
    Close #1
End Sub

we can modify to suit