VBA代码实现 将指定路径下的文本文件当中的特定字符如箭头 →全部替换

2025-04-05 17:48:07
推荐回答(1个)
回答1:

代码如下: Sub 将指定路径下的某一文件复制到另一指定路径下1() Dim souf$, desf$ souf = "D:\test.xlsx" desf = "E:\vba\test.xlsx" FileCopy souf, desf End Sub Sub 将指定路径下的某一文件复制到另一指定路径下2() Dim fso As Object, souf$, des$ Set fso = CreateObject("Scripting.FilesyStemObject") souf = "D:\test.xlsx" des = "E:\vba\" fso.CopyFile souf, des Set fso = Nothing End Sub