Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I Write this to a CSV File Please
Hi Everyone,
How can I get the Results of the Below Program to Write to a CSV File Please. I would like the File to be Written to C:\Documents and Settings\Paul\My Documents\Personal with the File Name Combinations. Am I Right in Saying that it is Much Quicker to Write to a CSV ( or Text ) File than Write Directly to an Excel Spreadsheet. Is it a Simple Task then to Load this into an Excel Spreadsheet. Here is the Code :- Option Explicit Option Base 1 Public A As Integer Public B As Integer Public C As Integer Public D As Integer Public E As Integer Public F As Integer Sub Combinations() Application.ScreenUpdating = False Sheets("Combinations").Select Range("A1").Select Columns("A:IV").ColumnWidth = 18 Columns("A:IV").HorizontalAlignment = xlCenter For A = 1 To 10 For B = A + 1 To 11 For C = B + 1 To 12 For D = C + 1 To 13 For E = D + 1 To 14 For F = E + 1 To 15 ActiveCell.Value = Application.WorksheetFunction.Text(A, "00") & "-" _ & Application.WorksheetFunction.Text(B, "00") & "-" _ & Application.WorksheetFunction.Text(C, "00") & "-" _ & Application.WorksheetFunction.Text(D, "00") & "-" _ & Application.WorksheetFunction.Text(E, "00") & "-" _ & Application.WorksheetFunction.Text(F, "00") ActiveCell.Offset(1, 0).Select Next F Next E Next D Next C Next B Next A Application.ScreenUpdating = True End Sub Thanks in Advance. All the Best. Paul *** Sent via Developersdex http://www.developersdex.com *** |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Why can't I write out an Excel file? | Excel Discussion (Misc queries) | |||
read only file-need to write | Excel Discussion (Misc queries) | |||
Can I write each row to a separate file? | Excel Worksheet Functions | |||
Write Text File | Excel Programming | |||
write to external file | Excel Programming |