- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这条代码为什么是错的？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27224)
-- 发布时间：2012/12/25 16:06:00
-- [求助]这条代码为什么是错的？
Dim swrq As Date = e.Form.Controls("datetimepicker2").value
sheet(13,6).value =swrq.Year \'这条代码为什么是错的,
请高手指导。
-- 发布时间：2012/12/25 16:15:00
--
报什么错？
-- 发布时间：2012/12/26 7:42:00
--
林老师，我用的是vba代码
Dim dt As DataTable = DataTables("数据表")
Dim app As New MSExcel.Application
Dim book As MSExcel.Workbook = app.Workbooks.Open(ProjectPath & "Reports\\book1.xls")
Dim sheet As MSExcel.Worksheet = book.Sheets("sheet1")
……
Dim swrq As Date = e.Form.Controls("datetimepicker2").value
sheet(13,6).value =swrq.Year \'到这里就报错。
sheet(13,6).value =swrq.Year \'到这里就报错。
不知道是什么原因？请老师指导，谢谢！
此主题相关图片如下：snap1.png
此主题相关图片如下：snap1.png-- 发布时间：2012/12/26 7:57:00
--
sheet.cells(13,6).value =swrq.Year \'测试通过
-- 发布时间：2012/12/26 8:19:00
--
哦，我忘了，前面的代码都是这样写的，到了这句就忘了，不好意思，再次表示感谢。