syscmd(acsyscmdinitmeter) in Excel

[zollo9999]

Hi

In Access, I've used the SysCmd object to create a Progress meter in the status line.

Is it possible to do the same thing in Excel?

The code below is not recognized in XL.

'varReturn = syscmd(acsyscmdinitmeter, "Progress", intRowEnd - intRowStart)

In my XL code, I added a reference to the access library, but it didn't help.

(Note I also posted this in the MS Office Forum)

thanks
pb


Zollo9999 A+
(Very Part-Time Programmer)

 

[VBslammer]

I've simulated a progress bar in XL using dots, which isn't too different from Access' blue squares.

Note: timer used for demonstration only.

Sub ShowProgress()
  Dim lngStart As Long
  Dim strDots As String
  
  lngStart = Timer
  
  While Timer - lngStart < 20
    Application.Wait (Now + TimeValue(&quot;00:00:01&quot;))
    strDots = strDots & Chr(149) & Chr(149)
    Application.StatusBar = &quot;Processing &quot; & strDots
    DoEvents
  Wend
  
  Application.StatusBar = False
  
End Sub

VBSlammer

Unemployed in Houston, Texas

 

[zollo9999]

Thanks
That looks like a simple solution.
I'll igve it a go next week.

Zollo9999 A+
(Very Part-Time Programmer)