用<em>VB</em>编写一个导入<em>EXCEL</em>文件数据

提供一段用e799bee5baa6e4b893e5b19e362于操作Excel表格的代码参考：

Private Sub openExcel()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" _
    & fileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
    Adodc1.RecordSource = "select * from [Sheet1]"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    Set DataGrid2.DataSource = Adodc1
    zsl = Adodc1.Recordset.RecordCount
    ReDim sinYH(zsl)
    Adodc1.Recordset.MoveFirst
    ReDim sinXH(19, 1 To zsl)
    For j = 1 To zsl
        sinYH(j) = Adodc1.Recordset("M000")
        For i = 1 To 6
            sinXH(i, j) = Adodc1.Recordset(i + 1)
        Next i
        Adodc1.Recordset.MoveNext
    Next
    Text1 = sinYH(zsl)
    Text2 = sinXH(1, zsl)
    Timer1.Enabled = True
End Sub

操作方法如下：
　　1、导入Excel数据，同时创建表:
　　select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]')。
　　2、在e69da5e887aae79fa5e98193334表中插入Excel数据：
　　insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路径','select * from [Excel表名(默认为Sheet1)$]')。
　　3、导出数据到Excel中：
　　insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]') select * from 表名；需要创建Excel文件并指定列名后才可以导出。

首先需要在工程中引用Microsoft Excel Object Library

代码参照下边的例子

Dim sA, sB, sC, sD, sE, sF, sG, sH, sName, sDistrictName, sDepName, sDepNameOld, sDepID, sParentID, sFeeID
Dim oRdA As New ADODB.Recordset
Dim oRdB As New ADODB.Recordset
Dim oXl As Excel.Application
Dim oWb As Workbook
Dim oWs As Excel.Worksheet
Dim iA, iB, iC, iD, iError
Dim lCount
Dim bExcelRunning 'Excel是否已运行

If mlErrors <> 0 Then
MsgBox "请先检查导入数据e799bee5baa6e997aee7ad94e58685e5aeb9362的正确性！检查通过后方可进行导入！", vbOKOnly, "系统提示"
Exit Sub
End If
'0 要求对数据导入进行确认
'1 获得导入的数据源并打开
'1.1获得导入的数据源

sName ="你的excel文件名全路径"

If sName = "" Then Exit Sub
sA = Dir(sName, vbNormal)
If sA = "" Then Exit Sub
'1.2 打开数据源
Screen.MousePointer = vbHourglass
On Error GoTo ConnectError
lblInfo.Caption = "打开数据源"
Set oXl = GetObject("", "Excel.Application")
Set oWb = oXl.Workbooks.Open(sName)

lblInfo.Caption = "连接数据库"
'2 打开数据库连接
sA = "Provider=SQLOLEDB; Data Source=数据库服务器ID,1433; Network Library=DBMSSOCN;" & _
";Initial Catalog=数据库名;User ID=用户ID;Password=密码"
'oracle方式

' sA = "Provider=OraOLEDB.Oracle;Data Source=net服务名;User Id=用户ID;Password=密码"

goConnect.ConnectionString = sA
goConnect.Open

On Error GoTo Morn

'4 清理数据库
's_ClearAllTable '调用清理数据库过程把以前数据清理掉
'5 导入信息
Set oWs = oXl.Worksheets(1)

'.2开始数据导入 1万行一提交

goConnect.BeginTrans

With oWs
For iA = 2 To Prb.Max

lCount = lCount + 1
sA = "insert into department(DEPID,DEPNAME,DEPCODE,depCompleteName,depAddress,deleted) values('" & _
CStr(lCount) & "','" & .Cells(iA, 2) & "','" & .Cells(iA, 1) & "','" & .Cells(iA, 4) & _
"','" & .Cells(iA, 3) & "',0)"
goConnect.Execute sA

Next

End With
goConnect.CommitTrans