Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13704 / 76732 ←次へ | 前へ→

【68531】Re:他のフォルダにあるファイル名をひな形ファイルにつけて保存する方法
発言  UO3  - 11/3/18(金) 9:03 -

引用なし
パスワード
   ▼ケメ子 さん:

おはようございます。
ファイルの抽出自体は、FSOは、割合【遅い】方式です。
抽出だけならDIR関数のほうが早いですし、さらにAPIを使って、さらに
高速な方式もあります。ただし、今回の場合、少なくとも、1回は雛形を
【物理的に】開く必要がありますし、また、それを複数のcブックとして
【物理的に】保存する必要があり、ここは、いかんともしがたいところでしょうね。

代替の方式案として2つ。

1.ご提示した前処理の部分を、別プロシジャにします。
  今月の作業データ(cブック)を作成するのは、実際の作業の前に
  比較的余裕のあるときに実行しておき、実際の作業は、現行、お持ちの
  作業ファイル作成 プロシジャを動かします。
  トータルの処理時間はかわりませんが、事前準備を分離するという構え。
  なお、この時、セルに登録された種々のデータの取り込み部分が2箇所になり
  保守性に問題が出てくる恐れがあります。
  ですので、1つのモジュールに
  ・まず、セルから取り出す情報格納変数等をモジュールレベルの変数として記述。
  ・それらを取り込む共通プロシジャを準備
  という構えが考えられます。イメージ的には以下。

Option Explicit

'共通的に利用する変数をここにモジュールレベル変数として記述

Sub 事前処理()
  Call 登録データ取得
  '今回ご提案した事前処理コード部分
End Sub

Sub 作業データ作成()
  Call 登録データ取得
  '現行のコード(除く、セルからのデータ取得)
End Sub

Private Sub 登録データ取得()
  'ThisWorkbook.Sheet(1)から各変数への取り込み
End Sub

2.申し上げたようにファイル抽出自体はファイル数が40になろうと50になろうと
  あまり気にしなくていいと思いますが、課題は実際のcブックの保存。
  今回ご提案した形は、
  ・まず、雛形から全てのcブックを作成。
  ・あらためて作成済みのcブックにaブックあるいはbブックから情報を付加して
   もう一度、保存。
  ということで、cブックの保存が2回実行されます。
  少しコードは煩雑になりますが、
  ・最初に雛形ブックを開いておいて
  ・aブック、bブックから、雛形ブックに情報を反映させてcブックとして保存。
  ・これを繰り返す。
  こうすることで、処理時間としては、ほぼ現行の作業ファイル作成プロシジャと
  かわらなくなる効果が期待できます。

★まずは、1.をご検討いただけませんか?

0 hits

【68499】他のフォルダにあるファイル名をひな形ファイルにつけて保存する方法 ケメ子 11/3/10(木) 21:58 質問
【68504】Re:他のフォルダにあるファイル名をひな形... Yuki 11/3/11(金) 11:41 発言
【68506】Re:他のフォルダにあるファイル名をひな形... Yuki 11/3/11(金) 12:17 発言
【68521】Re:他のフォルダにあるファイル名をひな形... ケメ子 11/3/13(日) 22:23 質問
【68522】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/14(月) 8:28 発言
【68524】Re:他のフォルダにあるファイル名をひな形... Yuki 11/3/14(月) 15:46 発言
【68527】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/16(水) 11:04 発言
【68528】Re:他のフォルダにあるファイル名をひな形... ケメ子 11/3/16(水) 21:56 お礼
【68530】Re:他のフォルダにあるファイル名をひな形... ケメ子 11/3/17(木) 20:29 質問
【68531】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/18(金) 9:03 発言
【68532】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/18(金) 10:24 発言
【68533】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/18(金) 11:11 発言
【68534】Re:他のフォルダにあるファイル名をひな形... UO3 11/3/18(金) 15:09 回答
【68535】Re:他のフォルダにあるファイル名をひな形... ケメ子 11/3/18(金) 22:23 お礼
【68824】Re:他のフォルダにあるファイル名をひな形... ケメ子 11/4/20(水) 21:30 お礼

13704 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free