问如何避免在检索单元格值时出现类型转换错误？

EN

' Get single cell value
Dim val as Object = DirectCast(range.Cells[row, col], Excel.Range).Value2
' Test for datatypes
If TypeOf val Is Integer Then
    Dim i As Integer = CInt(val)
Else If TypeOf val Is Double Then
    ....
    ....
    ' check all datatypes here
End If

' Get string    
 Dim val as String = DirecCast(range.Cells[row, col], Excel.Range).Value2.ToString()
 Dim i as Integer
 Dim done as Boolean
 If Not done AndAlso Integer.TryParse(val, i) Then
     ' Do something with "i"
     done = true
 End if
 ' check for other types in similar fashion but order so that types with decimals come after integers