MENU

Excel VBAを利用したファイル名へのバージョン情報の追加方法

VBA

Excel VBAを利用したファイル名へのバージョン情報の追加方法では、version patternを検査し、拡張子前のnew pathをpreviewしてapproved一件をNameで変更する。InputBoxやcellから得たversionは文字列なので、許可形式を検証する。file名へのversion付加は内容versionの真実性を保証せず、artifact内metadataと照合が必要である。この記事はartifact ID、old path、semantic version text、new path、approval、hashをrename keyにするを判断軸にして、記事固有のコード、合否、停止条件、復元を順序立てて説明します。

authorやfolder名でなく、検証済みversion identifierを拡張子前へ付加する。完了は「new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない」です。結果が空なら「version空や形式不正ならrenameせず、既定v1を勝手に付けない」として調べ、エラーを0件へ置き換えません。

日程Fit。無料・登録不要。「いつ空いてる？」を、ひとつのリンクで。リンクを送って、○△×でかんたん日程調整。無料で日程を作る。
目次

version表記規則を固定

version patternを検査し、拡張子前のnew pathをpreviewしてapproved一件をNameで変更する。version情報を含むファイル名では、単にコマンドが終了したことではなく「new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない」を完了条件にします。authorやfolder名でなく、検証済みversion identifierを拡張子前へ付加する。

version表記規則を固定に入る前に、対象、実行場所、権限、入力の由来を確認します。version空や形式不正ならrenameせず、既定v1を勝手に付けない。判定不能を成功へ丸めません。

old・version・newをmapping

old・version・newをmappingは変更や出力生成より先に行う観測です。artifact ID、old path、semantic version text、new path、approval、hashをrename keyにするを含む形で現状を保存し、後段のコードが同じ対象へ向くか確認します。

Option Explicit

Sub PreviewVersionName()
    With ThisWorkbook.Worksheets("VersionMap")
        Debug.Print .Range("B2").Value2, .Range("C2").Value2, .Range("D2").Value2
    End With
End Sub

InputBoxやcellから得たversionは文字列なので、許可形式を検証する。file名へのversion付加は内容versionの真実性を保証せず、artifact内metadataと照合が必要である。version情報を含むファイル名では取得不能、対象なし、値が空という三状態を分け、stderrや終了コードを捨てません。

許可文字と長さを検査

許可文字と長さを検査では「artifact ID、old path、semantic version text、new path、approval、hashをrename keyにする」という粒度で対象を特定します。InputBoxやcellから得たversionは文字列なので、許可形式を検証する。file名へのversion付加は内容versionの真実性を保証せず、artifact内metadataと照合が必要である。表示名や先頭候補だけを採用しません。

version情報を含むファイル名の対象が複数なら、候補数と除外理由を残します。version情報を含むファイル名では実行ユーザー、OS・製品版、locale、カレントディレクトリも結果の解釈へ影響するため同時に記録します。

拡張子手前へversionを配置

拡張子手前へversionを配置ではversion patternを検査し、拡張子前のnew pathをpreviewしてapproved一件をNameで変更する。version情報を含むファイル名のサンプルにあるパス、セル、ユーザー、時刻は検証用なので、直前に確認した承認値へ置き換えます。

Option Explicit

Sub RenameApprovedVersion()
    Dim ws As Worksheet, fso As Object, oldPath As String, newPath As String
    Dim versionText As String, ext As String, newName As String
    Set ws = ThisWorkbook.Worksheets("VersionMap"): Set fso = CreateObject("Scripting.FileSystemObject")
    oldPath = fso.GetAbsolutePathName(Trim$(CStr(ws.Range("B2").Value2)))
    versionText = Trim$(CStr(ws.Range("C2").Value2))
    If Len(versionText) = 0 Or Len(versionText) > 40 Or versionText Like "*[!0-9A-Za-z._-]*" Then _
        Err.Raise 5, , "version表記は英数字・dot・_・-の1〜40文字にします"
    If Left$(versionText, 1) = "." Or Right$(versionText, 1) = "." Or InStr(versionText, "..") > 0 Then _
        Err.Raise 5, , "version表記のdot位置が不正です"
    ext = fso.GetExtensionName(oldPath)
    newName = fso.GetBaseName(oldPath) & "_v" & versionText
    If Len(ext) > 0 Then newName = newName & "." & ext
    newPath = fso.BuildPath(fso.GetParentFolderName(oldPath), newName)
    ws.Range("D2").Value2 = newPath
    If Not fso.FileExists(oldPath) Then Err.Raise 53, , "元ファイルがありません"
    If fso.FileExists(newPath) Then Err.Raise 58, , "変更先があります"
    If StrComp(CStr(ws.Range("E2").Value2), "Approved", vbBinaryCompare) <> 0 Then Exit Sub
    Name oldPath As newPath
    ws.Range("F2").Value2 = "Renamed"
End Sub

既version名へ二重付加しない。destination衝突、長すぎるpath、open fileで中止する。version情報を含むファイル名で変更が発生する場合は、新規出力、no-clobber、WhatIf、下書き表示など利用可能な安全機構を先に使います。

Approved一件だけ変更

既version名へ二重付加しない。destination衝突、長すぎるpath、open fileで中止する。Approved一件だけ変更に当てはまるときは中止理由、対象識別子、終了コードまたはErr.Number、直前に成功した段階を保存します。

version空や形式不正ならrenameせず、既定v1を勝手に付けない。version情報を含むファイル名の再試行は原因を直し、同じ入力と対象を再確認してから行います。警告抑止や強制上書きで通しません。

既存versionの二重付加を防ぐ

既存versionの二重付加を防ぐでは入力と出力を別々に再取得します。version情報を含むファイル名の合格は、new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらないことです。件数だけでなく識別値と内容も照合します。

Sub VerifyVersionFile()
    With ThisWorkbook.Worksheets("VersionMap")
        Debug.Print .Range("C2").Value2, Dir$(.Range("D2").Value2), .Range("F2").Value2
    End With
End Sub

version空や形式不正ならrenameせず、既定v1を勝手に付けない。version情報を含むファイル名の結果が期待と違えば追加変更を重ねず、入力、対象範囲、locale・時刻、権限、製品仕様の順に戻って調べます。

旧nameへrollback

release artifactではfile名だけでなくmanifest、checksum、source revisionも残す。version情報を含むファイル名を反復するときは、正常、差分なし、対象なし、要承認、失敗を別の状態として記録します。

旧nameへrollbackの主キーartifact ID、old path、semantic version text、new path、approval、hashをrename keyにする
採用条件new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない
空結果version空や形式不正ならrenameせず、既定v1を勝手に付けない
中止条件既version名へ二重付加しない。destination衝突、長すぎるpath、open fileで中止する

version表記規則を固定から証跡化する許可文字と長さを検査

version情報を含むファイル名の証跡は「artifact ID、old path、semantic version text、new path、approval、hashをrename keyにする」を主キーにします。version表記規則を固定で確認した値と、実行直前・実行直後の値を同じ作業番号に保存し、表示名が似ている別対象や前回の結果を混ぜません。

old・version・newをmappingで空結果を判定する拡張子手前へversionを配置

version情報を含むファイル名の空結果は「version空や形式不正ならrenameせず、既定v1を勝手に付けない」として扱います。old・version・newをmappingで入力自体が存在するか、権限で見えていないか、条件に一致しないだけかを分け、0件という表示だけで成功・失敗を決めません。

旧nameへrollbackから復旧可否を測るversion表記規則を固定

version情報を含むファイル名の復旧判断では「保存mappingからold nameが空いていることを確認し、逆renameする」を採用します。旧nameへrollbackを再確認し、復旧後に「new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない」へ戻ったかを別の読み取り処理で測定します。

version情報を含むファイル名の事前確認では、artifact ID、old path、semantic version text、new path、approval、hashをrename keyにするを画面表示や標準出力だけで済ませず、実行日時と一緒に作業記録へ写します。InputBoxやcellから得たversionは文字列なので、許可形式を検証する。file名へのversion付加は内容versionの真実性を保証せず、artifact内metadataと照合が必要であるという仕様があるため、似た名前の別対象、前回実行時の値、キャッシュされた表示を今回の対象と取り違えないことが重要です。

version情報を含むファイル名のコードを実行した直後は、まず終了状態を保存し、その後に別の読み取り処理で「new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない」を確認します。version情報を含むファイル名では同じコードの表示だけを合否判定に使うと部分成功や遅延反映を見逃すため、識別値、件数、内容の三点を照合します。

version情報を含むファイル名で結果が得られない場合は、version空や形式不正ならrenameせず、既定v1を勝手に付けない。version情報を含むファイル名ではこの状態と、権限拒否、入力形式の不一致、接続先や時刻の違いを一緒にしません。version情報を含むファイル名の対象候補数、除外された候補、最後に成功した確認処理を残すと、再試行で同じ失敗を重ねずに済みます。

version情報を含むファイル名を元へ戻す必要があるときは、保存mappingからold nameが空いていることを確認し、逆renameする。version情報を含むファイル名の復元前にも変更後の識別値を再取得し、別担当者の更新が入っていないか確認します。version情報を含むファイル名の復元結果も通常処理と同じ完了条件で測り、戻したつもりという報告だけで閉じません。

version情報を含むファイル名を引き継ぐ記録には、release artifactではfile名だけでなくmanifest、checksum、source revisionも残す。特に「既version名へ二重付加しない。destination衝突、長すぎるpath、open fileで中止する」に該当した場合は、実行を止めたこと自体を正しい結果として扱います。version情報を含むファイル名の次回担当者が承認範囲と未処理対象を区別できるよう、作業番号と対象識別子を対応付けます。

version情報を含むファイル名の作業記録には、開始前の対象候補、採用した識別値、実行したコード、終了後の実測、除外理由を同じ作業番号で保存します。「artifact ID、old path、semantic version text、new path、approval、hashをrename keyにする」を省くと別対象との比較になり得るため、日時、実行場所、製品版と一緒に残します。

Excel VBAを利用したファイル名へのバージョン情報の追加方法を定期運用へ組み込む場合も初回は対話的に確認します。正常は「new filenameのversionが台帳・artifact metadataと一致し、hashとextensionが変わらない」、空結果は「version空や形式不正ならrenameせず、既定v1を勝手に付けない」、停止は「既version名へ二重付加しない。destination衝突、長すぎるpath、open fileで中止する」として報告し、次の担当者が同じ条件で追試できるようにします。

version文字列を実際の変更先へ結び付ける

C2のversionTextを検証した後、B2のbasenameとextensionからbasename_vVERSION.extensionを生成してD2へ書きます。D2を別入力にすると検証済みversionと実際の変更先が分離するため、常に同じ計算式を使います。

VBA Likeの否定charlistは^ではなく!を使い、*[!0-9A-Za-z._-]*でallow-list外の一文字でも含む入力を拒否します。先頭・末尾dot、連続dot、禁止文字、過長値も拒否し、元の存在と先の不存在を確認します。

公式情報・参考資料

version情報を含むファイル名のコマンド、API、対応範囲は次の公式一次資料で確認しました。確認日は2026年7月17日です。version情報を含むファイル名の実行環境にあるman、–help、VBA Object Browser、Get-Helpも併用してください。

VBA
バージョン情報 Excel VBA ファイル名

この記事を書いた人

佐藤健司のアバター 佐藤健司

実務の現場で詰まりがちなポイントを地図にするITブログ「IT trip」を運営。Windows／Office（Teams・Excel）からSQL、サーバ運用、ガジェットまで、再現性のある手順と“なぜそうなるか”を丁寧に解説します。読んだらすぐ試せること、そして迷った人の次の一歩が見えることを大切にしています。

関連記事

コメント

コメントする

目次