CSV empty file causing an error

[scantron]

I have a csv import on my spreadsheet and it throws an error if the csv file is empty (error 7 out of memory). Is there any way to check if the file is empty and just abort the macro? (or something else, maybe a popup error so know what is going on).

[StevenM]

Just opening an empty csv file won't cause an error, so I suspect that there is more to it. Can you upload your worksheet? Or post the section of code which seems to be causing this error?

[scantron]

Also although it has "refresh background query" set to false... it gives a "warning this is linked to other spreadsheets" error when you open it.

[scantron]

Sub CSVimport()
'
' CSVimport Macro
'
    With Worksheets("CSV")
            .Visible = xlSheetVisible
            .Activate
            .Range("A1").Select
        End With
    Sheets("CSV").Select
    ActiveSheet.columns("A:C").Select
    Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\Work\current.csv", _
        Destination:=Range("$A$1"))
        .Name = "current"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Active").Select
    Worksheets("CSV").Visible = xlSheetVeryHidden
End Sub

[StevenM]

I got an error on the line:

.Refresh BackgroundQuery:=False

With both an empty csv file and a none-empty csv file.