תחומים - פורום חרדי מקצועי

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

@chv
מחזיר לי שגיאה בהתקנה

חוץ מזה יש את התוכנה הזו בעברית?

יש לי קובץ עם סיומת sdf
בסוג כתוב לי כך

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

@dovid אמר בפתיחת קובץ CSV גדול:

זה עובד מצויין אבל זה ממש שוחט את המחשב וגם לא טוען את הכל:

לא נתקלתי בשום שגיאה
לקח לו 3 שניות עד שהוא ייבא את כל הקובץ

וזה נראה שהוא הוסיף את כל השורות

@dovid אמר בפתיחת קובץ CSV גדול:

@אוריי לא צריך שום קוד,
הייבוא לאקסס הרגיל יעשה יופי את העבודה.
בגלל התשובה שלך הלכתי גם לבדוק את הייבוא של אקסל:
פותחים קובץ חדש, בכרטסת נתונים > ייבוא CSV > שמה בוחרים את הקובץ ובקידוד בוחרים ב"ללא".
זה עובד מצויין אבל זה ממש שוחט את המחשב וגם לא טוען את הכל:

התוצאה של שאילתה זו גדולה מדי לטעינה למיקום שצוין בגליון העבודה. לגליונות עבודה יש מגבלה של 1,048,576 שורות ו- 16,384 עמודות. טען את השאילתה למודל הנתונים במקום זאת.

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

אבל באקסס לא יהיה את הבעיות האלו אבל כשניסיתי היו גם שגיאות ייבוא, אין לי פנאי להבין למה.

@odeddvir אמר בפתיחת קובץ CSV גדול:

@אופקים תוכל לייבא לאקסס ולייצא לאקסל.
תבחר את הקידוד המתאים UTF-8.
ניסיתי בהצלחה ליצור קובץ אקסל של שנת 2020 (כ- 86 MB)

עד שכתבתי כבר הגבתם שאפו

@אופקים
אתה יכול לייבא באקסס ע"י האשף של אקסס
כך

יש לבחור בקובץ טקסט
אח"כ לבחור את קובץ ה csv
וליבא
שים לב שכדי לייבא בעברית יש ללחוץ באשף על מתקדם
כאן

אח"כ
יש לבחור בקידוד הבא

לבחור בהפרדה ע"י פסיק או טאב

אח"כ לחץ על אחר ותכניס את הסימן הבא |

והנה צילום מסך מהתוצאה

בהצלחה

@אופקים
תוכל ליבא אותו לאקסס אני אישית לא עשיתי ולא מצאתי בקלות קוד טוב שעובד
אולי מישהו ימצא לך כאן כזה קוד

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

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\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
    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 = 1255
        .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

את העברית זה מסדר בוודאי השאלה היא האם הוא יצליח בגלל גודל הקובץ

@a0533057932 אמר בכלי ניהול תקציב:

ב' בפאלפון המסכן שלי אין את גוגל שיט (J1 MINI PRIME) כך שזה לא יעזור לי אני צריך אתר או אפליקציה שמסונכרנת עם המחשב

גוגל פורומס יש לך בפלאפון? או שאין לך את כל ישומי גוגל דרייב?

@chagold אמר בקוד השוואה בין נתונים באקסל בווורד:

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

יהיה אבל חסר לך בכל אופן את הבחירה של הטקסט הספציפי

   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection.Font
        .Name = "+גוף"
        .Size = 11
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineDouble
        .UnderlineColor = -587137025
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = -687800321
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
        .SizeBi = 11
        .NameBi = "+גוף עברי"
        .BoldBi = False
        .ItalicBi = False
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With

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

@chagold

יש לי קוד כזה שמחזיר בעמודה B האם הערך קיים בקובץ וורד לפי ערכים בעמודה A
זה הקוד
אני מאמין שתוכל לשפר אותו עוד

Sub FindName()

    Dim X
    X = 1
  
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Set wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\Users\sbhtk\Documents\ssss.docx")
    Dim FindWord As String
    Dim result As String
    
       Do While Range("A" & X).Value <> ""
   
    FindWord = Range("A" & X).Value
   ' MsgBox FindWord
    
    '// Defines selection for Word's find function
    wrdDoc.SelectAllEditableRanges
    
    '// Word Find Method Setup Block
    With wrdDoc.ActiveWindow.Selection.Find
        .Text = FindWord
        .Replacement.Text = ""
        .Forward = True
        .Wrap = 1 ' wdFindContinue (Word constant not defined in Excel)
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
'        .Style = ("choose your style to look for")
    End With
    
    '// Execute find method selects the found text if found
    wrdDoc.ActiveWindow.Selection.Find.Execute
    
    '// Store Selected text
    result = wrdDoc.ActiveWindow.Selection.Text
    
    '// Test if the selection string found match value required converted case for comparison
    If UCase(result) = UCase(FindWord) Then
        Range("B" & X).Value = "קיים"
    Else
        Range("B" & X).Value = "לא קיים"
    End If
    X = X + 1
    Loop
    '// Close and don't save application
    wrdApp.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)

End Sub

מקור

בהצלחה

@בערל
בכל אופן כתבתי נכון או שטעיתי (למקרה של קובץ)

@shraga אמר בתגובה: למדריך לינקים של בערל:

@אוריי כמדומני שזה רק עבור קבצים ולא עבור תיקיות.

תגובה: מדריך | שימוש מתקדם עם לינקים בגוגל דרייב

ניסיתי להשתמש במדריך ומשום מה זה מחזיר לי שגיאה
כזו

זה הלינק המקורי

https://drive.google.com/folderview?id=1PQ0dcpMF4F6mSO_aFQOb7ABTJCUGov4X

וכתבתי כך

https://drive.google.com/uc?export=download&id=1PQ0dcpMF4F6mSO_aFQOb7ABTJCUGov4X

@בערל טעיתי במשהו?

@שוהם307
והמדריך של תותח אקסל שהבאתי לך לא יכול לעזור?

@שוהם307
האא..
לא קיים בדרייב לחצן טווח
באקסל מייקרוסופט כן
ומה רע בקוד שכתבתי לך?

@שוהם307
לחצנים עובדים גם בשיתוף בדרייב (אני לא יודע איך אתה משתף) במורשה עריכה
למה כוונתך לחצן טווח?

@מלא
תודה עזרת לי מאד

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