excel - 我不知道为什么我得到运行时错误'1004'对象'_Global的方法'工作表'失败

Question

我是 vba 的新手，直到现在还没有接触过它。我应该解决为什么这个程序可以在一台计算机上运行但不能在另一台计算机上运行。我搜索了一些解决方案，但没有一个对我有用。我不明白我是如何在范围线上得到错误的。任何人都可以启发我吗？

这是我的代码的一部分：

Set rs = CreateObject("ADODB.Recordset")
SQLStr = xxx 
rs.Open SQLStr, Cn, adOpenStatic

Dim myArray()

myArray = rs.GetRows()

kolumner = UBound(myArray, 1)
rader = UBound(myArray, 2)

For K = 0 To kolumner ' Using For loop data are displayed
    Range("A1").Offset(0, K).Value = rs.Fields(K).Name
    For R = 0 To rader
       Range("A1").Offset(R + 1, K).Value = myArray(K, R)
    Next
Next

rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing

标签： excelvba