返回列表 上一主題 發帖

路徑下尋找檔案並修改名稱

smartpearl

帖子
10 
主題
6 
精華
0 
積分
22 
點名
0  
作業系統
Window 7 
軟體版本
Office2007 
閱讀權限
10 
性別
女 
來自
Taiwan 
註冊時間
2013-1-28 
最後登錄
2013-7-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-7-2 16:59 | 只看該作者

路徑下尋找檔案並修改名稱

下面是我寫的部分
希望在開啟excel檔案後就可自動搜尋路徑下檔案名稱為*Daily*的檔案,並自動修改黨名為AAA,
但試了之後以只有錯誤訊息出現,麻煩幫幫我這個初學者

Private Sub workbook_open()

With Application.FileSearch
    .NewSearch
    .LookIn = "\\nas\aa"               '在這個路逕裡尋找
    .Filename = "Daily"              '尋找的檔名
    .MatchTextExactly = False         '字串不需完全符合
    .FileType = msoFileTypeAllFiles   '檔案型態不限
    .SearchSubFolders = True          '在子目錄裡也要找
   
    If .Execute > 0 Then
      
        For i = 1 To .FoundFiles.Count
            
            Worksheets("sheet1").Cells(i, 1) = .FoundFiles(i)
        Next i
   
    End If

End With

End Sub
收藏 分享
POP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2013-7-2 23:47 | 只看該作者
回復 1# smartpearl

application.filesearch 在office 2007 已經退役, 可以用DIR的方法
換檔名可用 NAME ... AS ... 的方法

  2. Sub test()
  3.     Dim sFolder As String, sSearch As String
  4.     Dim sTemp As String
  5.    
  6.     sFolder = "\\nas\aa\"
  7.     sSearch = "*daily*"
  8.    
  9.     sTemp = Dir(sFolder & sSearch)
  10.    
  11.     Do While sTemp <> ""
  12.         Name sFolder & sTemp As sFolder & Replace(sTemp, "daily", "AAA", 1, -1, vbTextCompare)
  13.         sTemp = Dir
  14.     Loop
  15. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題