標題: 路徑下尋找檔案並修改名稱 [打印本頁]

---

作者: smartpearl    時間: 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

---

作者: kimbal    時間: 2013-7-2 23:47

回復 1# smartpearl

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

1. 
   
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://forum.twbts.com/)