Excel的VBA运行时错误“13”类型不匹配

Question

我试图从一个工作簿到当前工作簿中的值复制，但我得到的错误：

Run-time error '13' Type mismatch

我尝试了很多，但没有得到解决任何一个请帮我

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 

Answer 1

wbTarget.Sheets(1).Range("A1:B5").Value返回Variant秒的阵列。您不能将其存储在String中。声明sValue为Variant或Variant()。