VBA如何判断是否下标越界,在线等!

发布网友发布时间：2024-09-27 16:03

共2个回答

热心网友时间：2024-10-04 08:03

自己写一个实用按例给你作参考如下: 好用望采纳!
如下是判断文件是否存在的方法
Function FileExists(fname) As Boolean
' 文件存在则返回TRUE，确定文件是否存在
FileExists = Dir(fname) <> ""
End Function

如下是判断工作表是否存在的方法
Sub kdfk()
Dim a As Boolean
MsgBox 判断下标是否越界("Sheet1")
End Sub
Function 判断下标是否越界(工作表名字 As String) As Boolean
' 返回true为不越界,否则为越界
Dim i As Long '循环用
Dim b As Worksheet
On Error Resume Next
For Each b In Worksheets
If 工作表名字 = b.Name Then
判断下标是否越界 = True
Exit Function
End If
Next
判断下标是否越界 = False
End Function

热心网友时间：2024-10-04 07:59

应该没有，但是可以这样实现
On Error Resume Next
Dim sBookName As String
sBookName = ""
sBookName Workbooks(Month_Book_Name).Name
If sBookName = "" Then
MsgBox "文件未打开"
End If
利用vba异常

热心网友时间：2024-10-04 08:05

热心网友时间：2024-10-04 08:06