標題: 如何檢查指定檔案是否存在 [打印本頁]

---

作者: enoch    時間: 2012-2-13 17:35     標題: 如何檢查指定檔案是否存在

例如我在A1 輸入ABC, 想在B1 設定公式, 檢查ABC.XLS 是否存在於C:\內
請指教

---

作者: register313    時間: 2012-2-13 23:01

回復 1# enoch

VBA

1. Sub filesearch()
   
2. Dim MyFile As Object
   
3. Dim Str As String
   
4. Str = "c:\" & [A1]
   
5. Set MyFile = CreateObject("Scripting.FileSystemObject")
   
6. If MyFile.FileExists(Str) Then
   
7.    MsgBox "文件已找到!"
   
8. Else
   
9.    MsgBox "文件不存在!"
   
10. End If
    
11. End Sub

複製代碼

---

作者: Hsieh    時間: 2012-2-14 00:23

回復 1# enoch

[attach]9570[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)