如何运用VBA将指定路径下的某一文件复制到另一指定路径下

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码窗口里面输入以下VBA代码。

4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。

方法/步骤

首先，打开或者新建一个Excel表格，如下图所示。

请点击输入图片描述

按下Alt+F11打开VBA编辑界面，并点击左侧任意工作表，出现右侧代码编辑区，如下图所示。

请点击输入图片描述

VBA中利用Filecopy函数实现文件的复制，被复制的文件路径作为函数第一个参数，而复制到的文件路径作为第二个参数，输入代码：

Sub 鱼木混猪()

FileCopy "D:\鱼木混猪.txt", "D:\ymhz.txt"

End Sub

如下图所示。

请点击输入图片描述

点击代码中任意位置，然后点击“运行子程序”按钮，如下图所示。

请点击输入图片描述

这样，到文件复制的文件夹中就可以看到，利用VBA将指定的文件复制了一份，如下图所示。

请点击输入图片描述

Sub 导入文件()

Dim Activefile, Path, Openfile, sheet As String

Activefile = ActiveWorkbook.Name

With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

.Show

If (.SelectedItems.Count = 0) Then Exit Sub

Path = .SelectedItems(1)

End With

Workbooks.Open Filename:=Path

Openfile = ActiveWorkbook.Name

ActiveWindow.Close

Windows(Activefile).Activate

Range("A1") = Openfile

End Sub

这个代码是我目前在用的一套VBA中的，拿去用吧！

---