vba如何判斷有沒有文件?要判斷文件是否存在，可以使用傳統VBA語句和FSO對象模型兩種方式，我來為大家科普一下關于vba如何判斷有沒有文件?下面希望有你要的答案，我們一起來看看吧!

vba如何判斷有沒有文件

要判斷文件是否存在，可以使用傳統VBA語句和FSO對象模型兩種方式。

先編寫一個判斷文件是否存在的函數：

Function FileExists(fname) As Boolean

FileExists = Dir(fname) <> ""

End Function

Sub 判斷文件()

Dim sFileName As String

sFileName = Application.InputBox(prompt:="請輸入文件名稱：", _

Default:=ThisWorkbook.FullName, Title:="輸入文件名稱", Type:=2)

If sFileName = "False" Then Exit Sub '用戶選擇"取消"則退出程序

If sFileName = "False" Then Exit Sub '用戶選擇"取消"則退出程序

If FileExists(sFileName) Then

MsgBox "文件 " & sFileName & " 存在！"

Else

MsgBox "文件 " & sFileName & " 不存在！"

End If

End Sub

2 使用FSO對象模型判斷文件是否存在

Sub FSO判斷文件()

Dim fso As New FileSystemObject, sFileName As String

sFileName = Application.InputBox(prompt:="請輸入文件名稱：", _

Default:=ThisWorkbook.FullName, Title:="輸入文件名稱", Type:=2)

If sFileName = "False" Then Exit Sub '用戶選擇"取消"則退出程序

If fso.FileExists(sFileName) Then

MsgBox "文件 " & sFileName & " 存在！"

Else

MsgBox "文件 " & sFileName & " 不存在！"

End If

Set fso = Nothing

End Sub

－End－

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部