返回列表 上一主題 發帖

如何檢查指定檔案是否存在

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-13 17:35 | 只看該作者

如何檢查指定檔案是否存在

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
174  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-7-18 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-2-14 00:23 | 只看該作者
回復 1# enoch

學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題