| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6139 人关注过本帖, 1 人收藏
标题:如何将EXCEL表格中的内容导入VB表中?
只看楼主 加入收藏
dxhybxz
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2016-5-19
结帖率:33.33%
收藏(1)
已结贴  问题点数:2 回复次数:5 
如何将EXCEL表格中的内容导入VB表中?
我是一个初学者,想将EXCEL表格的内容导入VB表格中,然后从VB表格中提取到程序中使用,或者使用程序修改这个VB表格,现在最基本的就是怎么将EXCEL表格中的内容导入VB表中,请大神指导!!!
搜索更多相关主题的帖子: EXCEL 如何 
2016-05-24 15:47
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:1 
方法一、按照你说的这个方法
首先从Excel中去读取,示例代码如下
程序代码:
Dim xlApp As Excel.Application '定义EXCEL类     
Dim xlBook As Excel.Workbook '定义工件簿类     
Dim xlsheet As Excel.Worksheet '定义工作表类      
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类  
Set xlBook = xlApp.Workbooks.Open(App.Path + "\银行导出表.xls") '打开EXCEL工作簿     
Set xlsheet = xlBook.Worksheets("Sheet1") '打开EXCEL工作表  xlsheet.Activate '激活工作表
For  i=1 to 10 

 xlsheet.range("A"& i)= i   'Range 和Cells都可以对单元格进行读,写
a=xlsheet.Cells(i,2)
Next i

然后填充到Grid中,示例如下
程序代码:
With MSFlexGrid1
.Cols = 5
.Rows = 1 + SS
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
For I = 1 To SS
.TextMatrix(I, 0) = "A" & I
.TextMatrix(I, 1) = "B" & 2 * I
.TextMatrix(I, 2) = "C" & 3 * I
.TextMatrix(I, 3) = "D" & 4 * I
.TextMatrix(I, 4) = "E" & 5 * I
Next I
End With


方法2,直接将Excel作为数据库来处理,前提是你这个确实一个数据库的结构,数据结构化,而且不是东一块西一块的乱放。代码示例如下
程序代码:
Dim cnExcel As New ADODB.Connection
        Dim rsExcel As New ADODB.Recordset
        cnExcel.CursorLocation = adUseClient
        cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" C:\cu.xls;Extended Properties='Excel 8.0;HDR=Yes'"
        strSql = "select * from [toolbase$] "
        If rsExcel.State = adStateOpen Then rsExcel.Close
        rsExcel.Open strSql, cnExcel, adOpenStatic, adLockOptimistic
'rsExcel就是生成的相应的记录集

你只要 set DataGrid1.datesource=rsExcel  这样就行了 。
VB表格中提取到程序中使用
表述看不懂,VB表格不就是程序的一个界面?
2016-05-24 17:04
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:1 
如何将EXCEL表格中的内容导入VB控件中.rar (13.46 KB)

另一种思路与方法,可以将Excel表格的数据导入Accexx数据库,再在VB控件中显示。

[此贴子已经被作者于2016-5-25 09:56编辑过]


请不要选我!!!
2016-05-24 23:17
adffdda
Rank: 2
等 级:论坛游民
帖 子:98
专家分:15
注 册:2015-1-6
收藏
得分:1 
不错,学习了
2016-05-27 12:59
adffdda
Rank: 2
等 级:论坛游民
帖 子:98
专家分:15
注 册:2015-1-6
收藏
得分:0 
写的不错!!

[此贴子已经被作者于2016-5-27 13:06编辑过]

2016-05-27 13:01
lsj253307
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-1-8
收藏
得分:0 
不咋地,我照做excel里面没有数据
2020-01-08 16:31
快速回复:如何将EXCEL表格中的内容导入VB表中?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047410 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved