VBA Write Statement
Write Description
Writes data to a sequential file.
Write Syntax
|
1 |
<strong>Write </strong>#FileNumber, [OutputList] |
The Write statement contains 2 arguments:
FileNumber: Any valid file number.
OutputList: Optional. One or more comma-delimited numeric expressions or string expressions to write to a file.
Examples of Excel VBA Write Function
| First Name | Last Name | Age | Gender |
| Robert | Stepp | 20 | Male |
| Jennifer | Mariscal | 33 | Female |
| David | Romig | 35 | Male |
| Carmel | Ingram | 26 | Female |
To output Range(“A2:D5”) in a sheet like the above picture to a file, you can use the following code.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Sub WriteRangeToFile(strFile As String, rng As Range) Dim row As Range, cell As Range Dim FileNumber As Integer FileNumber = FreeFile Open strFile For Output As #FileNumber For Each row In rng.Rows For Each cell In row.Cells If cell.Column = row.Cells.Count Then Write #FileNumber, cell Else Write #FileNumber, cell, End If Next cell Next row Close #FileNumber End Sub Sub Write_Example() Dim strFolder As String Dim strFile As String Dim dlgFolder As FileDialog Dim rng As Range Set dlgFolder = Application.FileDialog(msoFileDialogFolderPicker) If dlgFolder.Show = True Then strFolder = dlgFolder.SelectedItems(1) Else Exit Sub End If Set rng = Range("A1:D5") strFile = "Write_Output.txt" WriteRangeToFile strFolder & "\" & strFile, rng End Sub |
The output to the file “Write_Output.txt”:
|
1 2 3 4 5 |
"First Name","Last Name","Age","Gender" "Robert","Stepp","20","Male" "Jennifer","Mariscal","33","Female" "David","Romig","35","Male" "Carmel","Ingram","26","Female" |
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Learn More!
