エクセル2003の質問です。csv や、tab 区切りで保存するときに、UTFで出力したいのですが、できないのでしょうか?

入力するデータそのものは多言語入力可能です。

回答の条件
  • URL必須
  • 1人2回まで
  • 13歳以上
  • 登録:2010/04/18 19:36:05
  • 終了:2010/04/25 19:40:03

回答(3件)

id:masa193 No.1

masa193回答回数13ベストアンサー獲得回数02010/04/18 20:01:23

ポイント27pt

秀丸エディタを使用していますが、テキストに吐き出す方法でよろしいでしょうか?

でしたら、下記のリンク先のように、指定のunicodeに設定すればよいかと思います。

http://wiki.livedoor.jp/mmj_aos/d/%BD%A8%B4%DD%A4%C7UTF-8%CA%B8%...

id:kaiketsu

エクセルから出すときが問題なんです。

2010/04/18 23:17:15
id:koriki-kozou No.2

koriki-kozou回答回数480ベストアンサー獲得回数792010/04/18 20:16:56

ポイント27pt

ExcelはShiftJISのみ

VBAで1行分をカンマで連結してUTF変換後ファイル出力を繰り返す事で対応

UTFへの変換は既存モジュールを用いるとよいでしょう

UTF-8ファイル作成 for VBA

http://www.vector.co.jp/soft/winnt/prog/se320375.html

>本ソフトはUTF-8符号化テキストファイル作成のためのVBAクラスモジュールです。

>使い方はいたって簡単。クラスモジュールのソースをインポートするだけで、通常のテキストファイル(TextStream)と似たようなインタフェースで利用できます。

>ソースコードも公開しているので、モジュール名の変更、機能変更・追加が自由に行えます。UTF-16やShift_JISでの出力にも対応しています。

id:kaiketsu

ありがとうございます。

2010/04/18 23:17:49
id:jccrh1 No.3

jccrh1回答回数111ベストアンサー獲得回数192010/04/18 22:54:53

ポイント26pt

私はSHIFT JISでファイルを出力後、ファイル全体をUTFに変換しています。

変換用のモジュールは以下の通りです。

Public Sub ファイル変換JIStoUTF8(変換ファイル名 As String)
  Dim Jisobj   As ADODB.Stream
  Dim UFTobj   As ADODB.Stream
  
  Set Jisobj = New ADODB.Stream
  Set UFTobj = New ADODB.Stream
  With Jisobj
    .Type = adTypeText
    .Charset = "shift-jis"
    .Open
    .LoadFromFile 変換ファイル名
    .Position = 0
  End With
  With UFTobj
    .Type = adTypeText
    .Charset = "utf-8"
    .Open
  End With
  Jisobj.copyto UFTobj
  UFTobj.Position = 0
  UFTobj.savetofile 変換ファイル名, adSaveCreateOverWrite
End Sub

注)受け渡しの「変換ファイル名」はフルパスで指定して下さい。

  「Microsoft ActiveX Data Objects 6.0 Library」を参照設定して下さい。

ダミーURL:http://q.hatena.ne.jp/1271586963

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • question:1271586963 タブ区切りならカンタンだ。 ユニコードで保存すればいいだけだからだ。
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません