Excel VBA質問箱 IV

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

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


13708 / 76732 ←次へ | 前へ→

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

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

こんにちは

提案です。

現在のファイル処理のループの中で雛形ブックを読み込んで、bファイル名をもとに
cファイルを作り出すのではなく、処理の最初に、まず必要なcファイルをcフォルダに
すべて生成、以降は現在のコードのまま実行という方式が、わかりやすいかもしれませんし
都度、雛形ファイルを読みこむより処理時間も短縮されるかもしれません。

Sub 作業ファイル作成()
  Dim tplName As String  '追加
  tplName = "雛形.xls"  '実際の雛形ブック名に。あるいは、これも登録セルから転記。
  '
  '
  '最初に以下のコードを
  '
  'まずcフォルダの【作業】・・ブックを削除
  For Each myFile In myFso.getfolder(cPath).Files
    cName = myFile.Name
    If LCase(myFso.GetExtensionName(cName)) = "xls" And cName <> tplName Then
      Kill cPath & "\" & cName
    End If
  Next
  
  '次に雛形ブックをaフォルダのブック名に【作業】を付加した名前でcフォルダに
  '名前を付けて保存
  Application.DisplayAlerts = False
  Workbooks.Open Filename:=cPath & "\" & tplName
  Application.DisplayAlerts = True

  For Each myFile In myFso.getfolder(aPath).Files
    cName = myPre & myFile.Name
    If LCase(myFso.GetExtensionName(cName)) = "xls" Then
      ActiveWorkbook.SaveAs Filename:=cPath & "\" & cName, ReadOnlyRecommended:=False
    End If
  Next
  
  ActiveWorkbook.Close False
 
  
  'この後は既存コードのまま
  
End Sub
1 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 お礼

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