Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49976 / 76733

←次へ　｜　前へ→


	【31654】ブックに新たな名前をつけて別のフォルダへ保存

夜更かし野郎 - 05/11/27(日) 19:45 -


	引用なし

	パスワード

いつも、お世話になっています。
簡単な質問かも知れませんが、何卒お知恵をお貸しください。

全国の支社から、定期的に送られてくる報告資料の数値を集約するマクロを
作成しようと努力しています。
1.というフォルダに毎回報告されてくるエクセルのブックを保存していきます。

集約する一覧表にマクロを作成しています。

1.に存在する数多くのブックを開き、特定箇所をコピーして
一覧表にペーストします。

この板を参考に

　　Dim MyF As String
　　Const Ph As String = "C:\Documents and Settings\tie\デスクトップ\1."
　　
　　MyF = Dir(Ph & "\*.xls")
　　Application.ScreenUpdating = False
　　Do Until MyF = ""
　　　　Workbooks.Open Ph & "\" & MyF
　　　　
　　　　＜処理内容＞コピー＆ペースト
　　　　
　　　　ActiveWorkbook.Close True
　　　　MyF = Dir()
　　Loop
　　Application.ScreenUpdating = True

というコードを書きました。

ここまでは、なんとかできましたが、
以下の作業を加えたいと思います。

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

他力本願で申し訳ありませんが、アドバイスをお願い致します。

1 hits

▼

【31654】ブックに新たな名前をつけて別のフォルダへ保存 夜更かし野郎 05/11/27(日) 19:45

≪