- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2019-5-31 05:25
| 只看該作者
本帖最後由 GBKEE 於 2019-5-31 05:26 編輯
回復 11# PJChen
試試看- Option Explicit
- Sub EX()
- Dim SF As Object, Source_Folder As String, Target_Folder As String
- Dim Source_File As String, E As Variant, E1 As Variant
- Source_Folder = "W:\蘆竹共用\倉儲共用"
- Target_Folder = "D:\0_自訂表單\Backup\倉儲共用 " & Format(Date, "YYYYMMDD")
- If Dir(Target_Folder, vbDirectory) <> "" Then '傳回這資料夾目錄
- Set SF = CreateObject("Scripting.FileSystemObject")
- For Each E In SF.GetFolder(Source_Folder)
- For Each E1 In SF.GetFolder(Target_Folder)
- Source_File = E.Path & "\*.xlsx"
- If E.Path Like "*班理貨換算表" And E1.Path Like "*班理貨換算表" Then
- Source_File = E1.Path & "\*" & Format(Date, "M") & "月*.xlsx"
- End If
- SF.CopyFile Source_File, E1.Path
- Next
- Next
- Else
- MsgBox "找步到 " & vbLf & Target_Folder
- End If
- End Sub
|
|
發表於 2019-5-30 19:18
| 
