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

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

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

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

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

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

举个例子，打开在Sheet1表中的A1中指定的路径下和A2中指定的已有文件：

Sub 打开指定文件()

Dim OpenFName$, FileSource$

OpenFName = Sheets("Sheet1")Range("A2") '读取在Sheet1表中的A2中的文件名，样式如 AXLS

FileSource = Sheets("Sheet1")Range("A1") '读取在Sheet1表中的A1中的路径，样式如 D:\

WorkbooksOpen Filename:=FileSource + OpenFName '打开在Sheet1表中的A1中指定的路径下和A2中指定的文件，样式如 在：D:\AXLS

End Sub

打开文件如下：

WorkbooksOpen ("C:\对账单\对帐单xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径，

你可以用：a = ThisWorkbookPath

a = ThisWorkbookPath

WorkbooksOpen ("" & a & "&" \ "&对帐单xlsx")

来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码：

WorkbooksOpen ("" & a & "&" \ A\"&bxlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了50版之后，Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

可以改成：

theSh

=

ApplicationGetOpenFilename("Txt

Files

(txt),

txt",

,

,

,

False)'修改部分，TRUE为多选，FALSE为单选

If

VarType(theSh)

=

vbBoolean

Then

MsgBox

"取消"

Else

MsgBox

"有

"

&

UBound(theSh)

&

"

个文本将要被导入~"

End

If

Range("C3")Value

=

theSh’修改部分

End

Sub

Sub s()

    Dim pth$

    pth = ThisWorkbookPath

    MsgBox "本文件的路径为：" & pth

End Sub

你要获取的相对路径，总有一个相对的东西，下面的代码假设相对本文件路径来写的：

p1="C:AAA\BBB\CCC1\DDD\EEE\FFFxlsx"

p2=ThisWorkBookPath

p3=""

if left(p1,len(p2))=p1 then

    p3=right(p1,len(p1)-len(p2))

    '如果路径p1的前面部分与p2完全一致，相对路径为后面部分

else

    p3=p1

    '否则，相对路径就是绝对路径

end if

msgbox "相对路径：" & p3

以上就是关于如何运用VBA将指定路径下的某一文件复制到另一指定路径下全部的内容，包括:如何运用VBA将指定路径下的某一文件复制到另一指定路径下、excel在vba中如何用单元格指定路径，如：sheet1中在A1输入路径或者路径文件，vba中如何读取该路径、EXCEL如何使用VBA打开相对路径下的文件或文件夹等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！