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,
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