VBA为CATIA宏添加进度条遇弹窗冻结问题求助

问题描述 #

我正在编写一个执行时长超过1分钟的CATIA宏，希望通过添加进度条优化使用体验。按照教程创建UserForm并通过修改元素宽度实现进度条，但运行时弹窗在For循环启动后冻结，仅点击弹窗关闭按钮程序才会继续执行。尝试将进度条更新代码直接移入循环也无效果。

相关代码：

' Montrer la barre d'avancement
ProgressBar.Show

For i = 1 To catia.Documents.Count ' Parcourir l'ensemble des documents en mémoire
    ' À Chaque tour de boucle For, mettre à jour la barre de progression
    CurrentpctComplete = Int(i / catia.Documents.Count)
    BarProgress (CurrentpctComplete)

    ' Some stuff with CATIA Documents
Next i

进度条更新函数：

Sub BarProgress(pctComplete As Single)
    ProgressBar.Text.Caption = pctComplete & "% Completed"
    ProgressBar.Bar.Width = pctComplete * 2
    ProgressBar.Repaint
    DoEvents
End Sub

问题根源 #

1. 模态窗口阻塞代码：ProgressBar.Show默认以模态（Modal）方式显示窗口，会阻塞后续循环代码执行，直到窗口关闭才会继续运行。
2. 百分比计算错误：Int(i / catia.Documents.Count)的结果永远为0（i从1开始，除以文档总数得到小于1的小数，取整后为0），导致进度条完全没有更新效果。

解决方案 #

1. 以非模态方式显示窗口 #

使用Show vbModeless让窗口不阻塞后续代码执行。

2. 修正百分比计算逻辑 #

将计算结果乘以100，得到0-100的有效百分比数值。

3. 优化参数传递与UI刷新 #

避免调用子过程时的括号问题，同时根据窗口容器宽度动态计算进度条长度，确保适配性。

修改后的完整代码 #

主循环代码 #

' 以非模态方式显示进度条窗口
ProgressBar.Show vbModeless

' 提前获取文档总数，减少重复调用提升效率
Dim docCount As Integer
docCount = catia.Documents.Count

For i = 1 To docCount
    ' 计算当前完成百分比（转为0-100的整数）
    Dim CurrentpctComplete As Integer
    CurrentpctComplete = Int((i / docCount) * 100)
    
    ' 更新进度条（调用时不要加括号，避免参数传递错误）
    BarProgress CurrentpctComplete

    ' 处理CATIA文档的业务代码
    ' Some stuff with CATIA Documents

Next i

' 循环结束后关闭进度条窗口
Unload ProgressBar

进度条更新函数 #

Sub BarProgress(pctComplete As Integer)
    ' 更新进度文本
    ProgressBar.Text.Caption = pctComplete & "% Completed"
    
    ' 根据容器宽度动态计算进度条长度（假设进度条放在名为Frame的容器中）
    If pctComplete > 0 Then
        ProgressBar.Bar.Width = (pctComplete / 100) * ProgressBar.Frame.Width
    Else
        ProgressBar.Bar.Width = 0
    End If
    
    ' 强制刷新窗口UI
    ProgressBar.Repaint
    
    ' 让系统处理UI事件，防止窗口冻结
    DoEvents
End Sub

额外注意事项 #

• 确认UserForm中控件名称与代码一致：文本控件为Text，进度条填充控件为Bar，容器框架为Frame（若使用框架作为进度条背景）。
• 如果处理文档的代码单步耗时较长，建议在业务代码中也适当插入DoEvents，保证UI实时响应。
• 避免在循环中重复调用catia.Documents.Count，提前赋值给变量能显著提升宏的执行效率。

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