エクセル -> VBA
ファイルが開いているかチェック
'# ファイルをチェックし開いている場合は閉じる Sub main() If OPENCHK(ファイル名) = True Then Workbooks(ファイル名).Close End If End Sub Function OPENCHK(ファイル名 as string) As Boolean On Error GoTo ERRHdl Set チェック = Workbooks(ファイル名) OPENCHK = True Exit Function ERRHdl: OPENCHK = False End Function