אופיס 365 יצוא קובץ csv מ-outlook

[אבי 24]

אודה למי שידריך אותי כיצד ניתן לייצא אנשי קשר מ-outlook לקובץ CSV ע"מ לייבאו ל-gmail.

 

[moishy]

2003: http://office.microsoft.com/he-il/o...ook-contacts-to-google-gmail-HA001148902.aspx
2007: http://office.microsoft.com/he-il/o...een-outlook-and-google-gmail-HA010222048.aspx
2013: http://office.microsoft.com/he-il/outlook-help/export-contacts-HA102919759.aspx

 

[אבי 24]

תודה רבה מוישי, אכן הצלחתי להפיק קובץ כזה, אך משום מה הוא יצא מעוות (מה שקוראים ג'יבריש).

יש לך מושג למה?

 

[FullTime]

תודה רבה מוישי, אכן הצלחתי להפיק קובץ כזה, אך משום מה הוא יצא מעוות (מה שקוראים ג'יבריש).

יש לך מושג למה?

יש בהגדרות שם פסיקים וטאבים צריך לנסות אותם גם לי היה סיפור כזה. ובסוף הצלחתי.

 

[moishy]

אינני יודע מפני מה הוא השתבש אבל יש לזה פתרון. הנה פונקציה להמרת ג'יבריש לעברית:

Function ConvertFromUTF8(sIn)

    Dim oIn As Object

    Set oIn = CreateObject("ADODB.Stream")

    With oIn
        .Open
        .Charset = "X-ANSI"
        .WriteText sIn
        .Position = 0
        .Charset = "WINDOWS-1255"
        ConvertFromUTF8 = .ReadText
        .Close
    End With

End Function

 

[אבי 24]

יש בהגדרות שם פסיקים וטאבים צריך לנסות אותם גם לי היה סיפור כזה. ובסוף הצלחתי.

בפסיקים- יצא ג'יבריש.
בטאבים- יצא קובץ TXT ולא CVS כנדרש ל-GMAIL.

 

[אבי 24]

אינני יודע מפני מה הוא השתבש אבל יש לזה פתרון. הנה פונקציה להמרת ג'יבריש לעברית:

Function ConvertFromUTF8(sIn)

    Dim oIn As Object

    Set oIn = CreateObject("ADODB.Stream")

    With oIn
        .Open
        .Charset = "X-ANSI"
        .WriteText sIn
        .Position = 0
        .Charset = "WINDOWS-1255"
        ConvertFromUTF8 = .ReadText
        .Close
    End With

End Function

וואו!!! נראה טוב, נקווה שיעבוד.

היכן עלי להזין את הפונקציה?

 

[moishy]

בפסיקים- יצא ג'יבריש.
בטאבים- יצא קובץ TXT ולא CVS כנדרש ל-GMAIL.

קובץ CVS הוא קובץ טקסט פשוט שבו ערכים המופרדים ע"י פסיקים, פתח את הקובץ בוורד תעשה חיפוש לטאבים והחלפה לפסיקים.

 

[moishy]

וואו!!! נראה טוב, נקווה שיעבוד.

היכן עלי להזין את הפונקציה?

השימוש בפונקציה הרבה פחות מומלצת (למרות שהיא עובדת). פתח את הקובץ באקסל, ושם תכניס את הקוד למודול חדש, ובנוסחא תכתוב בA3 לדוגמא:

(ConvertFromUTF8(A1=

וכן על זה הדרך.
​

 

[אבי 24]

קובץ CVS הוא קובץ טקסט פשוט שבו ערכים המופרדים ע"י פסיקים, פתח את הקובץ בוורד תעשה חיפוש לטאבים והחלפה לפסיקים.

גם קובץ זה יצא בג'בריש...

 

[אבי 24]

השימוש בפונקציה הרבה פחות מומלצת (למרות שהיא עובדת). פתח את הקובץ באקסל, ושם תכניס את הקוד למודול חדש, ובנוסחא תכתוב בA3 לדוגמא:

(ConvertFromUTF8(A1=

וכן על זה הדרך.
​

יצרתי מודול עם הפונקציה, אך איני יודע כיצד מפעילים אותו. (מעולם לא התעסקתי עם מודולים)
וגם לא הבנתי מה שהסברת.

תוכל להסביר יותר?

 

[moishy]

כנראה לא הובנתי כראוי, את הקובץ המופרד בטאבים (שכתבת שלא יצא ג'יבריש) תפתח בוורד וכו'.

בענין הקוד שצירפתי, תפתח את הקובץ הג'יברשי באקסל, תעתיק את הקוד למודול חדש (את זה כבר עשית), עכשיו תכנס לתא C1 ותכתוב =ConvertFromUTF8(A1) זה יעתיק את הערך המופיע בתא A1 לC1 בלי גיבריש. פעולה זו תצטרך לעשות לכל תא ותא, וזוהי הסיבה שכתבתי שעדיף לבצע חיפוש והחלפה בקובץ טקסט המופרד ע"י טאבים.
האמת היא שיש עוד אפשרות פשוטה עוד יותר, תפתח את הקובץ המופרד ע"י טאבים ע"י אקסל ותשמור אותו כCSV.

 

[אבי 24]

כנראה לא הובנתי כראוי, את הקובץ המופרד בטאבים (שכתבת שלא יצא ג'יבריש) תפתח בוורד וכו'.

בענין הקוד שצירפתי, תפתח את הקובץ הג'יברשי באקסל, תעתיק את הקוד למודול חדש (את זה כבר עשית), עכשיו תכנס לתא C1 ותכתוב =ConvertFromUTF8(A1) זה יעתיק את הערך המופיע בתא A1 לC1 בלי גיבריש. פעולה זו תצטרך לעשות לכל תא ותא, וזוהי הסיבה שכתבתי שעדיף לבצע חיפוש והחלפה בקובץ טקסט המופרד ע"י טאבים.
האמת היא שיש עוד אפשרות פשוטה עוד יותר, תפתח את הקובץ המופרד ע"י טאבים ע"י אקסל ותשמור אותו כCSV.

דווקא כן הבנתי, רק כתבתי ששני הקבצים יצאו בג'בריש...

אנסה את המודול.

 

[moishy]

בפסיקים- יצא ג'יבריש.
בטאבים- יצא קובץ TXT ולא CVS כנדרש ל-GMAIL.[/QUOTE

?????]

 

[אבי 24]

בפסיקים- יצא ג'יבריש.
בטאבים- יצא קובץ TXT ולא CVS כנדרש ל-GMAIL.[/QUOTE

?????]

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

 

[moishy]

לא הבנתי. כששמרת את הקובץ טקסט (מופרד טאבים) שיצא טוב כCSV הוא השתבש?!?!

 

[אבי 24]

לא הבנתי. כששמרת את הקובץ טקסט (מופרד טאבים) שיצא טוב כCSV הוא השתבש?!?!

לא.

עוד לפני שנגעתי בו בכלל, רק פתחתי אותו בכתבן- הוא היה ג'יבריש.

 

[moishy]

אבל כתבת שהוא יצא טוב.

 

[אבי 24]

לא, הוא לא יצא טוב.

יש סיבה מדוע הוא מנפיק קבצים כאלו? אולי אפשר לסדר זאת?

 

[moishy]

בעקבות השעה המאוחרת אני מקוה שאין שגיאים(!) ואיתי תלין משוגתי.

Sub LoopRange()

    Dim rCell As Range
    Dim rRng As Range

    ' כאן יש להגדיר את הטווח המכיל את הג'יבריש
    Set rRng = Range("A1:B100")

    For Each rCell In rRng.Cells
    ' columnOffset:=3 הוא בהנחה שיש רק שתי טורים של נתונים בייצוא מאוטלוק
    ' אם יש יותר, צריך לשנות את המספר בהתאמה
        rCell.Offset(columnOffset:=3).Value = ConvertFromUTF8(rCell.Value)
    Next rCell

End Sub

Function ConvertFromUTF8(sIn)

    Dim oIn As Object

    Set oIn = CreateObject("ADODB.Stream")

    With oIn
        .Open
        .Charset = "X-ANSI"
        .WriteText sIn
        .Position = 0
        .Charset = "WINDOWS-1255"
        ConvertFromUTF8 = .ReadText
        .Close
    End With

End Function