VB操作EXCEL例子的的问题

ccbbcc 2019-02-12 11:26:08

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

...全文

213 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

fengchuiyidiye 2019-04-23

打赏
举报

能把例子发出来看看嘛，刚学菜鸟一枚，谢谢楼主，1162311852@qq.com

ccbbcc 2019-02-13

打赏
举报

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

ZHRXJR 2019-02-13

打赏
举报

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

ccbbcc 2019-02-13

打赏
举报

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

ZHRXJR 2019-02-13

打赏
举报

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

ccbbcc 2019-02-12

打赏
举报

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

ccbbcc 2019-02-12

打赏
举报

ccbbcc 2019-02-12

打赏
举报

ccbbcc 2019-02-12

打赏
举报

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

ccbbcc 2019-02-12

打赏
举报

谢谢！有个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
不知道哪儿错了。
那个高手运行程序以后