Vba 使用宏将选定的Excel文件及其内容复制到其他位置

我正在处理宏，我想编写一个VBA代码，从特定目录中选择一个文件，并使用新名称创建该文件到特定位置的精确副本

这是我浏览和选择文件的代码，我想创建一个Excel文件，该文件具有相同的内容（包括这些工作表中的工作表和数据），并保存到一个新目录中

Sub BrowseForJ3File()
    j3ExcelSheet = Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", Title:="Open Excel File")
    If fileToOpen <> False Then
        MsgBox "Open " & fileToOpen
    End If
    ActiveSheet.Range("H9") = j3ExcelSheet
 End Sub

子浏览J3file（）
j3ExcelSheet=Application.GetOpenFilename（文件过滤器：=“Excel工作簿（*.xls*），*.xls*”，标题：=“打开Excel文件”）
如果fileToOpen为False，则
MsgBox“打开”&文件打开
如果结束
ActiveSheet.Range（“H9”）=j3ExcelSheet
端接头

---

我想创建j3ExcelSheet的精确副本，但要使用新名称并将j3ExcelSheet中的相同内容复制到特定位置。

使用

FileCopy

FileCopy j3ExcelSheet, "C:\Users\IamWhoIam\GloriousSubfolder\Test.xls"

---

使用

FileCopy

FileCopy j3ExcelSheet, "C:\Users\IamWhoIam\GloriousSubfolder\Test.xls"

---

下面这样做如何，这将打开文件并另存为您想要的任何文件名，其他答案将复制文件，此选项的区别在于，您还可以操作工作簿中的数据（如果您想在保存之前进行操作）：

---

下面这样做如何，这将打开文件并另存为您想要的任何文件名，其他答案将复制文件，此选项的区别在于，您还可以操作工作簿中的数据（如果您想在保存之前进行操作）：

---

您在变量

j3ExcelSheet

中选择文件，并在

fileToOpen

中检查选择。您在变量

j3ExcelSheet

中选择文件，并在

fileToOpen