（VBA）を使用して同じファイルを開くときに既に開いている状態のExcelファイルを閉じる

Question

excelファイルを開くコマンドボタンがあります。

ただし、同じファイルを2度目に開いた場合は、最初にファイルを閉じてから再度開く必要があります。

私はそのようなコードを探しています - 私はこの助けに非常に感謝しています。

Answer 1

ワークブックにはCloseメソッドがあります。

は、それが開いている場合、いない場合は、closeメソッドを使用して、それを閉じhere

Answer 2

チェックを参照してください。

あなただけのあなたは、単にこれを行うことができ、ワークブックの保存についての確認 を求めるプロンプトが表示されるユーザーせずにブックを閉じるしたい場合は、次のコードは、このVBAXpress Article

Function IsFileOpen(FileName As String) 
Dim iFilenum As Long 
Dim iErr As Long 

On Error Resume Next 
iFilenum = FreeFile() 
Open FileName For Input Lock Read As #iFilenum 
Close iFilenum 
iErr = Err 
On Error Goto 0 

Select Case iErr 
Case 0: IsFileOpen = False 
Case 70: IsFileOpen = True 
Case Else: Error iErr 
End Select  
End Function 

Sub test() 
    If Not IsFileOpen("C:\MyTest\volker2.xls") Then 
     Workbooks.Open "C:\MyTest\volker2.xls" 
    End If 
End Sub 

から供給された：

ActiveWorkbook.Close False 

'変更を保存せずにアクティブなブックを閉じる

ActiveWorkbook.Close True 

は「アクティブワークブックを閉じ、すべての変更

ActiveWorkbook.Close 

を節約する」アクティブワークブックを閉じ、変更内容を保存するか、あなたがいない

Workbooks("BOOK1.XLS").Close SaveChanges:=False