Excelで全銀協のFBデータをインポートしたい

質問

各銀行で共通使用している全銀協の FBデータをExcelでインポートしたいと思っています。
一度、CSVファイルに変換するのかExcelで一旦取込後、VBAで桁数を指定して区切っていくのか正直分かりません。
どなたか教えて頂けないでしょうか？
何卒、宜しくお願い致します。

回答No.1

aokii · ベストアンサー

CSVファイルに変換します。

回答No.2

imogasi

下記が多少とも参考になれば。
ーー
>Excelでインポートしたいと
エクセルデータとしたい、ということかな？
ーーー
質問者は社内でどういう立場の人？
普通こういうデータを扱うのは、（１）当社のシステム部関係の人（２）会社のシステムを
請け負っている専属指定業者（３）経理部の有志の人などと思う。
このデータ（社内データ）を、統計や他の資料として使う場合も、いくらＥＵＣ時代だといってもシステム部を通じて、エクセルのデータになったものをもらう、とかではないですか？秘密漏洩の心配はしないのか？
会計関連データなどでミスなどがあると責任問題ですよ。データ管理の上からも、緩すぎると思う。質問振りからしても、あまりコンピュター処理になれていないのに、必要と思っ、こんな無料サイトに気軽に質問しているように取れる。
ＶＢＡはできるのかな。フリーソフトのようなものをのぞんでいるのかな？それならＶＥＣＴＯＲのようなところを探してみるとか。
まる写ししないとできないレベルではないか？
銀行がＣＳＶデータで渡してくれ（るサービスがあ）れば、エクセルに読み込むのは何もいうことないでしょう。
ーー
銀行によっては、振込データをＣＳＶデータで渡しても良い銀行もあるようだ。
しかるべき人が、取引金融機関に希望すれば、そういう例はあるようだ。
http://www.japannetbank.co.jp/business/baplus/service/web_all/manual.html
ーー
（１）しかし全銀フォーマットデータは、パソコンが使われる前の時代（１９７０ごろ？）からあって、データ項目について、その中身を表すＴＡＧや見出しのようなものを省き、１レコードの各項目ごとに固定長で考え、必要ならば各項目ごとに何バイト目から何バイト目までを文字列に切り出して使う。さらに数値文字項目なら、数値化して（加算などに使う）全銀フォーマットは、その何文字目から何文字はこういう意味というのは、全銀協（銀行の業者団体）のシステム関連部会で決めたわけ。
（２）もうひとつ、使われている文字コードですが、当初は大型機ＥＢＩＣＤＩＣコードが主流だったが、今はＪＩＳやシフトＪＩＳが多いと思う。当初は数字、記号、カナまでで、当初漢字は使えなかったが今はそうもいかない。この文字コード体系に注意。
（３）パソコンデータと違い、大型機の思想の流れで、１つのファイルにヘッダーとかトレーラーとかいうものが現れる場合がある。
（４）ファイルのはじめと、終わりを示すＢＯＦ、ＥＯＦなどに注意
（５）１レコードの項目データの中で、改行やタブなどは使わせないことが多いが、あるか、ないか注意が必要です。
（６）ＶＢＡで、テキストデータを切り出すなら、１レコードの各項目の項目長を配列に出も持って、ＶＢＡでＭＩＤ関数を使って、左の項目から順に切り出して、
　　・セルの値としてセットする。または
　　・ＣＳＶファイルを作るため、カンマで区切りデータを作る
（７）その場合、文字数（漢字などの場合）なのか、バイト数なのか、ＶＢＡで処理することとの関連で、しっかりつかんでおく必要がある。
ＶＢＡでの切り出し例
例データメモ帳 2件
aaaaa 1234567890
bbbb 0912345678
ーー
ＶＢＥの標準モジュールに
'==全データチェック表示用
Sub test01()
Open "固定長例.txt" For Input As #1
While Not EOF(1)
Input #1, x
MsgBox x
Wend
End Sub
'＝＝項目を分離しエクセルアクチブシートの各行、各列にセット
Sub test02()
i = 1
j = 1
b = Array(5, 3, 4, 3)　<--ここはファイルの項目に応じて変える
Open "固定長例.txt" For Input As #1
While Not EOF(1)
Input #1, x
s = 1
For k = 0 To UBound(b)
MsgBox Mid(x, s, b(k))
Cells(i, j) = Mid(x, s, b(k))
s = s + b(k)
j = j + 1
Next k
j = 1
i = i + 1
Wend
Close #1
End Sub
ーー
エクセルの癖で、０に始まる数字の文字列０がを入力すると、０は省かれる。
ＶＢＡができれば、これぐらいの簡単な処理なので、たとえ作っても
フリーソフトなどというのは、おこがましい。

お礼

お礼の返信が遅くなり申し訳ありません。色々とご助言を頂き有難うございました。imogasiさんの言う通りここでの質問ではありませんでしたね。今後、気をつけます。サンプルコードに関しては参考にさせて頂きます。改めてお礼申し上げます。