ADODB Connection пуст, не удается прочитать файл CSV

Question

У меня есть код ниже, работающий со всеми типами файлов, кроме CSV-файлов.

Я пытаюсь скопировать CSV-файл в рабочий лист, и я смутился. Вся помощь будет оценена.

отладчик показывает:

rsConn = "" 
szSQL = "SELECT * FROM export.csv" 

Когда я ударил

rsData.Open szSQL, rsCon, 0, 1, 1 

Я иду в обработчик myError ошибки

Я дистиллированную проблему вплоть до этих шагов, но ответ ускользает от меня ,

szSQL = "SELECT * FROM export.cvs" 

Set rsCon = CreateObject("ADODB.Connection") 
Set rsData = CreateObject("ADODB.Recordset") 

rsCon.Open szConnect 
rsData.Open szSQL, rsCon, 0, 1, 1 

'These are the values being passed in. 
GetData("export.csv" ,"A1:BE", "BirdFeet", "A1", "sku", True, True 

Весь код здесь:

Public Sub GetData(SourceFile As Variant, SourceSheet As String, SourceRange As String, _ 
              TargetSheet As String, TargetRange As String, _ 
              TargetSortColumn As String, _ 
              HaveHeader As Boolean, UseHeaderRow As Boolean) 

Dim lColumn As Long 
    Dim lCount As Long 
    Dim lRow As Long 

    Dim rsCon As Object 
    Dim rsData As Object 

    Dim szConnect As String 
    Dim szSQL As String 

    lRow = Range(TargetRange).Row 
    lColumn = Range(TargetRange).Column 
' Create the connection string. 
If HaveHeader = False Then               'No there is NOT a header row. 
    If Val(Application.Version) < 12 Then 
     szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        "Data Source=" & SourceFile & ";" & _ 
        "Extended Properties=""Excel 8.0;HDR=No"";" 
    Else 
     szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
        "Data Source=" & SourceFile & ";" & _ 
        "Extended Properties=""Excel 12.0;HDR=No"";" 
    End If 
Else                    'Yes there is a Header Row 
    If Val(Application.Version) < 12 Then 
     szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        "Data Source=" & SourceFile & ";" & _ 
        "Extended Properties=""Excel 8.0;HDR=Yes"";" 


    Else 
      If (Right(SourceSheet, 4) = ".csv") Then 
       szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
          "Data Source=" & SourceFile & ";" & _ 
          "Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""" 
      Else 
       szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
          "Data Source=" & SourceFile & ";" & _ 
          "Extended Properties=""Excel 12.0;HDR=Yes"";" 
      End If 
    End If 
End If 

If SourceSheet = "" Then 
    'Create query strings 
    szSQL = "SELECT * FROM " & SourceRange$ & " ORDER BY sku;" 

ElseIf SourceSheet = "DiamondAvian" Or SourceSheet = "export.csv" Then 

    szSQL = "SELECT * FROM export.csv" 

Else 

    szSQL = "SELECT * FROM [" & SourceSheet$ & "$" & SourceRange$ & "] WHERE sku <> NULL ORDER BY " & TargetSortColumn & ";" 'THIS WORKS FOR DICIONARY 

End If 

On Error GoTo SomethingWrong 

Set rsCon = CreateObject("ADODB.Connection") 
Set rsData = CreateObject("ADODB.Recordset") 

rsCon.Open szConnect 
rsData.Open szSQL, rsCon, 0, 1, 1 
                        ' Check to make sure we received data and copy the data 
If Not rsData.EOF Then 

    If HaveHeader = False Then 
     Cells(1, 1).CopyFromRecordset rsData 
    Else 
                        'Add the header cell in each column if the last argument is True 
     If UseHeaderRow Then 
      For lCount = 0 To rsData.Fields.Count - 1        'Builds the Header row one column at a time. 
       Cells(lRow, lColumn + lCount).value = rsData.Fields(lCount).Name  'lcount determines the Column to paste header info in. 
      Next lCount 
     Cells(lRow + 1, lColumn).CopyFromRecordset rsData       'This is the step that copies and Pastes the data. 
     Else 
      Cells(lRow + 1, lColumn).CopyFromRecordset rsData 
     End If 
    End If 

Else 
    MsgBox "No records returned from : " & SourceFile, vbCritical 
End If 

rsData.Close                  ' Clean up our Recordset object. 
Set rsData = Nothing 
rsCon.Close 
Set rsCon = Nothing 

Exit Sub 

SomethingWrong: 

MsgBox "The file name, Sheet name or Range is invalid of : " & SourceFile, vbExclamation, "Error" 

On Error GoTo 0 

End Sub 

Answer 1

Строка соединения является пустым, так как неверный параметр направляется GetData. Взгляните на этом коде ножницы:

SourceSheet является второго параметра в вызове, но передать его в качестве параметра первого здесь:

' Here's the call to GetData 
GetData("export.csv" ,"A1:BE", ... 

Имени файла идет в качестве первого параметра ... но вот декларация GetData

' But look at the declaration...SourceSheet is 2nd param, not 1st... 
Public Sub GetData(SourceFile As Variant, SourceSheet As String,... 

Теперь посмотрите на код, который определяет ваше соединение. ring:

' later in code 
If (Right(SourceSheet, 4) = ".csv") Then ' It contains "A1:BE", so your logic goes awry and your connection string ends up incorrect... 

Подумайте над тем, что икота устранит вашу проблему.