| はじめましてeoと申します。 桐だけでは完結しませんが xlsx=>txt に変換するソフトで『xdoc2txt』があります。(エクセルは必要ありません) タブ区切りで変換されたtxtを桐で処理するってどうでしょうか? xlsxファイルをまとめて処理するがコンセプトです。(カッケ−^^;) 添付されているデータを元にサンプル作成しました。 解決済のようですが興味があればお試しください。
■Book1.xlsx=>変換=>txtBook1.txt
[Sheet2] 2015/9/3 食費 バナナ他 1600 ○○○○バリュー 現金 1600 2015/9/5 その他の支出 プレゼント負担 1200 ○○○○バリュー 現金 1200 2015/9/4 教養・娯楽 DVDレンタル 1000 ツタ○ 現金 1000 2015/9/6 生活用品 ボールペン他 500 ○○文房具店 現金 500 2015/9/8 食費 パン他 900 ○○屋 現金 900 2015/9/9 医療費 ひざ 2000 ○○外科医院 現金 2000 2015/9/12 交際費 花 1500 ○○屋 現金 1500 2015/9/10 食費 シリアル他 3000 ○○商店 現金 3000
黄色部分をコピー貼り付け
■xdoc2tx.cmx
変数宣言 固有,文字列{&xdoc2txt,¶,&xlsx,&txt},数値{&i}
&xdoc2txt="c:\xdoc2txt\xdoc2txt.exe" /* 自分の環境に */ ¶=" -f " &xlsx="*.xlsx"
システム &xdoc2txt,¶+&xlsx
表 "yomi.tbx" 編集表 "yomi.tbx" 行削除 *,圧縮 &i=0 繰り返し &i=&i+1 &txt=#ファイル検索("*.txt",&i) 条件 ( "" = &txt) 繰り返し中止 ジャンプ 行番号=終端 読み込み テキスト,&txt,区切り="09",項目名=しない,* 繰り返し終了 絞り込み [借方科目]{=""} 行削除 * 絞り込み解除 * 表整理 終了 表 編集対象表
表 "仕訳起動.tbx" 編集表 "仕訳起動.tbx" 行削除 *,圧縮 ジャンプ 行番号=終端 読み込み 表,"yomi.tbx",* ジャンプ 行番号=先頭 表形式編集
表
|