asked on

VBA Progress bar without a loop

Greetings,

I have been trying unsuccessfully to implement the progress bar found in this Experts Exchange article, however, I am running into difficulty because my program does not use a loop.

I have attached the main XLSM file containing the actual program as well as the TXT file that is to be used when executing the program.

The sequence of events should follow:

-User opens 'EOM-Reports-Template.xlsm" file
-On sheet(START HERE), user presses 'Import SAP data' button and navigates to the location of the TXT file (in this case, the TXT file provided by me.)
-Once the text file is selected, a series of sub procedures execute, all of which are stored in the 'txt_import' module This this the point I would like the progress par to popup and provide the user with a display of the script progress.
-Once these are finished, a Save As prompt asks the user to enter a name for the file and location. The idea here is that the original file remains untouched and is closed after the user saves the file as a new document.

I have tried a few different solutions found when searching Google and Experts Exchange but they all seem to fail when the progress bar pops up. AS the file stands now, the progress bar popup is disable so that you may see the intended order of operations.

Thank you in advance for your help.
EOM-Reports-Template.xlsm
BU50000205112.TXT

ASKER CERTIFIED SOLUTION

Martin Liss

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

peterschussheim

ASKER

Thank you for the solution, it was what I was looking for. I added another parameter to the "SetDialogValues" procedure:

Public Sub SetDialogValues(intValue, _
                           Optional ByVal statusValue As String)
    
    ProgressDialogue.SetStatus statusValue
    ProgressDialogue.SetValue intValue

End Sub

Open in new window

The statusValue variable allows me to update the text string with each integer update.

Thanks again

Martin Liss

You're welcome and I'm glad I was able to help.

Marty - MVP 2009 to 2013