■呼び出し元プロシージャ Sub test() Dim bookPath As String Dim sheetName As String Dim wb As Workbook bookPath = "C:\Users\デスクトップ\テスト\売上確定情報.xlsx" sheetName = "Sheet1" 'リンクを更新しないでブックを開く Set wb = Workbooks.Open…

■呼び出し元プロシージャ Sub test() Dim filePath As String Dim Result As Boolean filePath = "C:\Users\cryst\OneDrive\デスクトップ\テスト\テストフォルダ\テスト.xlsx" If IsExistsFile(filePath) Then MsgBox "ファイルは存在します" Else MsgBox "…

■呼び出し先プロシージャ Sub test() Dim folderPath As String Dim Result As Boolean folderPath = "C:\Users\デスクトップ\テスト\テストフォルダ" If IsExistsDir(folderPath) Then MsgBox "フォルダは存在します" Else MsgBox "フォルダは存在しません"…