建议直接导入：http://www.foxtable.com/webhelp/topics/0685.htm
如果要自己写代码控制，这个到货时间实际是一个小数值，要使用vba导入，如：
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\问题\数据.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
Output.Show(ary(2,9))
Dim bh As Date = DateTime.FromOADate(ary(2,9))
Output.Show(bh)
catch ex As exception
msgbox(ex.message)
MessageBox.Show("导入失败!","恭喜!")
finally
app.quit
End try
加好友 
发短信
Post By：2020/8/18 14:19:00 [只看该作者]
