エクセルのVBAで、複数ファイルの漢字コードを変換したあと各ファイルの一行目を取得したリストを作成したい

質問

500ファイルくらいある顧客データ（漢字コードEUC、テキストファイル）から、自動的にリストを作成したいのですが、漢字コードをEUC→S-jisに変換する方法がわかりません。

一行目の取得のためのモジュールは、こちらのサイトの別の方の質問に対する回答からヒントを得て成功したのですが…。

あと、ファイル名に拡張子をつけるという処理もVBAでできるなら教えてください。

回答No.3

imogasi · ベストアンサー

＃２のものです。
＞ファイル名に拡張子をつけるという処理・・
判りました。拡張子の変更を一括して行いたいと言う風に
解しました。
あるフォルダ内にある、全てのファイルを一律に「.xxx」
の拡張子に変えるプログラムを考えました。
下記は私の例では、旨く行ったようです。９８ＳＥ、エクセル２０００．
'----注意
・非常に危険なことでもあり、少数のテスト例で納得した上で、自己責任で行ってください。
・確認用にＭＳＧＢＯＸを４カ所入れていますが、テストが済み納得した後は外してください。
・For ループの１００は適当に変えて下さい。
・勿論ｔ＝・・・の右辺（フォルダ名）は適当に変えてください。
・変更前後の拡張子も適当に変えてください。
・・・・\tt1\"の\はつけ忘れないこと。
'------
Sub test01()
Dim f, n As String
t = "c:\my documents\tt1\"
'--------
f = Dir(t)
MsgBox f
n = Mid(f, 1, Len(f) - 4) & ".txt"
Name t & f As t & n
MsgBox n
'-------
For i = 1 To 100
f = Dir()
If f = "" Then Exit For
MsgBox f
n = Mid(f, 1, Len(f) - 4) & ".txt"
MsgBox n
Name t & f As t & n
Next
End Sub

お礼

ありがとうございました。

週明けに試してみたいと思います。

回答No.2

imogasi

＞コードをEUC→S-jisに変換する方法
（１）自分で（VBAで)プログラムする
（２）ソフトで行う。
どちらか、（１）に拘るのか良く判りません。
漢字文字変換は自作しない方が良いのでは。意外にテストやバグの摘出が難しいと思うので。
http://www2d.biglobe.ne.jp/~gama/cgi/bbs-j/log.htm
（２）ならhttp://www.vector.co.jp/soft/win95/util/se221554.html
http://www.vector.jp/soft/dl/dos/util/se229013.html
EUC　SJIS　コード変換でWEB照会すると沢山出ます。
＞ファイル名に拡張子をつけるという処理
どういうてんが難しいのか、良く意味を理解できません。
保存する時に指定するファイル名に指定拡張子を書き込めばダメですか。

お礼

ありがとうございました。

「500のファイル名に拡張子をつけ直す」のを簡単にやる方法って、どんな方法があるのですか？　ひとつひつファイルを保存し直すのはちょっといやですよね？

回答No.1

taka_tetsu

文字コードの変換は、nkfというソフトを使うのがいいでしょう。

全部文字コードを置き換えたファイルから1行目を取得するようにすればいいのでは？

そうではなく、文字コード変換も自分でしたいのであれば、ADOのStreamオブジェクトを使えば比較的簡単にできます。

参考URL：

http://www.vector.jp/soft/dos/util/se000862.html

お礼

ありがとうございます。わたしは基本的にはマックユーザーなのですが、マックでnkf使ってました…。

完璧に解決です。ありがとうございました！