Thread: Shell
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Andrew Taylor Andrew Taylor is offline
external usenet poster
 
Posts: 225
Default Shell

If you mean you want to open the Bloomberg website, try this:
(lines split to avpoid wrapping)

Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub OpenBloomberg()
Dim RetVal As Long
RetVal = ShellExecute(0&, "OPEN", _
"http://www.bloomberg.com", "", 0&, 1)
End Sub




Viktor Ygdorff wrote:
VBA has a Shell command that can open certain programs like this:

RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Run Calculator

Is it possible to open Bloomberg using this command?