vba11-4.txt

本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书

Public Sub ShowProgressBar()
  ' Show the progress bar
  Dim pStatusBar As IStatusBar
  Set pStatusBar = Application.StatusBar
  pStatusBar.ShowProgressBar "Computing", 0, _
  10000, 1, True
  ' Step through the progress bar
  Dim lngIndex As Long
  For lngIndex = 0 To 10000
    ' Do your computation here
    pStatusBar.StepProgressBar
  Next lngIndex
  MsgBox "Progress bar reached 100%"
  ' Remove progress bar from the status bar
  pStatusBar.HideProgressBar
End Sub