Function IsFileOpen(filePath As String) As Boolean Dim fileNum As Integer On Error Resume Next fileNum = FreeFile() Open filePath For Binary Access Read Write Lock Read Write As #fileNum Close #fileNum If Err.Number = 0 Then IsFileOpen = F…

Sub ファイルをコピーする() Dim 元ファイルパス As String Dim 新ファイルパス As String ' 元ファイルのパスを指定 元ファイルパス = "C:\元ファイルのパス\ファイル名.xlsx" ' 新しいファイルのパスを指定 新ファイルパス = "C:\コピー先のパス\新しいフ…