我是一个初学者，想将EXCEL表格的内容导入VB表格中，然后从VB表格中提取到程序中使用，或者使用程序修改这个VB表格，现在最基本的就是怎么将EXCEL表格中的内容导入VB表中，请大神指导！！！

方法一、按照你说的这个方法
首先从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表格不就是程序的一个界面？

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

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

不错，学习了

写的不错！！

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

不咋地，我照做excel里面没有数据