パソコンに関するノウハウ備忘録

Sub ブックを選択して開く()
   Dim FName As String
   Dim MyCrtPath As Variant
'  ユーザー名取得
   UName = CreateObject("WScript.Network").UserName
'   カレントフォルダを変更
   ChDir Path:="C:\Users\" & UName & "\Desktop"
'ファイルを開くダイアログボックスを表示
    FName = Application.GetOpenFilename _
        (FileFilter:="Excelファイル名,*.xlsm,すべてのファイル,*.*")
    If FName = "False" Then Exit Sub
    Range("A2") = FName
    Range("A3") = Len(FName)
    Range("A4") = InStrRev(FName, "Desktop\")
    Range("A5") = Mid(FName, 27)
    Range("A6") = Len(Range("A5").Value) - 4
    Range("A7") = Left(Range("A5"), Range("A6").Value)
    
    Workbooks.Open Filename:=FName    '←選択したファイルを開く
End Sub