אופיס 365 בעיה בהעתקת נתונים מקובץ csv לקובץ אקסל בקוד vba

[אין על אקסל]

יש לי קוד vba שאיתו אני שואב נתונים מקובץ csv לקובץ אקסל הבעיה היא שאת כל המלל בעברית הוא מחזיר לי בגיבריש
כך

ראוי לציין שאני רוצה לעבוד רק עם הקוד vba כי זה קובץ שיורד אוטומטי מהאינטרנט ואני רוצה באקסל בלחיצת כפתור לשאוב את כל הנתונים בשלמותם
זה הקוד שאני משתמש איתו

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
'    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
'    If xFileName = False Then Exit Sub
xFileName = "C:\Users\??????\Desktop\YossiBarber\products1.csv"
    On Error Resume Next
'    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
'    On Error GoTo 0
'    If Rg Is Nothing Then Exit Sub
'    xAddress = Rg.Address

    Sheets("data").Select
    Columns("A:F").Select
    Selection.QueryTable.Delete
    Selection.ClearContents
    xAddress = "A1"
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

 

[NIVDFB]

נסה לפתוח את הקובץ CSV קודם בעזרת פנקס רשימות, ולשמור בשם, לא כקובץ טקסט, ולבחור בקידוד UTF-8

 

[אין על אקסל]

בבדיקה שניה אני חושב שיש אפשרות לסדר את זה כי אם אני עושה שמור בשם לקובץ לסיומת של xlsx הוא שומר אותו מעולה
אז חשבתי אולי לעשות קוד שיצור קובץ csv לסיומת של xlsx כמובן בלי לפתוח אותו הבעיה היא שאני לא יודע באיזה קוד להשתמש

נסה לפתוח את הקובץ CSV קודם בעזרת פנקס רשימות, ולשמור בשם, לא כקובץ טקסט, ולבחור בקידוד UTF-8

כאשר אני פותח את הקובץ csv הוא עובד מעולה הבעיה היא כאשר אני מעתיק את הנתונים דרך קוד ה vba

 

[xl3391]

תשנה בקוד 936 (שאומר סינית) ל 1255 (שאומר עברית)
אבל:
אין צורך בקוד בכדי לייבא קובץ csv בלחיצת כפתור.
אפשר ב POWER QUERY בפשטות ובכניסה לרענן

 

[אין על אקסל]

תשנה בקוד 936 (שאומר סינית) ל 1255 (שאומר עברית)
אבל:
אין צורך בקוד בכדי לייבא קובץ csv בלחיצת כפתור.
אפשר ב POWER QUERY בפשטות ובכניסה לרענן

אני צריך להעתיק אותו לקובץ אחר ללא שום קשר שאני רוצה בעברית
(יש לי מערכת שבניתי באקסל שבא אני לוקח את הנתונים מהרובץ csv ואני משנה עיצוב וכו' וכו' )

 

[xl3391]

מה שבנית בנית.
בכל אופן כדאי לדעת של PQ יש הרבה מאוד אפשרויות (בעריכת השאילתות) ובהרבה מקרים הוא תחליף מעולה לVBA כי הכל מתעדכן בלחיצה על רענון.

 

[אין על אקסל]

בכל אופן הרבה תודה עזר לי מאד עד כה
רק יש עוד שלב שבו נתקעתי אני חושב שתוכלו לעזור לי
אני אסביר קודם מה אני בונה (למישהו אחר( ואח"כ אני אסביר באיזה שלב אני אוחז
הוא עושה שירות הזמנות למשלוחים של מוצרים ויש לו אתר שבו מזמינים מוצרים
עכשיו יש כאלו שיש להם מייל בלי גישה לאתר אז הוא עשה אפשרות ששולחים לו מייל במבנה מסויים ויש לו כבר מערכת של API שמפרקת את הקובץ בלי להוריד אותו מהמייל ונכנס לרשימת ההזמנות
עכשיו היות והוא לא רוצה לעדכן ב10 מקומות וכו' אז הוא מעדכן רק בקופה רושמת ולאחר עדכון הוא מקבל את הקובץ לתקייה מסויימת במחשב וכך גם האתר מתעדכן וגם המערכת טלפונית
כעת מה שאני עושה לו זה תוכנה באקסל שכאשר הוא לוחץ על כפתור הוא מייבא את הנתונים מהקובץ csv (הנתונים של הקופה) אח"כ הוא ממיין את הנתונים אח"כ באיזו שהיא צורה הוא אמור לעצב את הנתונים לפי קטגוריות ואיכשהו להכניס נוסחאות חישוב שיחשבו למשתמש את העלויות אם זה מחיר לפי משקל או לפי יחידה ולמטה יהיה סיכום והשלב האחרון המערכת מוציאה פלט נעול לעריכה חוץ מהמקומות שצריך לערוך שאת זה הוא שולח דרך api לכל מי שנרשם
מקווה שהובנתי
כעת מה שנתקעתי הוא בשלב איך להכניס את הנתונים לפי קטגוריות וכמובן שיהיה נוסחאות תואמות במקביל???
או לעצב בצורה שלא יפריע לנוסחאות??

 

[xl3391]

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

 

[אין על אקסל]

לבנתיים הסתדרתי עם זה
אם יהיה תקלות אני יקפיץ שוב