'帳票作成 'エクセルにコンボボタンを配置し、名前を変更してプログラム実行 Private Sub btn_new_Report_Click() '「1」ブックが存在するか、確認 '「2-1」開かれていたら閉じる '「2-2」指定したファイル名+日付のファイルを削除(Killコード) '---------------------------------------------------------------------------------------------------------------- 'ファイルのパス・ファイル名設定 Dim exl_Path, exl_File As String exl_Path = "\\192.168.*.**\日報\" exl_File = "日報入力.xls" '---------------------------------------------------------------------------------------------------------------- 'ブックが存在するか検索 If Dir(exl_Path & "日報" & Format(dt, "yyyymmdd") & ".xls") <> "" Then 'ブックが開かれているか?確認 Workbooks.Open exl_File:=exl_Path & ("日報" & Format(dt, "yyyymmdd") & ".xls"), Notify:=False If Err.Number > 0 Then '閉じる Workbooks("日報" & Format(dt, "yyyymmdd") & ".xls").Close 'ファイル削除 Kill exl_Path & "日報" & Format(dt, "yyyymmdd") & ".xls" Else If ActiveWorkbook.ReadOnly = False Then '閉じる Workbooks("日報" & Format(dt, "yyyymmdd") & ".xls").Close 'ファイル削除 Kill exl_Path & "日報" & Format(dt, "yyyymmdd") & ".xls" End If End If Else ' End If '処理開始 End Sub