A. VBA 移動文件夾內所有文件，有重復則強制覆蓋
下面的代碼執行成功：
Subxxx()
Dimwsh
Setwsh=CreateObject("WScript.Shell")
wsh.Run"notepad.exe"
Setwsh=Nothing
EndSub
我認為，你修改wsh.Run的參數，可以調用系統的move命令實現你的功能，估計是這樣，你可能需要調試：
Submovefile(PTH,FILES,PTH2)
Dimwsh
Setwsh=CreateObject("WScript.Shell")
wsh.Run"MOVE/Y"&PTH&""&FILES&""&PTH2&""
Setwsh=Nothing
EndSub
B. 請問如何通過exceel-VBA實現從某文件夾下移動指定文件名的excel文件到另一個文件夾
這個我來給你做吧
如果可以你盡可能給我寫詳細的信息
把你個文件打個包給我法過來我好debug
現在的文件在那個地址，想要拷到哪個地址
搞定了
Sub x()
Dim xpath1 As String, xpath2 As String, xfile As String
xpath1 = "e:\1\" '原來的文件所在文件夾
xpath2 = "e:\1\2\" '要移動到的目的文件夾
For i = 1 To 100 '這個上限你自己看著給，我想100夠大了，不夠的話你自己往上調
If Cells(i, 2) <> "" Then
xfile = xpath1 & Cells(i, 2) & ".xlsx"
If Dir(xfile) <> "" Then
FileCopy xfile, xpath2 & Cells(i, 2) & ".xlsx"
Kill xfile
Else
Cells(i, 3) = xfile & "文件未找到"
End If
End If
Next
End Sub
C. Excel 請問如何用vba復制文件到另一個文件夾下面
用FileCopy語句即可。例如將「D:\123.txt"文件復制到C:\ABC文件夾下：
FileCopy D:\123.txt C:\ABC\123.txt
當然在復制的同時還可以改變文件名
D. 如何用VBA復制整個文件夾包括子目錄
Sub Files(Path As String, afterPath)
'Path：原文件夾路徑；afterPath：目標文件夾路徑
Dim Spath As String
Set fs = CreateObject("Scripting.FileSystemObject")
Spath = Dir(Path, vbDirectory)
Do While Len(Spath)
If Spath <> "." And Spath <> ".." Then
fs.CopyFolder Path, afterPath
Spath = Dir()
End If
Loop
End Sub
————————————————
版權聲明：本文為CSDN博主「前端小菜鳥007」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/weixin_41844140/article/details/103188537
E. VBA 移動指定文件夾下所有文件 有重復的需要覆蓋原文件
同意樓上看法，先判斷是否存在，您說「文件名重復的文件內容也是完全相同的」，所以如果判斷 c:\processed中已有，則不移動：
Sub movefile(PTH, FILES, PTH2)
Dim MyFileObject
Set MyFileObject = CreateObject("Scripting.FileSystemObject")
For Each file In MyFileObject.getfolder(PTH).FILES
If Dir(PTH2 & "\" & Dir(file)) = "" Then 『判斷PTH2中是否已有
MyFileObject.movefile PTH & "\" & Dir(file), PTH2 & "\"
End If
Next
End Sub
F. Excel vba name a as b,到底是重命名文件,還是移動文件呢
不同路徑下是移動並重命名，同一路徑下只能重命名，這一點在幫助文件中，已經說的很清楚。
以下是幫助文件復制過來的：
Name 語句
重新命名一個文件、目錄、或文件夾。
語法
Name oldpathname As newpathname
Name 語句的語法具有以下幾個部分：
部分 描述
oldpathname
必要參數。字元串表達式，指定已存在的文件名和位置，可以包含目錄或文件夾、以及驅動器。
newpathname
必要參數。字元串表達式，指定新的文件名和位置，可以包含目錄或文件夾、以及驅動器。而由
newpathname 所指定的文件名不能存在。
說明
Name 語句重新命名文件並將其移動到一個不同的目錄或文件夾中。如有必要，Name 可跨驅動器移動文件。 但當 newpathname 和
oldpathname 都在相同的驅動器中時，只能重新命名已經存在的目錄或文件夾。 Name 不能創建新文件、目錄或文件夾。
在一個已打開的文件上使用 Name，將會產生錯誤。必須在改變名稱之前，先關閉打開的文件。Name 參數不能包括多字元 (*) 和單字元 (?)
的統配符。
G. word和excel文件在同一文件夾，word引用excel的數據，當文件夾移動，用vba實現相對路徑而不是絕對路徑
VBA是可以查到WORD文檔所在的路徑的，所以你只要在程序中加一個這個功能就可以了
EXCEL文檔放在WORD文檔相同的路徑中，那麼程序就可以根據前邊所說的路徑來更新信息