VB读取EXCEL 编辑,

3星(超过75%的资源)
所需积分/C币:10 2011-06-23 12:19:38 39KB APPLICATION/MSWORD
16
收藏 收藏
举报

VB,读EXCEL。转,不是本人编写的!在vb读取excel中的数据并在窗体上显示 Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data) For i = 1 To CInt(UBound(Data, 1)) For j = 1 To CInt(UBound(Data, 2)) Set a = Form1.Controls.Add("VB.TextBox", "textbox" & CStr(i) & CStr(j) & CStr(No)) ReDim TextBoxA(1 To i, 1 To j) '重新定义动态数组! Set TextBoxA(i, j) = a With TextBoxA(i, j) '设置文本框属性 .Text = Data(i, j) .Visible = True .Height = 200 .Width = 500 .Top = .Height * (i - 1) .Left = .Width * (j - 1) + FormWidth End With Next Next End Sub

...展开详情
立即下载 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
w18548240 挺好的,挺实用的
2014-03-18
回复
y_chh_hhu 比较实用,但功能太简单
2013-10-29
回复
zixuan904328 应该先设微软的excel library什么滴,要不会误导孩子们滴啊
2013-06-01
回复
u010401728 错误多,价值不大
2013-04-23
回复
lwcc01 楼上说的对,解析不够完全!
2013-02-06
回复
yxxp11 说明部分太少,实用性不强
2012-08-10
回复
Du_ruolin 运行时代码还是有问题,有些地方有错误
2012-04-09
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
上传资源赚钱or赚积分
最新推荐
VB读取EXCEL 编辑, 10积分/C币 立即下载
1/0