主题：格式转换问题！

可以自己做个按钮，批量处理一下，假定你的格式是固定为：20050810，四位年，两位月，两位日。

Dim  Book As New XLS.Book("c:\test\订单.xls")
Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Dim x As Integer = 7 '假定日期是第8列
For  n  As  Integer =  1  To  Sheet.Rows.Count -1
    Dim  bh  As  String =  sheet(n,7).Text
    If isnumeric(bh) AndAlso bh.length = 8 Then
        sheet(n,7).Value = new Date(bh.SubString(0,4),bh.Substring(4,2),bh.Substring(6,2))
    End If
Next
book.Save("c:\test\订单.xls")