Export to text file

[Mlbblue]

Hey - quick question - I need to write a macro that will export a list of values in a single column (column A for example) to a text file delimited by a ;

I thought I could do this without a macro but so far haven't found it... any help appreciated!

Cheers

Mark

 

[Mlbblue]

Just to clarify:

In column A I have:

trade1
trade2
trade3

I'm trying to export this to a text file as:

trade1;trade2;trade3

I'm really stuck on this - any help would be really really appreciated!

 

[StevenD]

Hi,

Try

Dim a as integer
Dim strTextFileName As String

'CHANGE c:\newFile.txt TO YOUR FILE LOCATION AND NAME
strTextFileName = "c:\newFile.txt"
Dim intHandle As Integer
intHandle = FreeFile

'THIS PART CHECKS IF THE FILE ALREADY EXISTS, IF IT IS IT OPENS IT AND ADDS TO IT IF IT DOESN'T EXIST IT CREATES IT

If Dir(strTextFileName) = "" Then
    Open strTextFileName For Output As #intHandle
Else
    Open strTextFileName For Append As #intHandle
End If

For a=1 to 3 'CHANGE THIS AREA TO THE ROW START AND ROW END
      Print #intHandle, sheets("sheet1").range("a" & a); ";";
Next a

Close #intHandle

HTH