0

あるワーク ブックから現在のワーク ブックに値をコピーしようとしていますが、エラーが発生します。

実行時エラー '13' タイプの不一致

私はたくさん試しましたが、解決策が得られません。誰か助けてください

Sub Update()

Dim sPath As String
Dim sValue As String
Dim wbTarget As Workbook
Dim strName As String

strName = ActiveSheet.Name ' Explicitly provide the sheet name
sPath = "C:\Users\nikhil.surendran\Desktop\1"
Set wbTarget = Workbooks.Open("C:\Users\nikhil.surendran\Desktop\3" & ".xlsx")
sValue = wbTarget.Sheets(1).Range("A1:B5").Value

ThisWorkbook.Sheets(1).Range("A1:B5").Value = sValue
ThisWorkbook.Save
End Sub
4

1 に答える 1

3

wbTarget.Sheets(1).Range("A1:B5").Valueの配列を返しますVariant。に格納することはできませんString。またはとして宣言sValueします。VariantVariant()

于 2013-05-10T09:01:23.120 に答える