Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44409 / 76732

←次へ　｜　前へ→


	【37342】CSVファイルをUTF-8Nで作成したい

みき - 06/5/1(月) 11:11 -


	引用なし

	パスワード

VBA初心者のみきです。
A,B,C列にそれぞれ日本語、英語、中国語のテキスト・データを複数行含むシートをCSVファイルに出力するSubを作成しています。
中国語を含むので、文字コードUTF-8NでCSVファイルを作成したいのですがどのようにしたら良いかご教示お願いします。
以下のようなことは試みてみました。

　　Open CSVFile_OUT For Output As #1
　　Worksheets("sheet1").Select
　　For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　　WtData = Empty
　　　　For II = 1 To 3
　　　　　If InStr(1, Cells(I, II).Value, ",", vbTextCompare) > 0 Then
　　　　　　　　WtData = WtData & "," & """" & Cells(I, II).Value & """"　　　' カンマがある場合、”を前後に付加
　　　　　　Else
　　　　　　　　WtData = WtData & "," & Cells(I, II).Value
　　　　　　End If　　　　　　
　　　　Next
　　　　WtData = StrConv(WtData, vbUnicode)
　　　　Print #1, Mid(WtData, 1)
　　Next
　　Close #1

ファイル作成後xyzzy editorで開くと＠文字が一杯のファイルが作成されてしまいます。xyzzyがUnicodeファイルとして認識してくれないように想像しています。
どこかに根本的な理解不足と勘違いがあるように思います。
宜しくお願い致します。

上記コードは36962の質問に対するJakaさんのお答えを元に作成させて頂いたものです。

2 hits

▼

【37342】CSVファイルをUTF-8Nで作成したい みき 06/5/1(月) 11:11

≪