Excel VBA質問箱 IV

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

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


13709 / 76738 ←次へ | 前へ→

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

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

おはようございます。

アップ後、ふと思いついたんですが。

事前に処理するにせよ、一連の処理の最初に処理するにせよ、ご提示したコードは
cファイルを【エクセルとして事前に保存】するコードで、処理コストが大きくなる
わけです。
これを、雛形ブック含め、ブックを開かないで、cフォルダに必要なcブックを
【雛形ブックからのコピー】という方式にしてみました。処理時間は大幅に短縮される
可能性があります(希望的観測?)
で、コピーはFSOでもできますが、処理時間を考慮して、標準コードのみにしてみました。

★難点があります。読み取り専用の雛形をコピーした後、その属性をリセットしている
 つもりなんですが、コピー後、開くと、やはり読み取り専用になっています。
 なぜなのか、現在の私のレベルではわかっていないので、このあとも追求してみますが
 できれば、このあたり、yukiさんはじめ、エキスパートの方々のご助言が欲しいところです。

  Dim wkName As Variant    '追加
  Dim myPool As Collection   '追加
    ’
    ’
    ’
'事前処理開始
  Set myPool = New Collection
  
  'まずaPathにあるaファイルの名前をcファイル用に加工してmyPoolに取り込む
  wkName = Dir(aPath & "\*.xls")
  Do While wkName <> ""
    myPool.Add cPath & "\" & myPre & wkName
    wkName = Dir()
  Loop
  '雛形ブックをmyPoolに取り込んだcファイル名として【コピー】
  For Each wkName In myPool
    If Len(Dir(wkName)) > 0 Then Kill wkName
    FileCopy cPath & "\" & tplName, wkName
    SetAttr wkName, vbNormal '★ここがきいていない!
  Next
  
  Set myPool = Nothing
'事前処理終了
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 お礼

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