קישור (URL) להעלאת קבצים

[יב]

@אביי-ורבא קלעת למטרה...
יש לי טבלה באקסל, וכתבתי קוד vba ששומרת את הטבלה בתור רשימות uft-8 - מוכן ומזומן להעלות לאתר.
עכשיו אני רוצה להוסיף בקוד, שבמידה והוא מחובר לאינטרנט, הוא יעלה ישירות את הקובץ לאתר.
כך, שאני צריך קוד ב vba.

[יב]

@MGM-IVR כתב בקישור (URL) להעלאת קבצים:

כתבת בקטגוריה של מפתחים, אז הנחתי שאתה מפתח.

כי רציתי את העזרה של המפתחים...

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

ניסיתי, קצת לבדוק, והבנתי שכל קוד משולב עם כמה פונקציות (שכל פונקציה יש בו כמה תנאים וכו'), כך, שהתייאשתי...

[אביי ורבא]

@יב רק שאבין, מה בדיוק הנתונים שאתה רוצה להעלות? זה קובץ שמע או טקסט? כי לטקסט זה הרבה יותר פשוט...

[יב]

@אביי-ורבא טקסט.
קובץ ini

[אביי ורבא]

@יב עדיף לך להשתמש בכלל בזה
https://f2.freeivr.co.il/post/32056

בזה אפשר באמת להשתמש בGET אבל זה יהיהה מוגבל לבקשות באורך של עד 2048 תווים, ליותר מזה (וסתם ככה מומלץ) להשתמש בפוסט, אני אשתדל עוד מעט להביא דוגמה בVBA(אם יהיה לי זמן..)

[יב]

@אביי-ורבא מה אני כותב ב contents?

[אביי ורבא]

@יב כתב בקישור (URL) להעלאת קבצים:

@אביי-ורבא מה אני כותב ב contents?

את הטקסט עצמו

סבתא בישלה דייסה וכו'

[יב]

@אביי-ורבא כמובן...
אבל איך אני מפסיק ביניהם לשורות?

[דוד_מלך_ישראל]

@יב כשאתה שולח באופן הזה (ורק באופן הזה) לירידת שורה תכתוב

%0A

[יב]

הקדמה: כאמור אני לא מקצועי, ואני לא יכול לקחת אחריות, אם יש בעיה בקוד חלקי שלפנינו.
עם זאת אני התחלתי לכתוב קוד בvba, אבל אבקש את עזרתכם להשלמת הקוד.
רקע; אני כתבתי את הקוד, כדי לייבא קובץ IdListMessage.ini, ששם אמור להיות: טלפון, ומה להשמיע, טקסט או קובץ, ולכן, עשיתי נוסחה בעמודה AA, שלוקח את הפרטים משאר עמודות, עם תוספת t. או f. כפי המתבקש...
על כל פנים, אני צריך לייבא רק את עמודה AA, ולהגדיר בקוד, שכל שורה באקסל, חייבת להיות גם שורה חדשה בקובץ.

Sub UploadTextToWebsite()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim Text As String
    Dim url As String
    
    'מגדיר את את שם הגיליון
    Set ws = ThisWorkbook.Sheets("שם הגיליון")
    
    'תמצא את השורה אחרונה שבעמודה
    'AA
    lastRow = ws.Cells(ws.Rows.Count, "AA").End(xlUp).row
    
    'תעבור בלולאה בכל שורה מעמודה
     'AA
     'ושרשרו את הטקסט, במשתנה
     'text
    For i = 1 To lastRow
        Text = Text & ws.Range("AA" & i).Value & vbCrLf  &"%0A"
    Next i
    
    'תבנה את כתובת האתר
    url = "https://www.call2all.co.il/ym/api/UploadTextFile? 
    token=077*******:1234&what=ivr2:/99/9/IdListMessage.ini&contents= & Text
End Sub

אז מה הבעיה בקוד הזה?
על פניו הוא לוקח את כל השורות שבעמודה AA, ומוסיף את הסימון כדי לרדת שורה, ומכניס את הכל לכתובת האתר.
אבל...
איך אני יודע אם הוא לא משבש את האותיות העבריות לסימנים נוספים, (וכמו כן, אולי צריך להגדיר שיהיה מקודד ל uft-8).
והעיקר חסר מן הספר: איך אני לוקח את הקוד הזה שהוא קיבל במשתנה url, ומעלה את זה לאתר?
וכמו כן, כאמור, הואיל שאני לא מקצוען, ייתכן שחסר כאן הרבה...

ולכן את אחיי אנכי מבקש, אנא את עזרתכם!!! - תודה!!!

@דוד_מלך_ישראל
@MGM-IVR
@אביי-ורבא