' Читаем содержимое в строку
Dim s$
s = CreateObject("Scripting.FileSystemObject").Getfile(LINK).OpenasTextStream(1).ReadAll
' Заменяем CR+LF на LF
s = Replace(s, vbCrLf, vbLf)
' Заменяем CR на LF
s = Replace(s, vbCr, vbLf)
' Делим строку
a = Split(s, vbLf)

Last = Last + 1
ReDim Preserve Свеча(Last)

Sub LoadCSV()
      Dim File_$, Path_$, strcon$, strSQL$, rsARR(), field_$
      Dim cnn: Set cnn = CreateObject("ADODB.Connection")
      Dim rst: Set rst = CreateObject("ADODB.Recordset")
      Dim field
xx:
      File_ = Application.GetOpenFilename("CSV data logs,*.csv", , "Выберите CSV файл", , False)
      If File_ = "False" Then
          If MsgBox("Хотите продолжить?", 32 Or 4, "Вы не выбрали файл!") = 6 Then
              GoTo xx
          Else: Exit Sub
          End If
      End If
      Path_ = Left(File_, InStrRev(File_, "\"))
      File_ = Mid(File_, InStrRev(File_, "\") + 1)
      strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path_ & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
      cnn.Open strcon
      strSQL = "SELECT * FROM " & File_ & ";"
      Set rst = cnn.Execute(strSQL)
      field_ = rst.fields(0).Name
      strSQL = "SELECT * FROM " & File_ & " where [" & field_ & "] is not null order by [" & field_ & "];"
      Set rst = cnn.Execute(strSQL)
      rsARR = rst.GetRows
      With [a1].Resize(UBound(Application.Index(rsARR, 1, 0)), UBound(rsARR) + 1)
          .Value = Application.Transpose(rsARR)
      End With
      rst.Close
      Set cnn = Nothing
End Sub