אופיס 365 פתיחת כתובת בדפדפן באמצעות VBA

[נדמ]

מהי הפקודה בVBA שמקבילה לפתיחת היפר קישור ע"י הדפדפן?

 

[Rרחמים]

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public 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

Public Sub MyShell(FileName As String)
    On Error Resume Next
    ShellExecute 0, "open", FileName, vbNullString, vbNullString, SW_SHOWMAXIMIZED
End Sub

Sub TEST()
    ' לפתיחת האשכול הזה
    MyShell "http://www.prog.co.il/showthread.php?t=176912"
End Sub

 

[נדמ]

תודה, ועוד שאלה

תודה על התגובה המהירה.
אם אפשר, רציתי לשאול איך אני יכול לבצע את הפקודה בלי שבפועל יפתח חלון הדפדפן, או לחילופין מיד אחרי שהוא יפתח - הוא יסגר?

 

[Rרחמים]

מה אתה מנסה לעשות? להוריד קובץ מהרשת?

 

[נדמ]

מה אתה מנסה לעשות? להוריד קובץ מהרשת?

אני מנסה לכתוב ו/או לקרוא לתוך מכשיר שמחובר ברשת, ואחד מהאופציות לתקשר איתו זה באמצעות מה שהם קוראים HTTP API, שפירשו לפי מה שהבנתי (וגם ניסיתי) זה כתיבת הפקודה בשורת הדפדפן.
יתכן ואולי יש אופציה אחרת לעשות את זה שלא דרך הדפדפן, אך אני לא יודע עליה.

 

[Rרחמים]

נסה את זה:

Sub CreateIE()

    Set ie = CreateObject("InternetExplorer.Application")

    ie.Navigate2 "הכתובת שאליה אתה רוצה לגשת"
    ' מגדיר את הדפדפן בלתי נראה
    ie.Visible = 0

    ' המתנה לטעינת הדף
    Do While ie.Busy
        WScript.Sleep 1
    Loop

    ' פעולות נוספות כאן
    ' ....

    ' בסוף משחררים את האובייקט
    ie.Quit
    Set ie = Nothing

End Sub

 

[נדמ]

תודה.

רק את הפקודה WScript.Sleep 1
הוא לא מזהה. החלפתי אותה בלולאה פשוטה.

 

[נדמ]

כרום

אפשר להפעיל את הפונקציה דרך הכרום?

 

[נפוליאון]

Public Function GetData(param1 As String) As String
On Error GoTo ExitPart
    Dim http
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "http://www.youraddress.com?param1=" & param1 &  "&rnd=" & CStr(Rnd())

    http.Send
    Do Until http.readyState = 4
        DoEvents
    Loop
    
    If http.Status = 200 Then
        GetData = http.responseText
    Else
        
    End If
ExitPart:
    
    Set http = Nothing
End Function

הקוד הזה משתמש ברכיבים הפנימיים של מערכת ההפעלה ולא בדפדפן
אני משתמש בו בתוכנה עם הרבה משתמשים והוא עובד ללא דופי

 

[נדמ]

הפונצקיה עבדה מצוין כמה שנים. עכשיו השתנה המכשיר והוא מבקש קוד וסיסמה. (גם בגלישה רגילה בדפדפן נפתח תיבת דו שיח להקיש שם משתמש וסיסמה) השאלה איך אני מעביר לו את שם המשתמש והסיסמה כדי שימשיך הלאה?