投稿日 | : 2004/08/23(Mon) 17:48 |
投稿者 | : ハル |
Eメール | : |
URL | : |
タイトル | : Re^2: 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