如何在TXT文件中找出最大值？我的VBA代码为何无法运行？

你的代码存在几个关键问题，导致无法正确找出最大值：

• 变量初始化错误：Grootste作为存储最大值的变量，默认初始值是0。如果文本文件里的数字全是负数，这个初始值会比所有数字都大，最终结果会错误地停留在0。
• 比较逻辑颠倒：当前的If A < Grootste Then判断什么都没做，完全搞反了逻辑——应该是当读取的A比当前最大值Grootste大时，更新Grootste的值。
• 结果输出错误：最后你把最后读取的A写入单元格，而不是存储最大值的Grootste，这显然不是你要的结果。
• 未关闭文件：打开文件后没有执行Close #1，可能导致文件被锁定，无法被其他程序访问。

修复后的完整代码：

Private Sub CommandButton1_Click()
    Dim A As Integer
    Dim Grootste As Integer
    Dim isFirst As Boolean ' 标记是否是第一个读取的数字
    
    isFirst = True
    Open "C:\Dorjee\LargestNumber.txt" For Input As #1
    
    Do While Not EOF(1)
        Input #1, A
        If isFirst Then
            ' 第一个数字直接赋值给最大值
            Grootste = A
            isFirst = False
        Else
            ' 后续数字和当前最大值比较，更新最大值
            If A > Grootste Then
                Grootste = A
            End If
        End If
    Loop
    
    Close #1 ' 关闭文件
    Worksheets(1).Cells(1, 1) = Grootste ' 输出最大值
End Sub

代码说明 #

1. 新增isFirst变量，用来处理第一个读取的数字，确保最大值初始化为文件中的第一个值，避免默认0的干扰。
2. 修正比较逻辑，当A大于当前Grootste时更新最大值。
3. 最终输出Grootste而非A，保证是文件中的最大值。
4. 新增Close #1，完成文件操作后释放资源。

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