Excel VBA Frustrating Run-time error '13' Type mismatch

Hi

Firstly I think you should explicitly qualify the property you want to work with.
Secondly are you sure that the cell Is Null, and that it isn't being considered a string because of the import process?

Perhaps:

Or, consider using CDbl to coerce the value in Cells(4,14) to a double.

Jon, thank you so much for your reply; that solved the issue.

You are exactly right: I'm not sure that a cell is null, and not considered a string by the import process. After all the time I've spent on the spreadsheet, I'm fairly certain there's strings in there causing confusion.

I have not yet tried the CDbl option to see if that works as well, but that's next on my list.

thank you ,

hi,

I am responding to this thread because i seem to be getting a similar problem in my code.Please help on the highlighted line

Tiffany, sorry to hear you're having that problem.

Your code doesn't contain the Variable definition for SQL1. It looks like you're using SQL1 as a range. If you defined SQL1 as a different data type, that might cause the error.

You're getting that error because the computer expected a certain type of data, and instead it got a different type.

Hello All,
I am new in VBA. I would like to transfer multiple *.txt files in my excel file. I write it down a following code but i am getting run-time error 13. I could not able to solve it. Could you please help me to sort out this problem:
Sub Text_ImportAllFiles()
For rep = 4 To 7


Dim file_name As String
Dim row_mumber As String
Dim output_sheet As String

file_name = Sheets("Admin").Range("B" & rep).Value
output_sheet = Sheets("Admin").Range("C" & rep).Value
row_number = Sheets("Admin").Range("D" & rep).Value

With Sheets(output_sheet).QueryTables.Add(Connection:="TEXT" + file_name, Destination:=Sheets(output_sheet).Range("$A$" + row_number))
.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 = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Dim wb_connection As WorkbookConnection
For Each wb_connection In ActiveWorkbook.Connections
If InStr(file_name, wb_connection.Name) > 0 Then
wb_connection.Delete
End If
Next wb_connection
Next rep
MsgBox "Done"
End Sub

Thanks a lot in advance...

Anubhav

I have the same error in my file.

The error is in this code:
"
Dim i, k As Long
i = 0
k = 0
While Cells(i + 1, 1) <> ""
i = i + 1
If i = 1 Then
k = k + 1
Sheets("Final").Cells(k, 1) = Cells(i, 1)
Sheets("Final").Cells(k, 2) = Cells(i, 2)
Sheets("Final").Cells(k, 3) = Cells(i, 3)
Sheets("Final").Cells(k, 4) = Cells(i, 4)
Sheets("Final").Cells(k, 5) = Cells(i, 5)
Sheets("Final").Cells(k, 6) = Cells(i, 6)
Sheets("Final").Cells(k, 7) = Cells(i, 7)
Sheets("Final").Cells(k, 8) = Cells(i, 8)
Sheets("Final").Cells(k, 9) = Cells(i, 9)
ElseIf Cells(i, 11) <> "Não" And (Cells(i, 12) = "FUTURA" Or Cells(i, 12) = "CORRENTE" Or Cells(i, 12) = "PERMANENTE") Then
k = k + 1
Sheets("Final").Cells(k, 1) = Cells(i, 1)
Sheets("Final").Cells(k, 2) = Cells(i, 2)
Sheets("Final").Cells(k, 3) = Cells(i, 3)
Sheets("Final").Cells(k, 4) = Cells(i, 4)
Sheets("Final").Cells(k, 5) = Cells(i, 5)
Sheets("Final").Cells(k, 6) = Cells(i, 6)
If Sheets("Extract").Cells(i, 13) = "" Then
Else
Sheets("Final").Cells(k, 7) = Cells(i, 13)
End If
Sheets("Final").Cells(k, 8) = Cells(i, 8)
Sheets("Final").Cells(k, 9) = Cells(i, 9)
End If
Wend
"

The line where i have error is marked with red bold.

Anyone can help me?

Thank's