[b]Invisible Application[/b] 1

[thelocaluk]

Hi guys, with your help I've created a nice form in XL using VB code. I'm looking at giving it that professional look so I can distribute it around the company I work for. I would like it to look like a stand alone program if this is possible. At the moment I'm using the following code in the excel workbook:

Private Sub Workbook_Open()
Application.Visible = False
frmSplash.Show
End Sub

The problem with this is the application opens and shows for a brief second before hiding which doesn't look to good. Is there anyway to improve on this?
Thanks

 

[arthurbr]

Wouldn't you be better off in a VB forum
Cheers

André

 

[combo]

AFAIK, it is not possible directly, however you can use automation. In that case an instance of excel starts hidden. The most straightforward is scripting. Just create a text file with:

 Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.WorkBooks.Open "FullPath\FileName.xls"

and change file extension to ‘vbs’. Excel starts after double-clicking the script file, the drawback of this method is hardcoded excel file path.

combo

 

[thelocaluk]

Thanks combo....Does the job, it's not the best solution but like you say this is as good as it gets.