- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
回復 2# GBKEE
G大好,
我在測試時,加入了我需要的路徑,但一直無法執行,出現"引數不為選擇性",我無法理解是什麼樣的錯誤,可否指導?
另外我在複製到指定資料夾後"W:\0_自訂表單\Backup\倉儲共用" & "*" & Format(Date, "YYYYMMDD") & "*\" '目的資料夾
想使原檔名加上當月月份,但因為每月月份都會變動,請問要怎麼寫,它才會在原檔後面加上會變動的月份?- Option Explicit
- Dim sf As Object
- Sub 群組copy()
- Set sf = CreateObject("Scripting.FileSystemObject")
- 群組copy_SubFolder = "W:\蘆竹共用\倉儲共用\1_理貨.庫存\1.日班理貨換算表\*5月.xlsx" '**呼叫程式 參數為 指定的資料夾"
- End Sub
- Sub 群組copy_SubFolder(xFolder As String) '**參數為文字
- Dim xSub As Object, E As Variant
- Set xSub = sf.GetFolder(xFolder).SubFolders
- '**SubFolders : 傳回包含所有資料夾的一個 Folders 集合物件
- For Each E In xSub
- 群組copy_xFiles E '**呼叫程式 傳遞參數 Folder 物件
- '**傳遞下一層的資料夾***
- 群組copy_SubFolder E.Path '**呼叫程式 傳遞參數 SubFolders 集合物件
- Next
- End Sub
- Sub 群組copy_xFiles(xF As Variant) '**參數為文字
- Dim E As Variant
- For Each E In xF.Files '**Files 集合物件 : 資料夾內的所有 File 物件的集合物件
- Debug.Print E.SHORTPATH = "W:\0_自訂表單\Backup\倉儲共用" & "*" & Format(Date, "YYYYMMDD") & "*\" '目的資料夾 '** E.SHORTPATH : 檔案的完整路徑名稱
- '**在這裡套入你所需的程式碼
-
- '************
- Next
- End Sub
|
|
發表於 2019-5-26 21:29
| 
發表於 2019-5-23 10:30
| 