如何修改代码？谢谢

dzsrmyh · 发表于 2023-3-19 23:24

本帖最后由 dzsrmyh 于 2023-3-19 23:25 编辑

Sub mydel()
Dim MyFile As Object
On Error Resume Next
Set MyFile = CreateObject("Scripting.FileSystemObject")
MyFile.MoveFile ThisWorkbook.Path & "\*.txt", ThisWorkbook.Path & "\ABC"
Set MyFile = Nothing
MsgBox "OK!"
End Sub

复制代码

以上代码为移动本文件所在文件夹的指定类型为txt文件到本文件所在ABC文件夹

如何修改红色代码（MyFile.MoveFile ThisWorkbook.Path & "\*.txt", ThisWorkbook.Path & "\ABC\"）为移动指定文件夹内的所有文件到指定文件夹（比如移动D盘的123文件夹内的所有文件到C盘的234文件夹内）

杨建营 · 发表于 2023-3-20 05:24

Myfile movefile "D:\123 \*.txt", "C:\ABC\"）

excel玉米 · 发表于 2023-3-20 06:12

本帖最后由 excel玉米于 2023-3-20 06:31 编辑

dzsrmyh · 发表于 2023-3-20 07:41

excel玉米发表于 2023-3-20 06:12

老师您好，麻烦您看看，怎么报错呢？

liulang0808 · 发表于 2023-3-20 07:47

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
https://club.excelhome.net/threa ... tml?_dsign=c5f4544f
资料可以参考

liulang0808 · 发表于 2023-3-20 07:48

dzsrmyh 发表于 2023-3-20 07:41
老师您好，麻烦您看看，怎么报错呢？

with 跟后面一行的代码要放在同一行，用空格隔开

dzsrmyh · 发表于 2023-3-20 08:16

liulang0808 发表于 2023-3-20 07:48
with 跟后面一行的代码要放在同一行，用空格隔开

版主您好，new_path = ThisWorkbook.Path & "\ABC\"这句代码怎么才能修改为指定路径呢（比如new_path = ThisWorkbook.Path & "D:\123\ABC\")

dzsrmyh · 发表于 2023-3-20 08:23

liulang0808 发表于 2023-3-20 07:48
with 跟后面一行的代码要放在同一行，用空格隔开

版主您好，new_path = ThisWorkbook.Path & "\ABC\"这句代码可以修改为指定路径吗（比如new_path = ThisWorkbook.Path & "D:\123\ABC\")？

dzsrmyh · 发表于 2023-3-20 08:24

excel玉米发表于 2023-3-20 06:12

老师您好，new_path = ThisWorkbook.Path & "\ABC\"这句代码可以修改为指定路径吗（比如new_path = ThisWorkbook.Path & "D:\123\ABC\")？

excel玉米 · 发表于 2023-3-20 08:41

new_path = "D:\123\ABC\"

		自动登录	找回密码
密码			免费注册

[求助] 如何修改代码？谢谢

评分

评分