Excel VBA質問箱 IV

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

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


49974 / 76733 ←次へ | 前へ→

【31656】Re:ブックに新たな名前をつけて別のフォルダへ保存
回答  かみちゃん  - 05/11/27(日) 20:04 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>コピー&ペーストを終えた段階で、報告されたブックの名前に
>処理した日付を加えて、別の2.というフォルダに保存をする。
>例)○○報告フォーム【A支店】というブックを
>  →○○報告フォーム【A支店】20051127

以下のような感じでできると思います。
Constステートメントも、少しだけ記述を変えて工夫をしています。

 Dim MyF As String
 Const Ph As String = "C:\Documents and Settings\tie\デスクトップ\"
 
 MyF = Dir(Ph & "1.\*.xls")
 Application.ScreenUpdating = False
 Do Until MyF = ""
  Workbooks.Open Ph & "1.\" & MyF
  
  '<処理内容>コピー&ペースト
  
  ActiveWorkbook.SaveAs Filename:= _
   Ph & "2.\" & Replace(ActiveWorkbook.Name, ".xls", "") & Format(Date, "yyyymmdd"), _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
     CreateBackup:=False
 
  ActiveWorkbook.Close True
  MyF = Dir()
 Loop
 Application.ScreenUpdating = True

>全国の支社から、定期的に送られてくる報告資料の数値を集約するマクロを
>作成しようと努力しています。
>1.というフォルダに毎回報告されてくるエクセルのブックを保存していきます。
>
>集約する一覧表にマクロを作成しています。
>
>1.に存在する数多くのブックを開き、特定箇所をコピーして
>一覧表にペーストします。

私も同様のことをしていますが、特定のシートの特定のセルのだけ持ってくる
のであれば、ファイルを開かなくても、ブックへのリンク参照式を埋め込んで
取得するという方法もあります。
その場合は、ファイルをコピーすればいいだけです。

でも、いずれにしても、名前が違うだけで内容が同じのブックを保存するのは、
効率いいのでしょうか?
たぶん、処理したかどうかの管理だとは思いますけど・・・
処理前のブックを残しておく必要があるのかな?と思いました。
2 hits

【31654】ブックに新たな名前をつけて別のフォルダへ保存 夜更かし野郎 05/11/27(日) 19:45 質問
【31656】Re:ブックに新たな名前をつけて別のフォル... かみちゃん 05/11/27(日) 20:04 回答
【31701】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/28(月) 20:41 お礼
【31685】Re:ブックに新たな名前をつけて別のフォル... Kein 05/11/28(月) 14:11 回答
【31702】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/28(月) 20:48 お礼
【31718】Re:ブックに新たな名前をつけて別のフォル... ぱっせんじゃー 05/11/29(火) 11:38 発言
【31733】Re:ブックに新たな名前をつけて別のフォル... 夜更かし野郎 05/11/29(火) 14:20 お礼

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