Hi,
The following program takes all the items off of an excel sheet that are selected and puts them in a single file. I would like all of the items in a column to go to a single file, and then put all of the items in the next column in a different file ect. The selection has 72 rows and 100 columns. The file I am writing to is Firm_ATC(Column # - 1).asc. Example the first column would be written to Firm_ATC0.asc, and the last column would be written to Firm_ATC99.asc.
Thanks in advance for your help,
Joe
Sub QuoteCommaExport()
'Pushes all Selected Items to ATCTEST
' Dimension all variables.
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
DestFile = "C:\HourlyATC\Firm_ATC0.asc"
' Obtain next free file handle number.
FileNum = FreeFile()
' Turn error checking off.
On Error Resume Next
' Attempt to open destination file for output.
Open DestFile For Output As #FileNum
' If an error occurs report it and end.
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If
' Turn error checking on.
On Error GoTo 0
' Loop for each row in selection.
For RowCount = 1 To Selection.Rows.Count
' Loop for each column in selection.
For ColumnCount = 1 To Selection.Columns.Count
' Write current cell's text to file with quotation marks.
Print #FileNum, "" & Selection.Cells(RowCount, _
ColumnCount).Text & "";
' Check if cell is in last column.
If ColumnCount = Selection.Columns.Count Then
' If so, then write a blank line.
Print #FileNum,
Else
' Otherwise, write a comma.
Print #FileNum, ;
End If
' Start next iteration of ColumnCount loop.
Next ColumnCount
' Start next iteration of RowCount loop.
Next RowCount