ExcelのデータをUnicode形式のテキストデータとしてエクスポートするには、
どうしたらよいでしょうか？
下記するようなコードを書くと、
テキストデータでエクスポートできるのですが、
文字コードはShift-jisになってしまいます。
※"ファイル名をつけて保存"絡みのコードを使うのは、、
開いているファイルが～.xlsから～.txtになってしまうので嫌です。
Dim str2 As String
Dim txtmei As String
txtmei = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
"\" & Format(Now, "yymmdd_hhmmss") & ".txt"
fnum = FreeFile
Open txtmei For Output As #fnum
i = 1
str2 = Cells(1, 1)
Do Until str2 = ""
Print #fnum, str2 & vbCrLf;
i = i + 1
str2 = Cells(i, 1)
Loop
みんなの回答
-
wnagata
満足60pt
Printステートメントで出力するときにShift-jisに変換されてしまうので、Binary モードでファイルをオープンし、Put ステートメントで出力する必要があります。
Dim buffer As StringOpen "C:\Unicode.txt" For Binary As #1buffer = StrConv(strText2Write, vbUnicode) + _StrConv(vbCrLf, vbUnicode)Put #1, , bufferClose #1
http://alexdyb.blogspot.com/2007/06/how-to-write-out-unicode-tex...
この質問へのコメント
質問の情報
- 登録日時
- 2007-08-21 13:10:51
- 終了日時
- 2007-08-28 13:15:03
- 回答条件
- 回答にURL必須 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者