הקדמה: כאמור אני לא מקצועי, ואני לא יכול לקחת אחריות, אם יש בעיה בקוד חלקי שלפנינו.
עם זאת אני התחלתי לכתוב קוד ב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
@אביי-ורבא
