Import CSV with VBA code fails on 2nd import

Try this code

Sub openTextCommaDelimited()
Workbooks.OpenText Filename:="C:\........\.....csv", _
    DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, Tab:=True, comma:=True

End Sub