貼り付けられた数式を持つ1つのブックから別のブックへの価値を取る

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 

あなただけの内部値をしたい場合。