返回列表 上一主題 發帖

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

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

本帖最後由 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 '移動檔案到目標資料夾
複製代碼

本帖最後由 singo1232001 於 2022-1-25 02:02 編輯

由於本人也沒經驗
只能想到兩種方式

   1.用Application.SendKeys "{ENTER}"  可以搭配if判斷前面是否192開頭

2.這就有點難= =
http://forum.twbts.com/viewthread.php?tid=19128  
上述5樓有提供一個方法 可以參考 沒實際嘗試過 或許就不用創vbs

如果是程序強制卡住不讓你跑  可能需要用vbs去操作 等於叫小弟在旁邊輔助
阿偉聽話  傑哥下一秒就要卡了  記得幫忙按enter 大概是這樣....

還有更刺激的操作....
甚至這份vbs檔 都用vba創出來 就必須要用到新增txt+與txt寫入+存檔成vbs
https://stackoverflow.com/questions/22428667/append-to-text-file-vba/22429594
很像上面這樣
然後在要卡之前 執行txt

TOP

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題