Ask Question Forum:
Model Library:2025-02-08:A.I. model is online auto reply
C
O
M
P
U
T
E
R
2
8
Show
#
ASK
RECENT
←
- Underline
- Bold
- Italic
- Indent
- Step
- Bullet
- Quote
- Cut
- Copy
- Paste
- Table
- Spelling
- Find & Replace
- Undo
- Redo
- Link
- Attach
- Clear
- Code
Below area will not be traslated by Google,you can input code or other languages
Hint:If find spelling error, You need to correct it,1 by 1 or ignore it (code area won't be checked).
X-position of the mouse cursor
Y-position of the mouse cursor
Y-position of the mouse cursor
Testcursor
caretPos
Attachment:===
Asked by duncanb7
at 2024-03-27 01:53:42
ModifyPoint:500 Replies:2 POST_ID:828451USER_ID:11059
Topic:
Web Browsers;Apple Software;Visual Basic Programming
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
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:
Author: duncanb7 replied at 2024-04-10 15:47:46
Thanks for your reply,
Accepted Solution
Expert: radugpopa replied at 2024-03-27 03:45:59
500 points GOOD
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
Function OpenURL(URL as String) As Double
OpenURL = Shell(""C:Program FilesMozilla Firefoxfirefox.exe " & URL)
End Sub
