0

我有一个宏excel，可以做很多事情。其中之一是运行查询（通过 ADODB.Connection）。查询可以持续很长时间，所以我想：

  • 显示一个模式信息对话框，说“运行查询 3”（例如），没有任何按钮（用户不应该关闭它）。它应该对用户阻塞，但对宏不阻塞。
  • 运行查询。
  • 关闭信息窗口。

在伪代码中：

dim cn as new ADODB.Connection
dim rs as new ADODB.Recordset

dim dia as InfoDialog
set dia = new InfoDialog "running query 3"

cn.Open cn_string
rs.Open query_string, cn, ...

dia.close

我更喜欢无需导入新库（vba 编辑器 > 工具 > 参考）的解决方案。例如，使用类似于 'CreateObject("WScript.Shell")' 的东西。如果不可能，那么库导入也是受欢迎的（最好是标准库，因为不必在用户的计算机上安装东西）。

更新：根据 Kenda 的建议，我制作了一个带有标签“Label1”的 userForm“InfoDialog”，并创建了两个库函数以使其易于使用：

sub show_info(text as string)

    InfoDialog.Label1.Caption = text
    InfoDialog.Show
    DoEvents

end sub

sub close_info()

    InfoDialog.Hide

end sub

所以现在我可以写：

show_info "Connecting to db ..."
cn.Open cn_string

show_info "Running query ..."
rs.Open query_string, cn, ...

close_info
4

2 回答 2

0

只需在您的代码中插入带有标签的 UserForm 即可

Form1.Show
Form1.Label1.Text="running query 3"
...
Form1.Hide

最后可选卸载形式Unload Form1

于 2013-11-13T11:58:13.940 回答
0

我在运行宏时遇到了另一个问题。当我运行大型代码时，Excel 2010 看起来像是冻结了，但宏仍在后台运行。并且用户没有 ProgressBar。所以我在框架中使用带有蓝色背景颜色的标签的一些技巧。（包含：名为 lblDescription 的标签，名为 FrameProgress 的框架，其中名为 LabelProgress 的标签） 在此处输入图像描述

对于非冻结，请执行以下操作：1）在激活表单上添加子

Private Sub UserForm_activate()
    Call ImportDat
End Sub

2) 在 Module1 中启动 Sub

Sub ShowDialog()
    UserForm1.LabelProgress.Width = 0
    UserForm1.Show
End Sub

3）在Module1中用这个代码制作你的Sub（神奇的词是DoEvents）

Sub ImportDat()
Dim Counter As Integer
Dim RowMax As Integer    
Dim PctDone As Single
  Application.ScreenUpdating = False
  Counter = 1
  RowMax = 10000
  For i = 0 To RowMax -1 
    PctDone = i / RowMax
    With UserForm1
      .lblDescription = "Processing " + CStr(i + 1) + " from " + CStr(RowMax)
      .FrameProgress.Caption = Format(PctDone, "0%")
      .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
    End With
    DoEvents
  Next i
  Application.ScreenUpdating = True
  Unload UserForm1
End Sub

希望它可以帮助你。

于 2013-11-21T11:24:33.983 回答