Dim tempDir As String tempDir = ThisWorkbook.Path & "\Test\" If Dir(tempDir, vbDirectory) = "" Then MkDir tempDir 'ディレクトリの作成 End If
Dim tempDir As String tempDir = ThisWorkbook.Path & "\Test\" If Dir(tempDir, vbDirectory) = "" Then MkDir tempDir 'ディレクトリの作成 End If