Create a new file : File Read Write « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. File Read Write

Create a new file

 

Sub MakeFile()
    Open "c:\longfile.txt" For Output As #1
    For c = 1 To 300
        Write #1, "Field" & Format(c, "000");
    Next c
        Print #1,
    For r = 1 To 100
        For c = 1 To 300
            If c <> 300 Then
                Write #1, Int(Rnd * 1000);
            Else
                Write #1, Int(Rnd * 1000)
            End If
        Next c
    Next r
    Close
End Sub

 

Related examples in the same category