#fullname Tumblr posts

  • So my full name means 

    Universal little king and friend of horses 

    And with this information I can die peacefully 

    View Full
  • 今回は、ファイルの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を受け取って処理をするときなどに役に立ちます。

    ということで、記念すべき100回目の投稿では、これを使って、マクロを作っていきたいと思います。

    View Full
  • When your mother called you by your CORRECT name for the first time. Don’t know whether to be upset or happy at the same damn time. 😑😂

    View Full