实时错误1004 应用程序或对象定义错误

Question

 Set myRange = Worksheets(P_TBN).Range("a" & START_RECORD + 1)
 myRange.Resize(UBound(arrData, 2) + 1, UBound(arrData, 1) + 1).Value = arrData2
此句出现1004错误，里面有个数据量比较大，字符串长度较长，只要把字符串的长度变小，就不会出错，请问各位高手，是不是字符串长，导致溢出？如何解决？

Answer 1

myRange.Resize(UBound(arrData, 2) + 1, UBound(arrData, 1) + 1).Value = arrData2
写反了，arrdata2=?

Answer 2

可能是你的arrData与arrData2的上界相差过大
不妨将这个调整后的区域扩大点

Answer 3

没写反，arrdata2中的数据是数据库中的数据，然后复制到EXCEL这个区间中的，主要是arrdata2中有一条数据字符串长度比较长，有2000多个字符串，如果长度变小点，程序可以正常执行成功。