ליצור קובץ שמע של תקליט רובוט

[פלוס]

@פלוס ולמה א"א להוריד? א"א לפתח?

[חרב פיפיות]

@פלוס
@פישל תוכל לאיית לי את המייל? או להביא לי את התוכנה, או להביא לי קישור? סקרנת אותי. תודה!!

[פלוס]

@חרב-פיפיות זה תוכנה שעולה כסף?

[פלוס]

@פישל אני גאה, שאני זה שעיגל לך את המוניטין ל400!!
מזל טוב!!!
באמת מגיע לך!

[פישל]

@חרב-פיפיות זה תוכנה בתשלום, עוד מעט @אביי יראה את התיוג ויעלה פרטים ליצירת קשר.
עריכה: בעצם אעלה לך את המייל שמופיע בתוכנה.
בבקשה cs@abaye.ml

[א גוטן]

@פישל @אביי האם אני יכול להדביק בתוכנה 100 שורות מאקסל, ויעשה לי מכל שורה קובץ נפרד?

[פישל]

@א-גוטן לא, אתה יכול ליצור 100 מסמכי טקסט והוא יודע ליצור מהם 100 קבצי שמע.

[eseq]

אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע

[פישל]

@eseq כתב בליצור קובץ שמע של תקליט רובוט:

VBA

מענין אותי האופציה הזו.
תוכל להרחיב עליה מעט איך עושים זאת?

[פלוס]

@eseq כתב בליצור קובץ שמע של תקליט רובוט:

אתה יכול לעשות VBA באקסל שישמור כל שורה בקובץ טקסט נפרד ואח"כ לעשות מזה קובץ שמע

איך?

[אביי ורבא]

@פישל @א-גוטן לא צריך את זה, מי שמעוניין אני יכול להוסיף קריאה של הטקסט ישירות מקובץ אקסל (מישהו כבר פנה אלי בפרטי, אני לא יודע אם זה אחד מכם), וכמובן עוד דברים בהתאמה למה שתצטרכו, פרטים ניתן לקבל אצלי באישי.

[פישל]

@אביי-ורבא יתכן שאתה מתכוין אלי...
אני עדיין מחכה בסבלנות, אני רואה שיש לך הרבה עבודה, אבל שווה לחכות יוצאים דברים טובים...

[eseq]

בקאלום A תכניס את שם הקובץ ובקאלום B התוכן של הקובץ

Sub Export_Files()
    Dim sExportFolder, sFN
    Dim rArticleName As Range
    Dim rDisclaimer As Range
    Dim oSh As Worksheet
    Dim oFS As Object
    Dim oTxt As Object

    'sExportFolder = path to the folder you want to export to
    'oSh = The sheet where your data is stored
    sExportFolder = "C:\Disclaimers"
    Set oSh = Sheet1

    Set oFS = CreateObject("Scripting.Filesystemobject")

    For Each rArticleName In oSh.UsedRange.Columns("A").Cells
        Set rDisclaimer = rArticleName.Offset(, 1)

        'Add .txt to the article name as a file name
        sFN = rArticleName.Value & ".txt"
        Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True)
        oTxt.Write rDisclaimer.Value
        oTxt.Close
    Next
End Sub

[אביי ורבא]

@פישל כתב בליצור קובץ שמע של תקליט רובוט:

אני עדיין מחכה בסבלנות, אני רואה שיש לך הרבה עבודה, אבל שווה לחכות יוצאים דברים טובים...

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

[clickphone]

@אביי-ורבא איך יוצרים איתך קשר?

[אביי ורבא]

@clickphone כתב בליצור קובץ שמע של תקליט רובוט:

@אביי-ורבא איך יוצרים איתך קשר?

היי,

החלפנו אתמול את הדומיין, עקב תקלה בדומיין הישן, כתובת המייל המעודכנת שלנו היא cs@abaye.co