投稿日 | : 2004/08/23(Mon) 17:37 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: CSV出力の件 |
下記ではどうですか?
Private Sub Command1_Click()
Dim intFileNo As Long
Dim myTxt As String
myTxt = "\!#$%&(=?""""[]@+-^{~)'}:_;<`._\"
intFileNo = FreeFile
Open "c:\Test.csv" For Output As #intFileNo
Write #intFileNo, myTxt, myTxt, myTxt
Close #intFileNo
End Sub