VB操作EXCEL例子的的问题

[ccbbcc]

我求助一位高手，VB如何操作EXCEL。
他给了我一个例子，我一运行，点击MSFlexGrid1的任一行，就出错。
我单步调试，发现到上图那一行出错。我搞不懂，问那个高手，他又不说。
请各位高手看看，怎么回事？谢谢！

[脆皮大雪糕]

都已经断点在错误处了，看看你CDATE的是什么东西咯。 目测，你从grid里面取出来的第一列字符串后面跟着星期几，美国程序员写的Cdate函数不认识嘛

[ccbbcc]

谢谢！有个EXCEL表格

是没有星期几的。
可是一运行程序，就变成这样了。

Private Sub Form_Load()

MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
Call KKK(cn)
Rs.Open "Select * From [Sheet1$]", cn, 3, 2
BB = Rs.RecordCount
With MSFlexGrid1
.Cols = 6
.Rows = 1 + BB
.TextMatrix(0, 0) = "序号"
.TextMatrix(0, 1) = "试验日期"
.TextMatrix(0, 2) = "试验编号"
.TextMatrix(0, 3) = "试件形状"
.TextMatrix(0, 4) = "试件尺寸"
.TextMatrix(0, 5) = "标距(mm)"
.ColWidth(0) = 800 '8415
.ColWidth(1) = 1500
.ColWidth(2) = 1500
.ColWidth(3) = 1500
.ColWidth(4) = 1500
.ColWidth(5) = 1500
.CellBackColor = &HFFFFFF
For I = 1 To BB
.TextMatrix(I, 0) = I
.TextMatrix(I, 1) = Rs!试验日期
.TextMatrix(I, 2) = Rs!试验编号
.TextMatrix(I, 3) = Rs!试件形状
.TextMatrix(I, 4) = Rs!试件尺寸
.TextMatrix(I, 5) = Rs!标距
Rs.MoveNext
Next I
End With
Rs.Close
Set Rs = Nothing
cn.Close
Set cn = Nothing
Option1(0).Value = True
End Sub
不知道哪儿错了。
那个高手运行程序以后

[ccbbcc]

好像每次只能上传一个图片。
原来的EXCEL表格

[ccbbcc]

[ccbbcc]

[ccbbcc]

明明上传了，怎么不显示。

[ZHRXJR]

很明显是
SYRQ = CDate(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)) 语句中的数据类型不匹配
还是老老实实学习基本的基础知识吧！连错误在哪里都搞不清，别说是数据类型了！

[ccbbcc]

我知道是数据类型不匹配，就是多了一个星期几，可是不明白为什么会多

[ZHRXJR]

好吧，这个问题估计是系统问题，在【控制面板】-【区域与语言】自定义日期设置中修改为短日期，即：yyyy-MM-dd 就可以了。
如果不行可能是你的Excel的问题了。

[ccbbcc]

谢谢，好了。。。。。。。。。。。。。。。

[fengchuiyidiye]

能把例子发出来看看嘛，刚学菜鸟一枚，谢谢楼主，[e-mail]