붙여 넣기가 수행되지만 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

붙여 넣기 전에 통합 문서를 닫지 마십시오. 괜찮을 것입니다. 나는 그런 짓을 한 번도하지 않았지만 닫은 후에는 값을 붙여 넣을 수만있는 것처럼 보입니다. 서식을 붙여 넣으려고했는데 오류가 발생했습니다.