総合練習問題9解答｜VBA練習問題解答

公開日：2013年5月以前　最終更新日：2019-06-27

第81回.総合練習問題9解答

マクロVBA練習問題の解答ページです。

マクロVBA練習問題

フォルダごとバックアップするマクロの作成です。

自身のブックのあるフォルダについて、以下の処理をして下さい
・サブフォルダ"BACKUP"を作成して下さい
・フォルダ内のすべてのエクセルファイルを"BACKUP"にコピーして下さい。
ただし、
ファイル名は、〇〇○.xls → ○○○_yyyymmdd.xls
このように、
年月日を付けたファイル名にしてコピーして下さい。

※自分自身（マクロVBAを書くブック）はコピーしないでください。

ヒント！

拡張子の取得が必要になります。
最後の.ピリオド以降が拡張子になります。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

マクロVBA練習問題解答

では解答のマクロVBAコードです。




Sub 練習1()
　　Dim strDir As String
　　Dim strFileName As String
　　Dim 
strNewFile As String
　　Dim intDot As Integer
　　strDir = ThisWorkbook.Path 
& "\"
　　MkDir strDir & "BACKUP"
　　strFileName = Dir(strDir & 
"*.xls")
　　Do While strFileName <> ""
　　　　If strFileName <> 
ThisWorkbook.Name Then
　　　　　　intDot = InStrRev(strFileName, 
".")
　　　　　　strNewFile = Left(strFileName, intDot - 1) & "_" & 
Format(Date, "yyyymmdd") & Mid(strFileName, intDot)
　　　　　　FileCopy strDir 
& strFileName, strDir & "BACKUP\" & strNewFile
　　　　End 
If
　　　　strFileName = Dir()
　　Loop
End Sub

書き方は色々あります。
回答はひとつのサンプルとして参考にして下さい。

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

第81回.総合練習問題9解答

マクロVBA練習問題

シンキングタイム

マクロVBA練習問題解答

同じテーマ「マクロVBA練習問題解答」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る