返回列表 上一主題 發帖

[發問] 移動資料夾內的檔案

[發問] 移動資料夾內的檔案

本帖最後由 PJChen 於 2022-1-5 19:47 編輯

各位大大好,

請教....
驗收單資料.xlsx 原本是在電腦中的D:
但最近公司改用NAS,當移動檔案時,會出現對話框,
警告檔案可能有害,是否仍要使用它?
這會使程式無法繼續,
但是用剪下>>貼上,則不會有警告出現!
請問以下程式,如何改成 剪下>>貼上的寫法
或者有其他寫法使程式不中斷?
  1. Sub 驗收單歸檔()
  2. Dim fds As Object, PH$, xPH$, FN$, i$, xD As Worksheet
  3. Application.ScreenUpdating = False
  4. Application.DisplayAlerts = False

  5. Set xD = ThisWorkbook.Sheets("VBA")  '程式來源
  6. i = Format(Date, "yyyymmdd")

  7. PH="\\192.......\倉儲\驗收單\"
  8. xPH = "\\192......\倉儲\驗收單\歸檔\"
  9. Set fds = CreateObject("Scripting.filesystemobject")

  10. FN = Dir(PH & "*" & 驗收單資料 & "*" & i & "*" & ".XLS*")  '來源資料夾內的檔案名
  11. '-------------
  12.     If fds.FileExists(xPH & FN) Then Kill xPH & FN '如果檔案已經存在就先刪除檔案
  13.        fds.movefile PH & FN, xPH '移動檔案到目標資料夾
複製代碼

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題