ファイルを新規作成するには (ID:105897)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ファイルを新規作成する方法は２種類あります。 OPEN ステートメントを使う方法と ファイルシステムオブジェクトを使う方法があります。 一応 ２種類とも書いときます。(好きなほうを使ってください) OPEN ステートメントを使う方法 Dim intFileNo As Integer Dim intIndex As Integer ' 空いているファイル番号を取得 intFileNo = FreeFile ' ファイルをシーケンシャル出力モード (Output) で開きます。 Open "C:\test.csv" For Output Access Write As #intFileNo For intIndex = 0 To 10 ' 1行 出力 Print #intFileNo, intIndex & "," & intIndex Next intIndex ' ファイルを閉じる Close #intFileNo ファイルシステムオブジェクトを使う方法 Dim objFileSystem As Object Dim objFile As Object Dim strFileName As String Dim intIndex As Integer ' 作成するファイル名 strFileName = "C:\TEST.csv" ' ファイルシステムオブジェクトへの参照 Set objFileSystem = CreateObject("Scripting.FileSystemObject") ' 作成するファイル名 Set objFile = objFileSystem.CreateTextFile(strFileName) For intIndex = 0 To 10 ' 1行 出力 objFile.WriteLine intIndex & "," & intIndex Next intIndex ' ファイルを閉じる objFile.Close ' オブジェクトを解放 Set objFileSystem = Nothing Set objFile = Nothing ヘルプを見れば、使用例も載っているので 是非見てください。