Closed. This question needs to be more focused。它当前不接受答案。
想改善这个问题吗?更新问题,使其仅关注editing this post的一个问题。
5年前关闭。
Improve this question
在VBA中,我以编程方式打开了一个名为“myWork.XL”的MS Excel文件。
现在,我想要一个可以告诉我其状态的代码-无论它是否打开。即像
想改善这个问题吗?更新问题,使其仅关注editing this post的一个问题。
5年前关闭。
Improve this question
在VBA中,我以编程方式打开了一个名为“myWork.XL”的MS Excel文件。
现在,我想要一个可以告诉我其状态的代码-无论它是否打开。即像
IsWorkBookOpened("myWork.XL)
这样的东西? 最佳答案
试试这个:
Option Explicit
Sub Sample()
Dim Ret
Ret = IsWorkBookOpen("C:\myWork.xlsx")
If Ret = True Then
MsgBox "File is open"
Else
MsgBox "File is Closed"
End If
End Sub
Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function