对象不接受方法

发布于 2024-10-23 13:50:45 字数 407 浏览 4 评论 0原文

我的 VBA 应用程序遇到问题。
我需要定义一个记录集并将特定字段的结果逐行输入到 Excel 工作表中。问题是，当我这样做时，

With appXLS.Worksheets("Resultado Geral")
    For intPosition = LBound(Arr) To (UBound(Arr) - 1)
        teste = Arr(intPosition, 0) & "_Status"
        .Cells(i, 6) = MyRecBase.Fields(teste)
    Next
End With

它会显示问题（错误“438”）并标记“.Cells”行。但最大的问题是我之前几行使用了相同的方法。

请帮我。我将不胜感激。

提前致谢

原文

I'm experiencing a problem with my VBA application.
I need to define a Recordset and enter the result of a certain field, line by line, into an Excel Worksheet.
The problem is, when I do this

With appXLS.Worksheets("Resultado Geral")
    For intPosition = LBound(Arr) To (UBound(Arr) - 1)
        teste = Arr(intPosition, 0) & "_Status"
        .Cells(i, 6) = MyRecBase.Fields(teste)
    Next
End With

It displays the problem (Error '438') and marks the ".Cells" line. But the biggest problem is that I use the same method a few lines before.

Please, help me. I would appreciate.

Thanks in advance

分享到QQ

分享到微博