Question

我首先会告诉您我想做什么，也许这会使寻找解决方案变得容易。我想将文件（更改后）导出到单独使用宏按钮等的文件中。问题是我无法删除该文件。

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

所以有3个涉及的文件。

A：具有更改的数据和宏的当前文件。
B：带有宏的模板文件。
C：应使用B和B中的宏创建的新文件来自A

到目前为止，我有打开B并复制（我猜）它的代码。我的主要问题是如何立即访问新创建的文件。我想我可以以某种方式将其存储为变量。像X = Path the user just selected in the save file dialog一样？我猜/希望以后删除和插入数据应该很简单。

希望大家能帮助我，并在此先多谢：）

到目前为止，这是我的代码：

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

Answer 1

我在您的问题中遗漏了什么，还是... StandardPfad还不够吗？

如果用户取消选择，则需要更多的错误处理，但这就是您的X = Path the user just selected in the save file dialog

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

NeueDatei.SaveCopyAs Filename:=StandardPfad

导出到复制的文件

1 个答案: