Excel 导出到复制的文件中

我会先告诉你我想做什么，也许这会让找到解决方案更容易。我想将一个文件（更改后）导出为一个单独使用宏按钮等的文件。问题是我不能删除该文件

我目前的解决方案如下：我使用一个“打开文件”对话框，以便用户告诉我应该使用Excel作为模板。然后VBA应复制此文件（目标再次由“保存文件”对话框给出），然后删除新文件中使用的范围并复制此新文件中的值

因此涉及到3个文件

• 答：当前文件中的数据已更改，我正在执行宏
• B:带有宏的模板文件
• C：应使用B中的宏和 数据来自

到目前为止，我有这个代码打开B并复制（我猜）它。我的主要问题是现在如何访问新创建的文件。我假设我可以以某种方式将其存储为变量。类似于用户刚刚在“保存文件”对话框中选择的

X=路径？
我想/希望以后删除和插入数据应该相当简单

我希望你们能帮助我，并提前感谢我：）

以下是我目前的代码：

Dim StandardPfad As String
Dim ExportBlatt As Worksheet
Dim NeueDatei As Workbook


StandardPfad = "C:\XYZ"

'   ExportBlatt = Worksheets("Blatt1")

Set NeueDatei = Workbooks.Add
ThisWorkbook.Sheets("Blatt1").Copy Before:=NeueDatei.Sheets(1)
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True

' displays the save file dialog
StandardPfad = Application.GetSaveAsFilename(FileFilter:= _
        "Exceldateien (*.xlsx), *.xlsx", Title:="Vorlagen Datei auswählen", _
        InitialFileName:="")

NeueDatei.SaveCopyAs Filename:="C:\Test\CopyBook.xls" 'Hier Speicherort angeben

NeueDatei.Close savechanges:=False

要么我在你的问题中遗漏了什么，要么。。。这还不够标准PFAD吗

如果用户取消选择，则需要更多的错误处理，但这是用户刚刚在“保存文件”对话框中选择的
X=路径

' displays the save file dialog
StandardPfad = Application.GetSaveAsFilename(FileFilter:= _
    "Exceldateien (*.xlsx), *.xlsx", Title:="Vorlagen Datei auswählen", _
    InitialFileName:="")

NeueDatei.SaveCopyAs Filename:=StandardPfad

你好，很抱歉反应太晚。不安静，到目前为止“B”文件丢失，因此我无法选择包含宏的文件。也许这个描述要简单一点：选择一个文件Z，复制整个文件（以便也复制所有宏），删除其中的所有工作表，只删除一个（SheetX）。从当前文件A复制sheetY并将其粘贴到sheetX中。将文件Z的副本另存为文件Z_1。现在我将当前文件中的sheetY保存到一个新文件中，但我需要文件Z中的宏。