붙여 넣기 수식을 사용하여 한 통합 문서에서 다른 VBA 가져 오기 값

Question

특정 통합 문서의 값을 다른 통합 문서로 복사하려고합니다. 나는 아래의 코드를 가지고 있지만 값만이 아닌 수식이있는 셀만 반환합니다. pastespecial 등등에 대해 어딘가에 줄을 추가해야하지만 어디서 확실하지 않은지 알고 있습니다. 어떤 도움이 필요합니까?

Sub PullClosedData() 
On Error GoTo Errorcatch 
    Dim filePath As String 
Dim SourceWb As Workbook 

Dim TargetWb As Workbook 

Set TargetWb = ActiveWorkbook 


Dim emptyRow As Long 

emptyRow = Range("A" & Rows.Count).End(xlUp).Offset(1) 


filePath = TargetWb.Sheets("results").Range("A1").Value 
Set SourceWb = Workbooks.Open(filePath) 



SourceWb.Sheets("8").Range("D36:G36").Copy 
Destination:=TargetWb.Sheets("Staff data").Range("a" & 
Rows.Count).End(xlUp).Offset(1) 



SourceWb.Close SaveChanges:=False 

    MsgBox "Staff data sheet updated" 
    Exit Sub 
Errorcatch: MsgBox Err.Description 
End Sub 

Answer 1

값만 원하십니까?

은 아래의 라인을 변경해보십시오 :

SourceWb.Sheets("8").Range("D36:G36").Copy Destination:=TargetWb.Sheets("Staff data").Range("a" & Rows.Count).End(xlUp).Offset(1) 

에 : 당신은 또한 지정할 수 있습니다

SourceWb.Sheets("8").Range("D36:G36").Copy 
TargetWb.Sheets("Staff data").Range("a" & Rows.Count).End(xlUp).Offset(1).pastespecial xlPasteValues 'Or xlPasteValuesAndNumberFormats might suit you better.' 

:

destinationrange.value2 
= sourcerange.value2 

만 내부 값을합니다.