| どうも、いしださん
同じ桐のヘルプに繰り返しの項目があります。 3つありますね。そのうち、Loopの方を参考してください。
ヘルプから引用。 >>「C:\K3\Data」フォルダにあるすべてのCSVファイルをJusho.tblに読み込みます。 >>変数宣言 文字列{ &File }, 長整数{ &i = 0 } >>表 "Jusho.tbl" >>繰り返し >> &i = &i + 1 >> &File = #ファイル検索( "C:\K3\Data\*.csv", &i ) >> 条件 ( "" = &File ) 繰り返し中止 >> ジャンプ 行番号 = 終端 >> 読み込み CSV, &File, 項目名 = しない, * >>繰り返し終了 >>終了 表 編集対象表
ここから、エクセルで処理すように変更すれば、可能ではないでしょうかとおもいます。
> 変数宣言 数値 {&終了状態} > エクセル "○○○.XLS", "Sheet1",変換範囲=(B3,F3), 項目名行=しない, , 表名="□□□.tbl”, 上書き=する, 終了状態=&終了 > 一応、同じフォルダに「□□□.tbl」は作成されました! ということは、ファイル名を上手く取得できれば、可能かと思います。
変数宣言 文字列 { &file } , 長整数 { &i = 0 } 繰り返し &i = &i + 1 &file = #ファイル検索( "*.xls" , &i ) /* 同じフォルダの中にあるエクセルファイルを取得 */ エクセル &strFile + ".XLS", "Sheet1",変換範囲=(B3,F3), 項目名行=しない, , 表名= &strFile + ".tbl”, 上書き=する, 終了状態=&実行リターン 繰り返し終了
*&file・・・希望するファイル名を変数で取得する。
みたいな感じで出来るかと思います。未検証なので、出来るかわかりません(^^ゞ ただ、エクセル以外ではよく使用します。 ただ、注意ですが同ディレクトリじゃなかった、同一フォルダの中しか取得できないのです。サブフォルダなどがあっても、 ファイル名は取得できません。 その時は、DOSプロンプトで、予めテキストファイルにファイルリストを作成しておくともっと、効率的かも知れません。 あ、桐で取り込んで、不要ファイルを削除する方法もありますね!
#一括でも、イベントでもOKですよ(^_^;)
|