VBA主机访问代码问题：数组填充失败与页面切换逻辑实现需求

我帮你排查了代码里的核心问题，数组填充失败和页面切换逻辑混乱的原因都找到了，下面一步步拆解修复：

一、数组填充失败的原因与修复 #

你的sCardbill数组始终无法正确填充，主要是两个细节没处理好：

• 变量i未初始化且未递增：你声明了i As Long但没给初始值（默认是0），而且每次找到"999"的设施编号后，没有让i自增，导致新的19位数字一直覆盖数组第0位，后面的索引始终是空的。
• 缺少数组越界防护：数组上限是0 To 4（最多存5个元素），如果找到超过5条"999"记录，会直接触发报错。

修复方法：

1. 初始化i = 0，明确数组起始索引；
2. 每次成功填充后执行i = i + 1，准备存储下一个元素；
3. 增加i <= UBound(sCardbill)判断，防止数组越界。

二、页面切换逻辑的完善 #

原来的Do Until循环条件完全写错了，语法和逻辑都不符合需求：

• 你写的Len(sBuffer) = Trim(.GetText(nrow, 2, 23) = "*** END OF ACCOUNTS ***")是把布尔值转成字符串取长度，再和sBuffer长度比较，完全偏离了“检测第23行是否为结束标记”的需求。
• 正确逻辑应该是：循环直到第23行文本等于结束标记，如果不等于，当行号超过23时执行页面切换。

修复后的逻辑：

1. 把Do Until条件改成直接检查第23行的文本；
2. 切换页面后用GoTo跳过后续代码，直接重置行号开始下一轮循环，避免无效操作。

三、完整修正后的代码 #

Public Function SearchBCArr() As String
    Dim nrow As Integer
    Dim sCardbill(0 To 4) As Variant
    Dim i As Long
    Dim item As String
    Dim sBuffer As String
    Dim nResult As Integer
    Dim endMarker As String
    
    ' 初始化数组索引和结束标记变量
    i = 0
    endMarker = "*** END OF ACCOUNTS ***"
    
    With Parent
        nrow = 8
        sBuffer = Trim(.GetText(nrow, 8, 3))
        
        ' 循环终止条件：第23行文本等于结束标记
        Do Until Trim(.GetText(23, 2, Len(endMarker))) = endMarker
            ' 行号超过23时切换页面，重置行号
            If nrow > 23 Then
                .SendFunctionKey (6)
                nrow = 8
                sBuffer = Trim(.GetText(nrow, 8, 3))
                ' 跳过本次循环剩余步骤，直接进入下一轮
                GoTo NextLoopStep
            End If
            
            ' 检测设施编号为999，且数组未越界时填充
            If sBuffer = "999" And i <= UBound(sCardbill) Then
                item = Trim(.GetText(nrow, 8, 19))
                sCardbill(i) = item
                i = i + 1 ' 索引自增
            End If
            
NextLoopStep:
            Inc nrow
            sBuffer = Trim(.GetText(nrow, 8, 3))
        Loop
    End With
    
    ' 可选：将数组内容转为字符串返回，可根据需求调整格式
    SearchBCArr = Join(sCardbill, ", ")
End Function

额外优化说明 #

• 用endMarker变量统一管理结束标记，后续修改更方便；
• 新增的GoTo语句避免了页面切换后执行不必要的判断，逻辑更清晰；
• 数组越界判断防止了超出容量的报错；
• 最后加入了数组转字符串的返回逻辑，你可以根据实际需求调整返回格式。

内容的提问来源于stack exchange，提问作者Pominaus