does anyone have any experience with creating a splash screen while a vbs loads an excel workbook?
iv searched high and low found many ideas but cant get any to work the way i need them to.
cheers
does anyone have any experience with creating a splash screen while a vbs loads an excel workbook?
iv searched high and low found many ideas but cant get any to work the way i need them to.
cheers
Hello Andrew,
Just to be sure about what you want, you are looking for VBS and not VBA code to create a splash screen?
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
It could be VBS or even HTA actually but i need the splash screen to show, the excel to load, and the userform in the excel to show up, and then the splash screen to end.
Iv found examples in HTA, but they all load the splash, then just wait until that code ends before executing the excel workbook to open.
Or the splash wont go away at its own accord.
I could share with you what i have found so far if that is at all helpful.
I opwn the excel workbook with a VBS so that you never see excel, just the userforms iv created in VBA.
I know its not exactly the right forum but im guessing as the language is similar someone might have experiance in this.
Cheers
Andrew.
i thought i found a easy soloution to this, create a VBS that runs the HTA with the splash screen and then also runs another VBS that launches Excel. execpt i cant get it to move onto the second item to run it only ever runs the first thing.
![]()
Const SHOW_ACTIVE_APP = 1 Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.Run ("S:\STIM\loadtoal-testing3.hta"), SHOW_ACTIVE_APP, True Dim objShell Set objShell = Wscript.CreateObject("WScript.Shell") objShell.Run "S:\STIM\STIM Launcher.vbs" Set objShell = Nothing Wscript.Quit
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks