@אופקים
תנסה אולי ליבא את הקובץ דרך קוד 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
את העברית זה מסדר בוודאי השאלה היא האם הוא יצליח בגלל גודל הקובץ