| |
▼ケメ子 さん：
おはようございます。
ファイルの抽出自体は、FSOは、割合【遅い】方式です。
抽出だけならDIR関数のほうが早いですし、さらにAPIを使って、さらに
高速な方式もあります。ただし、今回の場合、少なくとも、1回は雛形を
【物理的に】開く必要がありますし、また、それを複数のcブックとして
【物理的に】保存する必要があり、ここは、いかんともしがたいところでしょうね。
代替の方式案として２つ。
１．ご提示した前処理の部分を、別プロシジャにします。
今月の作業データ（cブック)を作成するのは、実際の作業の前に
比較的余裕のあるときに実行しておき、実際の作業は、現行、お持ちの
作業ファイル作成 プロシジャを動かします。
トータルの処理時間はかわりませんが、事前準備を分離するという構え。
なお、この時、セルに登録された種々のデータの取り込み部分が2箇所になり
保守性に問題が出てくる恐れがあります。
ですので、１つのモジュールに
・まず、セルから取り出す情報格納変数等をモジュールレベルの変数として記述。
・それらを取り込む共通プロシジャを準備
という構えが考えられます。イメージ的には以下。
Option Explicit
'共通的に利用する変数をここにモジュールレベル変数として記述
Sub 事前処理()
Call 登録データ取得
'今回ご提案した事前処理コード部分
End Sub
Sub 作業データ作成()
Call 登録データ取得
'現行のコード（除く、セルからのデータ取得)
End Sub
Private Sub 登録データ取得()
'ThisWorkbook.Sheet(1)から各変数への取り込み
End Sub
２．申し上げたようにファイル抽出自体はファイル数が４０になろうと５０になろうと
あまり気にしなくていいと思いますが、課題は実際のcブックの保存。
今回ご提案した形は、
・まず、雛形から全てのcブックを作成。
・あらためて作成済みのcブックにaブックあるいはbブックから情報を付加して
もう一度、保存。
ということで、cブックの保存が2回実行されます。
少しコードは煩雑になりますが、
・最初に雛形ブックを開いておいて
・aブック、bブックから、雛形ブックに情報を反映させてcブックとして保存。
・これを繰り返す。
こうすることで、処理時間としては、ほぼ現行の作業ファイル作成プロシジャと
かわらなくなる効果が期待できます。
★まずは、１．をご検討いただけませんか？
|
|
UO3
- 11/3/18(金) 9:03 -
