閉じたブックからコードgetvalueを書き直すのに助けが必要です

「閉じた」ワークブック内から「現在の」ワークブックにデータをコピーするために、このコードをどこかに借りました.次に、別の方法で変更する必要があります.開いているファイル(コードを含むファイル)からデータをコピーし、値を閉じたブックに貼り付ける必要があります.

fpath As String

Sub GetValuesFromAClosedWorkbook_STO(fpath As String、FName As String、sName、cellRange As String)

Set ws= Worksheets( "ForecastPackage_P&L_STO")

lRow= ws.Cells(Rows.Count、 "A").End(xlUp).Row

ws.Select

With ActiveSheet.Range( "C"&lRow + 1&":KV"&lRow + 488-8)

.FormulaArray= "='"&fpath&"\["&FName&"]"&sName&"'！" &cellRange

.Value= .Value

End With

End Sub