#fullname

i have a fascination with my name

scribbled out on papers and typed on documents

dropping from people’s tongues, slipping from their lips

because it’s everything i am

there are other people with my name, characters created with my name, living my name

and i sit and i wonder on nights like these

staring at my name typed out in front of me

今回は、ファイルのFullName……つまり、ファイルのパスとファイル名がくっついているものを、それぞれに分割するマクロを作ります。

まずはコードから。

Sub sample24()    Dim temp As Variant, i As Long, folder_path As String, file_name As String    temp = Split(ThisWorkbook.FullName, "\")

   file_name = temp(UBound(temp))

   folder_path = temp(0)

   For i = 1 To UBound(temp) - 1        folder_path = folder_path & "\" & temp(i)    Next End Sub

な￥仕組みは単純なもので、まずはSplitでFullNameを「\」で分割します。

Splitは分割して配列として渡してくれるので、それをtempに入れます。

tempの最後の要素がファイル名。それまでの要素を「\」でつなぎなおしたものがパスなので、あとはそれぞれうまい具合に取得するだけです。

まぁ今回のマクロだと、そもそもThisWorkbook.Nameとかでファイル名が取得できるのでうまみはありませんが、例えばファイルのFullNameを受け取って処理をするときなどに役に立ちます。