- 773 名前：デフォルトの名無しさん [2012/01/14(土) 01:11:28.42 ]
- A1=1 B1=あいう
A2=2 B2=かきく
A3=3 B3=さしす
1.txt、中身があいう といったテキストをUTF-8で複数作成したいのですが
どうすればよいでしょうか？
Sub out_ex_euc()
Dim MyIndex, myADOstr
For MyIndex = 1 To 3
myADOstr = FreeFile
Set myADOstr = CreateObject("ADODB.Stream")
myADOstr.Charset = "UTF-8"
Open Cells(MyIndex, 1) & ".txt" For Output As #myADOstr
Write #myADOstr, Cells(MyIndex, 2).Text
Close #myADOstr
Next MyIndex
End Sub
こんなの書いてみたのですがダメでした
