人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: tetlis
●カテゴリ:コンピュータ インターネット
✍キーワード:as DESKTOP Excel JIS LOOP
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● wnagata
●60ポイント

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...

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ