我不知道为什么我得到运行时错误'1004'对象'_Global的方法'Worksheets'

Question

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

这是我的代码的一部分：

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