以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  向excel文件中写入日期数据的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83822)
--  作者：elmu
--  发布时间：2016/4/18 9:16:00
--  向excel文件中写入日期数据的问题

随便向一个excel文件写入一个文件创建的日期，在excel中都是一串数字而不是日期。（用messagebox.show显示正常）

是不是需要转换下类型？刚才又用Cdate转换了下，excel中只能显示年份，后面的日期都没有了。。。
      

   Dim Book As New XLS.Book
   Dim Sheet As XLS.Sheet = Book.Sheets(0)

   Dim ifo As new FileInfo("c:\\reports\\test.xls")
   Sheet(0,0).Value = Ifo.CreationTime

[此贴子已经被作者于2016/4/18 9:17:09编辑过]
--  作者：大红袍
--  发布时间：2016/4/18 9:21:00
--  

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim ifo As new FileInfo("d:\\test.xls")
Sheet(0,0).Value = Ifo.CreationTime
Dim st As XLS.style = book.NewStyle
st.Format = "yyyy-MM-dd HH:mm:ss"

Sheet(0,0).style = st
book.Save("d:\\abc.xls")