- 帖子
- 10
- 主題
- 6
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office2007
- 閱讀權限
- 10
- 性別
- 女
- 來自
- Taiwan
- 註冊時間
- 2013-1-28
- 最後登錄
- 2013-7-9
|
路徑下尋找檔案並修改名稱
下面是我寫的部分
希望在開啟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 |
|
發表於 2013-7-2 16:59
| 
