彰化一整天的論壇

 找回密碼
 立即註冊
查看: 166|回復: 2

VBA判斷異常

[複製鏈接]
發表於 2019-3-25 12:01:05 | 顯示全部樓層 |閱讀模式
If Mypath3 & Cells(i, "A") & "\*99.jpg" <> "" Then
        fs.CopyFile Mypath3 & Cells(i, "A") & "\*99.jpg", Mypath5
        fs.DeleteFile Mypath3 & Cells(i, "A") & "\*99.jpg"
        Else
        End If

各位大大好,如上一段VBA,
就是檢視某資料夾有無檔案,
有的話就複製到指定資料夾,
沒有的話就略過。

為什麼它會卡在第二步,
並且一直說找不到檔案?

回復

使用道具 舉報

發表於 2019-3-25 13:33:45 | 顯示全部樓層
檢查檔案是否存在,要用dir函數.
例如
If dir(Mypath3 & Cells(i, "A") & "\*99.jpg") <> "" Then
,路徑要是完整路徑
例如:
c:\excel\99.jpg
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-3-25 14:38:36 | 顯示全部樓層
收到,已經可以跑了,謝謝!
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-18 19:04 , Processed in 0.122455 second(s), 20 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表