Excel 如何判断一个excel 文件是否打开-vba打开一个excel文件,vba按路径打开excel文件

遍历workbooks或documents，读取文件名，如果匹配则用.close方法关闭

1、直接法。

直接打开文件，如果已经打开，文件会提示已打开。如zd下：

2、大多数情况下可能会用到VBA判定，使用更普遍。

• ALT+F11

• 增加如下代码

• 运行即内可

本例中设定其名称为"aaa.xlsx"，可根据实际容情况作以更改。

Sub a()
Dim myWork As Workbook
For Each myWork In Application.Workbooks
 
If myWork.Name = "aaab.xlsx" Then
MsgBox "aaa.xlsx" & "已打开"
Exit Sub
End If
 
Next
MsgBox "aaa.xlsx" & "未打开"
End Sub

Workbooks.Count

If Workbooks.Count > 1 Then
For i = 1 To Workbooks.Count - 1

Workbooks(i).Close

Next i
Else
Application.Quit

End If

Const fName As String = "MyExcelFile.xls"
Sub testFileOpen()
Dim xApp As Application
Set xApp = CreateObject("Excel.Application")
xApp.DisplayAlerts = False
On Error GoTo FileError
xApp.Workbooks.Open Filename:=ThisWorkbook.Path & "\" & fName, notify:=False, ReadOnly:=False
If xApp.ActiveWorkbook.ReadOnly = True Then
    MsgBox "File is already opened!来"
Else
    MsgBox "File is not opened!"
End If
GoTo QuitSub
FileError:
    MsgBox "File is not exist"
QuitSub:
    xApp.Quit
End Sub

附件可源下载参zhidao考

本文标签：vba按路径打开excel文件(3)vba打开一个excel文件(1)