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

Question

我使用Vb.net 2013 excel。我需要从工作簿单元中获取.range("An")值。

如何在事先不知道数据类型的情况下检索单元格值时避免类型转换错误？

在获取单元格值之前，如何确定数据类型十进制，整数，日期，字符串等？使用.Cell(1,1).Text不会给我我需要的值。

我已经看到vba6用户用Variant Type解决这个问题的一些讨论，但vb.net不支持这个问题。

我只是需要个别的细胞，所以Sheet.Arrays可能不是答案。

任何建议表示感谢，谢谢！

Answer 1

当数据以任何形状和形式出现时，您需要检查它的类型并查看它是否可以转换为所需的类型。我假设你正在使用Excel.Interop。声明你的价值为Object并对其进行测试，然后尝试将它

转换例如

' 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 

在这种情况下，你可能会遇到一个类型为另一种状态。