虽然粘贴有粘贴，但Pastespecial不起作用

Question

Activesheet.pastespecial无法正常工作。 Activesheet.paste给我结果，但我也需要格式化。

Sub Show()

Dim Rng As Range
Set Rng = Activeworkbook.Worksheets("Dashboard").Range("A1:F30")
Rng.Select
Rng.Copy
Activeworkbook.Close

ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Dashboard" & NewFile
With ActiveSheet
.Range("A1").Activate
.Range("A1").Select
.Pastespecial Paste:=XlPasteAll **<-------**

End With

End Sub

Answer 1

我认为你需要指定粘贴的位置。

With ActiveSheet
.Range("A1").Pastespecial Paste:=XlPasteAll **<-------**

End With

Answer 2

在粘贴之前不要关闭工作簿，你应该没问题。我自己从未做过这样的事情，但看起来在关闭后你只能粘贴值。我试图粘贴格式并发生错误。