יצוא קובץ csv מ-outlook

[moishy]

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

Sub LoopRange()

    Dim rCell As Range
    Dim rRng As Range
    Dim intLastColumn As Integer
    Dim rng As Range

    Set rng = ActiveSheet.Cells


    intLastColumn = rng.Find(What:="*", After:=rng.Cells(1), Lookat:=xlPart, _
                             LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
                             SearchDirection:=xlPrevious, MatchCase:=False).Column

    ' ëàï éù ìäâãéø àú äèååç äîëéì àú äâ'éáøéù
    Set rRng = Range("A1:B100")

    For Each rCell In rRng.Cells
        rCell.Offset(columnOffset:=intLastColumn + 1).Value = ConvertFromUTF8(rCell.Value)
    Next rCell

End Sub