如何将EXCEL表格中的内容导入VB表中?
我是一个初学者,想将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表格中提取到程序中使用
表述看不懂,VB表格不就是程序的一个界面?