- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
本帖最後由 PJChen 於 2022-1-5 19:47 編輯
各位大大好,
請教....
驗收單資料.xlsx 原本是在電腦中的D:
但最近公司改用NAS,當移動檔案時,會出現對話框,
警告檔案可能有害,是否仍要使用它?
這會使程式無法繼續,
但是用剪下>>貼上,則不會有警告出現！
請問以下程式,如何改成 剪下>>貼上的寫法
或者有其他寫法使程式不中斷？- Sub 驗收單歸檔()
- Dim fds As Object, PH$, xPH$, FN$, i$, xD As Worksheet
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Set xD = ThisWorkbook.Sheets("VBA") '程式來源
- i = Format(Date, "yyyymmdd")
- PH="\\192.......\倉儲\驗收單\"
- xPH = "\\192......\倉儲\驗收單\歸檔\"
- Set fds = CreateObject("Scripting.filesystemobject")
- FN = Dir(PH & "*" & 驗收單資料 & "*" & i & "*" & ".XLS*") '來源資料夾內的檔案名
- '-------------
- If fds.FileExists(xPH & FN) Then Kill xPH & FN '如果檔案已經存在就先刪除檔案
- fds.movefile PH & FN, xPH '移動檔案到目標資料夾
|
|
發表於 2022-1-5 19:46
| 
