Import CSV of 81000 lines

[killerboy]

It's a crazy business! Import a file of 81000 lines in Excel! The fact is that I do not know the handling and excel can only handle 65536 lines the max ...

I looked to cut and partition the file but unfortunately, every attempt has failed! Then how is this possible?

[Reegan]

Here is a code that I use for text files, I simply adapted the extention .csv, normally it should be OK

  Sub ImportTxtNew () 
  Sun Line As String, strFullName, i As Long, As Long NbWs 
  Sun Deb As Variant, End As Variant, Diff As Date 
    
  Deb = Now () 
    
      Worksheets. Add 
      strFullName = Application. GetOpenFileName ( "Text Files (*. csv), *. csv", _ 
      "Select a file:") 
    
      StrFullName Open For Input As # 1 
    
      Do While Not EOF (1) 
              Do While (Not EOF (1)) And (i <65500) 
                  i = i + 1 
                  Input # 1, line 
                  Cells (i, 1). Value = line 
              Loop 
          If i <EOF 65,500 Gold (1) Then Exit Do 
              i = 0 
              Worksheets. Add 
      Loop 
      Close # 1 

  End Sub

[killerboy]

Thank you for your help, but I am not an expert on the subject, so I do not know what to do with your "script" ...

With a little fiddling, I found how to add the macro. But I get an error message:

"Excel can not complete this task with available resources. Choose less data or close other applications."

So what I do?

[Reegan]

It is rather a PC problem, the application closes, if you have nothing else to stress you've opened!

Are there calculations based on your import? If yes, put the calculations in "manual" (Tools\Options\Calculation) before import and after reactive.