data transfer?

[q4s72534]

I want to write a program that takes data from an excel spread sheet and puts it into a text file(comma delimited).

Any ideas or sample code?

Thanks

 

[Bowers74]

Select the range of cells that you want to export and run this:

Sub ExportRange()
    Dim Filename As String
    Dim NumRows As Long, NumCols As Integer
    Dim r As Long, c As Integer
    Dim Data
    Dim ExpRng As Range
    Set ExpRng = Selection
    NumCols = ExpRng.Columns.Count
    NumRows = ExpRng.Rows.Count

Filename = "c:\textfile.txt" ' You should change this

    Open Filename For Output As #1
        For r = 1 To NumRows
            For c = 1 To NumCols
                Data = ExpRng.Cells(r, c).Value
                If IsNumeric(Data) Then Data = Val(Data)
                If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
                If c <> NumCols Then
                    Write #1, Data;
                Else
                    Write #1, Data
                End If
            Next c
        Next r
    Close #1
End Sub

I hope this helps!




Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[q4s72534]

this might be a dumb question, but where do i put the name of the sheet and where do I select the rows?


Set ExpRng = a1:a6??


thanks

 

[q4s72534]

I figured it out. thanks so much!!!!!

 

[Bowers74]

Glad I could help!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!