移動文件到指定資料夾

excel vba

AnakinTai 2020-11-13 20:24:49 ‧ 2182 瀏覽

分享至

各位大大我如何可以利用VBA將文件移動指定資料夾?
A欄是我想移動的文件
B欄是目標資料夾(資料夾是不同的)

如果資料夾內有相的的文件就不用移動

以下是爬文找到的代碼是用來複製的但出現『路徑或存取錯誤』

Sub CopyFileto()
    Dim rng AS Range, oldFilename as String, newFilename as String

    For Each rng in Range("A2:A5001")
        oldFilename = rng.value  ' 檔案的原始路徑與檔名
        newFilename = rng.offset(,1).value  ' 檔案的新路徑與檔名
        FileCopy oldFilename, newFilename
    Next rng
end sub

求高手幫幫忙,有很多文件要歸案，一個一個人手放應該會放到脫臼

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2020-11-13 21:12:32

如果資料夾內有相的的文件就不用移動

這是甚麼意思？

另外，

你是要搬移還是複製？你問題說是搬移(移動)，但是範例卻是複製。
檔案名稱不變嗎？

如果你想搬移且檔案名稱不變，下列程式可能可以幫你(未測試)。

Sub moveFiles()
    Dim rng AS Range, oldFilename as String, newFilename as String
    Dim onlyName As String
    
    For Each rng in Range("A2:A5001")
        oldFilename = rng.value  ' 檔案的原始路徑與檔名
        onlyName = Dir(oldFilename)
        If onlyName <> "" Then
            newFilename = rng.offset(,1).value & "\" & onlyName ' 檔案的新路徑與檔名
            If Dir(newFilename) = "" Then Name oldFilename As newFilename
        End If
    Next rng
end sub