指定パスの末尾に円マーク(\)付与する【パーツ化】【ExcelVBA】

パーツ化とは
このコードをコピペでOK
使い方
結果イメージ
注意点
関連記事

パーツ化とは

ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。

分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であればセル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。

このコードをコピペでOK

'■指定パスの最後に円マークでなければ、円マークを付与するサンプルコード
Public Function Call_TruePath(sPath As String) As String
    If Right(sPath, 1) <> "\" Then
        '■指定パスの最後が円マークでなければ円マーク（￥）付与する
        Call_TruePath= sPath & "\"
    Else
        '■指定パスの最後が円マークであれば何も付与しない
        Call_TruePath= sPath
    End If
End Function

使い方

上記をお好きなモジュール内にコピペしてください。
実際に使用する時は行いたいコードを記載し、呼出しは以下のような形で使用してください。

Public Sub sample()

    Dim sPath as String
    sPath="C:\sample"

    '■文字列直接指定の場合
    sPath = Call_TruePath("C:\sample")
    '■文字列変数指定の場合
    sPath =  Call_TruePath(sPath)
    
    Debug.Print sPath   '上記どちらも"C:\sample\"が戻ってくる
    
End Sub