הודעות שפורסמו על ידי eseq

@צבי-ד-צ
לא נמצא שם

מה מספר של הודעה במודל חלוקת מסכת משניות - "זרעים 1 מועד 2..." וכו

M1878 של המשניות, למסכתות מסדר
M1879 אנא הקישו את מספר המסכת שבחרתם ללימוד

@חדר-1 ???

תודה רבה

@דוד_מלך_ישראל
מה ההגדרות?

@שמואל-מאיר
אלא את הקובץ האחרון

איך אני יכול לעשות שלוחה להפעיל אלא את הקובץ האחרון של שלוחה אחרת

@אבו
זה ככה כבר יותר משבוע
בשני המחשבים שלי

@יואל-נחמיה
האם יש אפשרות לעשות שלוחה שתשמיע את הכמות הדקות שנכנסו למערכת החודש (כמו בשלוחה 4 בניהול הטלפוני)?

בקאלום 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

@דוב-בער
אבל זה עולה יחידות עיין כאן

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

@דוב-בער

type=routing_yemot
routing_yemot_number=לרשום מספר מערכת

type=routing_yemot

@malchuts
עיין כאן