新聞財經娛樂♬資訊 News Economy

Usually, I am using IE broswer for my internet work and using the folllowg VBA code
to access any website in IE. Now I would like to siwtch to Apple Safafi browser since its speed
THe question how to convert the following VBA code such as dim myie as SHDocVw.InternetExplorer,
 IE.navigate ,etc for  Safafi and Firefox broswer.

Please kindly provide a simple hint code for that

DUncan

Sub login()dim myie as SHDocVw.InternetExplorerSet myie = CreateObject("InternetExplorer.Application")Set myie = New InternetExplorerhdlg = 0With myie .Top = 10.Left = 1900.Height = 800.width = 1050 .Visible = True.navigate "www.yahoo.com"End withEnd Sub                                  

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:

The problem is that Firefox or Safari is not a Microsoft application, so you cannot instance them as you do with Internet Explorer. However the below code might help you achieve what you need:

Function OpenURL(URL as String) As Double
OpenURL = Shell(""C:Program FilesMozilla Firefoxfirefox.exe " & URL)
End Sub