■指定したパスのフォルダを開く ※呼び出し元プロシージャ Sub testopen() Dim strPath As String strPath = "C:\\デスクトップ\テスト" Call openFolder(strPath) End Sub ※呼び出し先プロシージャ Sub openFolder(strFolderPath As String) '--------------…