◆パスを取得する 特別なフォルダや開いているブックのパスを取得できます。 Sub test1() Dim Current_path As String Dim DefaultFile_path As String Dim Excel_path As String Dim Startup_path As String Dim Templates_path As String Dim Library_path As String Dim UserLibrary_path As String Dim Workbook_path As String Dim Thisbook_path As String '現在のパス たとえば直前で メニューの 開くでファイルを開いたパス Current_path = CurDir 'デフォルトパス 'メニューの ツール -> オプション -> 全般タブで設定して