テキストファイルからエクセルファイルへの自動変換編集

質問

初めて質問します、電子レジスターを購入したんですが
部門ごとの集計はパソコンにすぐにダウンロードできるのですが
１件１件の購入履歴をエクセルで使えるようにしたいのですが・・・
集計はエクセル方式ででてくるので問題はないのですが
１件１件の購入履歴は　テキストファイルでしかでできません・・・(+_+)
こんな形ででてきます・・

2008年11月 2日 14:22 1
000000#0045
部門５　　　 非\12,000
個数 1個
現金 \ 1 2 , 0 0 0
2008年11月 2日 14:22 1
000000#0046
部門３ 非\200
個数 1個
現金 \ 2 0 0
2008年11月 2日 14:22 1
000000#0047
部門１ 内\5,000
**小計 \5,000
(内税) \238
個数 1個
現金 \ 5 , 0 0 0

なんとかしたいのですがだれか助けてください(~_~;)
ちなみに11/25日オープンですｗ

回答No.3

imogasi

何とかやりたいといっても、質問者の過去の経験＋少しの勉強次第だ。VBAの中級程度の技量で出来ることと予想する。それとVBAのコードはWEBにあふれている範囲だと思う。
出来ないなら、金を払って業者にやってもらうしかない（これがキホンであることを忘れないように）。上記記録の全貌（色んなケース）を知らないなどで、下手にプログラムを組んで、後日誤りなど出たら、質問者の責任で、そういうことも、時どきある。
ーー
このレジスターはフロッピーディスクなどに、「客に渡すレジと同じ内容の連続したような記録」が記録され、パソコンでも読めるというように受け取ってよいですか。＜ーダウンロードとは？？に対し
ーー
テキストファイルをVBAで読むコードはWEB等でありふれている。
各（１人？）取引記録（の行数は）には、多少はなく、５行ずつのようだから、
５レコード読んで、エクセルの１行の決まった列にセットしていく（下記注１）。
それをジャーナル記録が終わるまで、５行単位で繰り返す。
多分エクセル側に用意する列（項目）は、私の予想では
年月
時刻
コード？
連番？
部門
非？
金額
個数
現金？？（受け取り内訳？）
ぐらいかと思うが、非？や現金？？（受け取り内訳？）の内容（意味）によって複数列の用意が必要かもしれない。こういうことは質問に説明すべきだ。
ーーー
テキストファイルの読み込みのコード
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html
ほか多数。「テキストファイル　読み込み　VBA」でグーグルで照会。
ーー
エクセルのシートのセットする行をCells（i、”A")のようにして
i が行番号指定だが、テキスト５行読むごとに＋１する（下行を指定する）。
（注１）Cells（i、”A")　はA列にセットする場合で、B列にはCells（i、”B")＝（テキスト側の項目）、のようになる。
それを必要な項目数（列すう）分上から下に書き連ねる。
--
流れは
繰り返し：
テキストの終わりはEOF(1)でわかる。
１テキストレコード読み
１列または複数列セット
次の１テキストレコード読み
１列または複数列セット
・・・
第５レコード読み
１列または複数列セット
i=i+1　（エクセルでの記録行を下へずらす）
Goto　繰り返し
のような構造になる。

お礼

早速のご回答本当にありがとうございます
VBA現在勉強中です。あまり時間がありませんので
必死に勉強ですｗ
読み込みの仕方など工夫が必要ですね。。
そのあたりも勉強します
たまに６行、７行になるものですから。。

ありがとうございました

回答No.2

fujillin

テキストファイルならそのままエクセルに読み込めます。
（csvにするか、又は、エクセルを開いておいてドラッグ＆ドロップでも可）

ご質問を見る限り、1件のデータの行数は不定のようですので、読み込んだ後で、日付をキーとする（あるいはその他）などで、1件ごとに分割してやればよいのでは？
具体的な情報がないので、これ以上書けませんが、使用目的に応じてデータ処理をしてやればよいでしょう。

処理が決っていて、ルーティンワークなら、マクロにしておいてもよいでしょう。

回答No.1

n-jun

”この様に出てきます”だけではどうしたいのか不明です。
”この様に出てくる物を、この様な形式にしたい”が質問ではないかと。
ちなみに「電子レジスター」のメーカーに相談はされてないのでしょうか。

補足

ご回答ありがとうございます
メーカーはシャープなんですが
相談したところ「できない」とのこと
購入時は、
「データをパソコンに取り込み自由に管理できます」
と言われてましたが、実際購入すると肝心なところができない
その事をシャープに投げかけると
「電子ジャーナルのデータを取りこめるとは言ってない」
（詳しく聞かなかった私が悪いのですが、当然できる風な言い方だったもので・・）
で、こちらでなんとかしないといけなくなりました・・・・(T_T)
やりたいことは、購入した商品ごとにお客様名を入力
したいので
日時　部門　支払方法　金額　の４つをエクセルで整理し
名前の入力は手作業でする予定です。