@MGM-IVR ואפשר לעשות את זה דרך VBA ?
(אם אני מייבא את ספריית VBA-JSON)
@יב כתב בקישור (URL) להעלאת קבצים:
@MGM-IVR ואפשר לעשות את זה דרך VBA ?
(אם אני מייבא את ספריית VBA-JSON)
מאמין שכן...
אבל אתה מפתח, אז תבדוק איך אתה יכול לממש את זה:
https://f2.freeivr.co.il/post/32031
העלאת קובץ
הפקודה היא - UploadFile
מתודת פניה
יש לפנות ב-HTTP POST בפורמט multipart/form-data. (פרמטרים כמו token path וכדומה ניתן לצרף בגוף הפנייה או במחרוזת השאילתה כמו בבקשת GET)
שימו לב! ניתן לעלות קובץ בודד בכל פנייה.
חשוב לשים לב שיש מגבלה על גודל הקובץ שאפשר לעלות בבקשה אחת (נכון לתאריך 28/09/2022 המגבלה היא 50MB) ולכן אם הקובץ שלכם שוקל יותר מזה, צריך לפצל את הקובץ ולהעלות אותו בחלקים נפרדים וכפי שיובא להלן.
@יב כאן https://f2.freeivr.co.il/topic/167
יש גם העלאת קובץ, אאל״ט זה בקוד vba
@MGM-IVR אני חובבן... ולא מפתח מקצועי....
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
מותר לי להטריח שתביא לי דוגמא של קוד קטן??
@יב כתב בקישור (URL) להעלאת קבצים:
ולשאלתי, האם אני צריך להוריד את הספרייה, או אם כבר מוגדר בVBA של הקובץ, זה יגיע תמיד עם הקובץ?
אני לא יודע לכתוב vba כמעט
@יב כתב בקישור (URL) להעלאת קבצים:
@MGM-IVR אני חובבן... ולא מפתח מקצועי....
כתבת בקטגוריה של מפתחים, אז הנחתי שאתה מפתח.
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
מותר לי להטריח שתביא לי דוגמא של קוד קטן??
אני לא יודע לכתוב vba כמעט,
אבל אני חושב שבקובץ אקסס יש לך דוגמא חיה שעובדת, תנסה להגיע לקוד מקור שם, (לא מסובך), תבודד את הפונקציה של העלאת הקבצים, ותבדוק.
@יב כתב בקישור (URL) להעלאת קבצים:
אז איך באמת מקצוען כמוך יגדיר מהיכן לקחת את הנתונים?
זה לא ההגדרה הנכונה, כשאתה כותב לינק אתה לא לוקח נתונים ממקום כלשהו, אלא להיפך, אתה יוזם בקשה לשרת של ימות עם פרטים מסוימים, כמו טוקן, נתיב וכו' ואחד מהפרטים הללו הוא התוכן של הקובץ שאתה רוצה להעלות (או ביותר פשוט, אתה לא מגדיר מאיפה לקחת, אלא קודם לוקח ואז שולח את הבקשה עם זה 
)
לגופו של עניין, אני לא ממש הבנתי למה אתה רוצה את זה, ללינק שתריץ בדפדפן כמו הדוגמאות של הדברים האחרים? א"כ זה לא אפשרי בדיוק אבל יש את זה https://www.call2all.co.il/ym/api_upload_test.php שמופיע בתיעוד API.
או שאתה רוצה להכניס את זה כחלק מפיתוח מסויים, VBA כמו שאפשר להבין מההודעות הקודמות אם מתאמצים קצת... כי יש לי כל מיני מודולי העלאה לימות בכל מיני שפות וסביבות, רק אני לא ממש הבנתי מה יתאים לך... 
@אביי-ורבא קלעת למטרה...
יש לי טבלה באקסל, וכתבתי קוד 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, ומעלה את זה לאתר?
וכמו כן, כאמור, הואיל שאני לא מקצוען, ייתכן שחסר כאן הרבה...