VBA代码提示 此处需要物件，求大神帮忙。好像出错的地方是"Set a ="这个地方。请帮忙告知为什麽

Function IsFileExists(ByVal strFileName As String) As Boolean
Dim objFileSystem As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.fileExists(strFileName) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
Sub Run()
Dim i As Integer
Dim a As String
For i = 3 To 100
Set a = ActiveSheet.Range("b" & i).Value
If IsFileExists("E:\2016\PDR1608012\" & a & ".pdf") = True Then
MsgBox a & "文件存在"
MsgBox a & "文件不存在"
End If
Next i
End Sub

Dim a As String改成
Dim a As range

Set a = ActiveSheet.Range("b" & i).Value改成

Set a = ActiveSheet.Range("b" & i)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息