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

Excelマクロ練習問題集、エクセル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

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



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

第50回.総合練習問題6解答
第67回.総合練習問題7解答
第78回.総合練習問題8解答
第81回.総合練習問題9解答
第86回.総合練習問題10解答
練習問題1(For~Nextの練習)解答
練習問題2(最終行の取得の練習)解答
練習問題3(二重ループの練習)解答
練習問題4(Ifの練習)解答
練習問題5(ElseIfとSelect Caseの練習)解答
練習問題6(変数を使っての合計の練習)解答


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

AIがあればVBAはできる:セルに絵文字を入れる|生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目:シートの並べ替え|生成AI活用研究(5月6日)
Geminiと100本ノック 14本目:社外秘シート削除|生成AI活用研究(5月4日)
Geminiと100本ノック 13本目:文字列の部分フォント|生成AI活用研究(5月4日)
Geminiと100本ノック 12本目:セル結合の解除|生成AI活用研究(5月2日)
Geminiと100本ノック 11本目:セル結合の警告|生成AI活用研究(5月1日)
AI(Gemini)とエクセル数式対決 その2|生成AI活用研究(2025-04-30)
Geminiと100本ノック 10本目:行の削除|生成AI活用研究(4月30日)
AI(Gemini)とテーマを決めて議論|生成AI活用研究(2025-04-30)
Geminiと100本ノック 9本目:フィルターコピー|生成AI活用研究(4月29日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.RangeとCellsの使い方|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.FILTER関数(範囲をフィルター処理)|エクセル入門
10.条件分岐(Select Case)|VBA入門




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


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



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