声明.Text，.Value，.Value2使用数组从Excel中获取数据

Question

我使用Excel自动化与Excel互操作。我的代码需要使用数组提取的Excel表。正如你在下面看到的，我将它们全部作为.Value2，但是我想指定例如我的excel列中的一个作为.Text。如何实现这一目标？

'Convert from interop object to native vb.net object, indexed 1 to length 
Dim data As Object(,) = DirectCast(_xlWorkSheet.UsedRange.Value2, Object(,)) 

For row As Integer = 2 To data.GetUpperBound(0) - 1 
    Dim newDataRow As DataRow = dt.NewRow() 

    Dim dattime As DateTime = DateTime.FromOADate(data(row, 11)) 
Next 

Answer 1

我有在Excel中一列具有格式：[H]：MM：SS表示小时可超过时钟小时，使装置有可能是e.g 783：34：12。当我尝试使用格式化例如：NumberFormat =“@”或其他任何我总是得到错误的结果。

基于该描述，我将假设该值以数字Double形式输入Excel。即：783：34：13等于32.64875。

在VB.Net中，您可以生成TimeSpan结构以生成结果的日，时，分和秒组件。在下文中，rng是代表单个单元的Excel.Range。

Dim val As Double = CDbl(rng.Value2) 
Dim ts As TimeSpan = DateTime.FromOADate(val) - DateTime.FromOADate(0) 

现在，如果你想格式化类似于Excel中显示这个时间跨度为一个字符串，你可以做这样的事情：

Dim s As String = String.Format("{0}:{1:00}:{2:00}", (ts.Days * 24) + ts.Hours, ts.Minutes, ts.Seconds) 

的原因，我建议这种技术在得到TextExcel.Range的属性是Text属性将返回到您在Excel中看到的内容，包括列不足以显示格式化值时有用的“###”。

---

编辑要地址评论：

你能解释一下你为什么这样做： - DateTime.FromOADate（0）？

Excel将日期时间值编码为指定日期时间的值为零的24小时时间段（天）的十进制数。你的数据显然是利用这个事实来让你的单元格的值为783：34：12（783小时，34分，12秒）或32.64875作为十进制值。

为了检索（天，小时，分钟，秒）原始值的偏移量，您需要减去由其基准值（零）表示的日期时间。

我看到不匹配例如：在excel：0:04:07（实际值在后面是：12:04:07 AM）在你的函数后我得到这个：0:04:06（所以1秒差异为什么是什么？

我不能重现这个问题，这可能是由于浮点值表示的太局限一个四舍五入的问题。

---

另外，注意，Excel支持两个不同的日期基础系统; 1900年日期系统（默认）和1904年日期系统。DateTime.FromOADate函数根据1900日期系统进行转换。这两个系统之间的区别是被视为零的日期。您应该检查WorkBook.Date1904属性，以查看在转换为.Net DateTime时是否需要将添加天数（1462天）添加到从Excel中检索的值。

这可能影响该代码的结果：

Dim dattime As DateTime = DateTime.FromOADate(data(row, 11)) 

参见：Differences between the 1900 and the 1904 date system in Excel以获取更多信息。