注册 登录
编程论坛 VB6论坛

如何将EXCEL表格中的内容导入VB表中?

dxhybxz 发布于 2016-05-24 15:47, 6354 次点击
我是一个初学者,想将EXCEL表格的内容导入VB表格中,然后从VB表格中提取到程序中使用,或者使用程序修改这个VB表格,现在最基本的就是怎么将EXCEL表格中的内容导入VB表中,请大神指导!!!
5 回复
#2
xiangyue05102016-05-24 17:04
方法一、按照你说的这个方法
首先从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表格不就是程序的一个界面?
#3
ZHRXJR2016-05-24 23:17
只有本站会员才能查看附件,请 登录

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

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

#4
adffdda2016-05-27 12:59
不错,学习了
#5
adffdda2016-05-27 13:01
写的不错!!

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

#6
lsj2533072020-01-08 16:31
不咋地,我照做excel里面没有数据
1