为什么[j1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr不成功

tender888

Sub tt()
  Dim rng As Range
  Dim cString As String
  Dim rngRow As Integer
  Dim cnn As Object
  Dim rs
'  Dim arr()  Set cnn = CreateObject("ADODB.Connection")
  cnn.Open "dsn=excel files;dbq=" & Application.ActiveWorkbook.FullName
  Set rs = cnn.Execute("SELECT * from [Temp$] order by 1, 2, 4, 6, 7, 8")
  arr = rs.GetRows()
  cnn.Close
  Set cnn = Nothing
  Sheets("Temp").Select
  Sheets("Temp").[j1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr'没有错误提示，为什么回填不成功？
  Erase arr
End Sub

feilanga

3190496160

On Error Resume Next容错语句很多时候是个陷阱，
你使用的是03版office，最大列数是256，但是，你的数组的列数达到了1423列，肯定是没法赋值给单元格区域了，由于你使用了On Error Resume Next容错语句，所以没有提示错误，

3190496160

tender888

3190496160 发表于 2022-12-19 20:55
On Error Resume Next容错语句很多时候是个陷阱，
你使用的是03版office，最大列数是256，但是，你的数组 ...

明白了，非常感谢大师

剑指E

97-2003工作簿（即.xls格式）仅256列，是放不下你的数组的，如果要存放，建议用for循环转置后赋值。

tender888

剑指E 发表于 2022-12-19 21:00
97-2003工作簿（即.xls格式）仅256列，是放不下你的数组的，如果要存放，建议用for循环转置后赋值。

好的，多谢指教！