关于excel vba 使用CopyFromRecordset出现格式问题的解决方法

出现问题的写法：

With ActiveSheet
            .Name = k(i)
            For num = 1 To UBound(myArray)
                .Cells(1, num) = myArray(num, 1)
            Next num
            .range("A2").CopyFromRecordset conn.Execute(Sql)
           
        End With

修改为：

With ActiveSheet
            .Name = k(i)
            For num = 1 To UBound(myArray)
                .Cells(1, num) = myArray(num, 1)
            Next num
            .[A2].CopyFromRecordset conn.Execute(Sql)
           
        End With

问题解决。不知道什么原因，有可能函数本身的bug