| 以文本方式查看主题 - 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=159206) |
| -- 作者：lfc2019 -- 发布时间：2020/12/17 8:59:00 -- [求助]excel报表输出格式问题 定义了一个格式 Dim Style10 As XLS.Style = Book.NewStyle() \'定义新样式 Style10.F Style10.AlignHorz = XLS.AlignHorzEnum.Left Style10.Format="yyyy年MM月dd日" 但是输出时没有按照以上要求格式输出 Sheet(2,9).Style =Style10 |
| -- 作者：有点蓝 -- 发布时间：2020/12/17 9:25:00 -- 单元格必须输出的是日期格式的值，不能是字符串 Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Style As XLS.Style = Book.NewStyle() \'定义新样式 Style.AlignHorz = XLS.AlignHorzEnum.Left Style.Format="yyyy年MM月dd日" Sheet(0,0).value = Date.Today Sheet(0,0).Style =Style Book.Save("D:\\问题\\test.xls") Dim Proc As New Process Proc.File = "D:\\问题\\test.xls" Proc.Start() 如果把Sheet(0,0).value = Date.Today 改为这样是不行的：Sheet(0,0).value = "2020-12-17" |
| -- 作者：lfc2019 -- 发布时间：2020/12/17 10:53:00 -- 那意思是我要把输出的格式转换为日期格式 ？
|
| -- 作者：有点蓝 -- 发布时间：2020/12/17 11:19:00 -- 是 |
| -- 作者：lfc2019 -- 发布时间：2020/12/17 11:22:00 -- 转日期的代码怎么写的？ |
| -- 作者：有点蓝 -- 发布时间：2020/12/17 11:30:00 -- http://www.foxtable.com/webhelp/topics/1513.htm |
| -- 作者：lfc2019 -- 发布时间：2020/12/17 11:39:00 -- 这个还是不行， Sheet(i, 10).Value=CDate(dr("podatew")) Sheet(i, 10).Style =Style10 但是以下的可以： Sheet(2, 9).Value=CDate(dr("podate")) Sheet(2,9).Style =Style10 这是什么奇怪的问题
|
| -- 作者：有点蓝 -- 发布时间：2020/12/17 11:46:00 -- 请上传实例测试 |
| -- 作者：lfc2019 -- 发布时间：2020/12/17 11:58:00 -- 测试了，sheet()里面不能有变量，有变量就是不行的，这是个BUG啊 |
| -- 作者：有点蓝 -- 发布时间：2020/12/17 12:07:00 -- 我测试没有问题，请上传实例测试 Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Style As XLS.Style = Book.NewStyle() \'定义新样式 Style.AlignHorz = XLS.AlignHorzEnum.Left Style.Format="yyyy年MM月dd日" Dim i As Integer = 1 Sheet(i,0).value = Date.Today Sheet(i,0).Style =Style Book.Save("D:\\问题\\test.xls") Dim Proc As New Process Proc.File = "D:\\问题\\test.xls" Proc.Start() |