返回列表 上一主題 發帖

內容為excel 2003的程式碼，請問各位大大如在2010版本該如何修改，謝謝

aaronprada

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2012-12-30 
最後登錄
2013-12-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-30 19:02 | 只看該作者

內容為excel 2003的程式碼，請問各位大大如在2010版本該如何修改，謝謝

Public Sub FileSearch(Target)
'檔案搜尋用副程式
'With Application.FileSearch
     Application.FileSearch.NewSearch
     Application.FileSearch.LookIn = "E:\"
     Application.FileSearch.SearchSubFolders = True
     Application.FileSearch.Filename = Target
     Application.FileSearch.MatchTextExactly = True
     Application.FileSearch.FileType = msoFileTypeAllFiles
     If Application.FileSearch.Execute() = 1 Then
        Filegot = Application.FileSearch.FoundFiles(1)
        Exit Sub
     Else
        If Application.FileSearch.Execute() = 7 Then: Exit Sub
        If InStr(Target, "警報記錄.csv") > 0 Then: MsgBox "請將當日環控原始檔案放入光碟機" & vbCrLf & vbCrLf & "或確認 7 個環控原始檔名正確": End
        MsgBox "光碟內找不到或有兩個以上 " & Target & "，請指定檔案位置"
        Filegot = Application.GetOpenFilename(UCase(Right(Target, 3)) & " Files (*" & Right(Target, 4) & "),*" & Right(Target, 4)) '手動取檔
        If InStr(Filegot, Replace(Left(Target, Len(Target) - 4), "*", "")) = 0 Then: MsgBox "檔案選擇錯誤" & vbCrLf & vbCrLf & "請選擇" & Target: End
   
'End With
End Sub
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-12-30 21:24 | 只看該作者
  1. Public Sub FileSearch(Target)
  2. fd = "E:\" '指定光碟機
  3. Filegot = Dir(fd & "*" & Target & "*") '找出含有Target之檔案名稱
  4. Do Until Filegot = ""
  5. cnt = cnt + 1 '計算類似檔名個數
  6. Filegot = Dir
  7. Loop
  8. If cnt = 1 Then
  9.   If InStr(Target, "警報記錄.csv") > 0 Then: MsgBox "請將當日環控原始檔案放入光碟機" & vbCrLf & vbCrLf & "或確認 7 個環控原始檔名正確": End
  10.   Else
  11.   MsgBox "光碟內找不到或有兩個以上 " & Target & "，請指定檔案位置"
  12.   Filegot = Application.GetOpenFilename(UCase(Right(Target, 3)) & " Files (*" & Right(Target, 4) & "),*" & Right(Target, 4)) '手動取檔
  13.   If InStr(Filegot, Replace(Left(Target, Len(Target) - 4), "*", "")) = 0 Then: MsgBox "檔案選擇錯誤" & vbCrLf & vbCrLf & "請選擇" & Target: End
  14. End If
  15. End Sub
複製代碼
回復 1# aaronprada
試試看
學海無涯_不恥下問

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題