文件应更新，但会保存副本

Question

抱歉，如果主题的名称不完美，很难描述，因为我已经相对接近结尾了。

我的宏调用另一个文件，复制它，打开副本，粘贴一些数据，然后应该保存并关闭它。不幸的是，文件被复制，副本作，看起来数据被粘贴。然后出现"另存为"对话框，告诉我具有此名称的文件已存在。我输入另一个名称并保存文件。

现在，我有 3 个文件，而不是原始和更新的文件：

原始的，一个没有任何更新的副本，但初始名称，第二个版本带有更新，但我必须在"另存为"对话框中选择另一个名称。

我如何获取它，以便只有旧的和更新的文件，并且更改保存在原始文件中（最好没有任何提示/对话框）

我希望我很好地解释了这个问题，请自由提问，任何帮助不胜感激。

'select old file to copy, insert data from this workbook into the copy, save the copy.
PfadVorlageDatei = Application.GetOpenFilename("Exceldateien,*.xls*", 1, "Vorlage auswählen")
PfadNeueDatei = Application.GetSaveAsFilename(FileFilter:= _
"Exceldateien (*.xlsx), *.xlsx", Title:="Datei speichern", _
InitialFileName:="")
FileCopy PfadVorlageDatei, PfadNeueDatei
Set NeueDatei = Workbooks.Open(Filename:=PfadNeueDatei, ReadOnly:=True)
With ThisWorkbook.Worksheets("Test")
.Range(.Cells(8, 2), .Cells(100, 100)).Copy
End With
With NeueDatei.Worksheets("Test").Range("B8")
    .PasteSpecial xlPasteFormats
    .PasteSpecial xlPasteValues
End With
NeueDatei.Close SaveChanges:=True ' i guess here is the issue

Answer 1

正如@FunThomas所说，只需更改行

Set NeueDatei = Workbooks.Open(Filename:=PfadNeueDatei, ReadOnly:=True)

自

Set NeueDatei = Workbooks.Open(Filename:=PfadNeueDatei, ReadOnly:=False)

工作完美。多谢！