Skip to content

איך להפעיל שאילתה ב-VBA?#

תוכלו להפעיל שאילתות בשיטות API ב-Visual Basic for Applications (VBA).
Visual Basic for Applications — מימוש מופשט של שפת תכנות Visual Basic, מובנה בסט מוצרי Microsoft Office (לרבות ל-Mac OS), וגם בחבילות תוכנה אחרות , כגון AutoCAD, SolidWorks, CorelDRAW, WordPerfect ו-ESRI ArcGIS.

איך להפעיל שאילתת VBA ב-Excel#

כדי להפעיל שאילתה ב-Excel, נדרש להפעיל לשונית מפתח:
1. בלשונית קובץ עברו למדור הגדרות > הגדרת רצועת כלים.
2. במדור הגדרת רצועת כלים ברשימת לשוניות עיקריות הפעילו אתמפתח.

web

אחרי זה פתחו את הלשונית מפתח, בחרו תת-לשונית Visual Basic.

web

בחלון שייפתח של VBA, עברו ללשונית Insert > Module, כדי ליצור סביבת עבודה כדי לכתוב שאילתה.

web

מכניסים דוגמת שאילתת VBA לחלון המודול. לדוגמה, משתמשים בשליחת הודעה בשיטת SendMessage.

Sub SendMessage()
    Dim url As String
    Dim RequestBody As String
    Dim http As Object
    Dim response As String

    ' The apiUrl, idInstance and apiTokenInstance values are available in console, double brackets must be removed
    url = "{{apiUrl}}/waInstance{{idInstance}}/sendMessage/{{apiTokenInstance}}"

    ' chatId is the number to send the message to (@c.us for private chats, @g.us for group chats)
    RequestBody = "{""chatId"":""70123456789@c.us"",""message"":""Hello World""}"

    Set http = CreateObject("MSXML2.XMLHTTP")

    With http
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .Send RequestBody
    End With

    response = http.responseText

    Debug.Print response

    ' Outputting the answer to the desired cell
    Range("A1").Value = response

    Set http = Nothing
End Sub

כדי להפעיל שאילתה:
1. הזינו ערך apiUrl, idInstance ו-apiTokenInstance מ-חשבון אישי, עם הסרת סוגריים מסולסלים כפולים;
2. ציינו את המספר המקבל הודעה בשדה chatId ואת גוף ההודעה בשדה message;
3. לחצו על web להפעלת מאקרו;
4. ההודעה תישלח למספר שצוין, גוף התשובה מכיל מזהה הודעה (idMessage) ויוצג בתא שצוין בגיליון.

web