excel 问题

Question

如何从打开excel，并从中读取相应的数据，关键是打开数据文件，不能使用getobject(FileName)这个函数，因为，这个效率特别慢。谢谢，需要源代码！

Answer 1

先要引用
ado,adox,excel 9.0 library
1.获得表名
'=================
Dim cnRepair As New ADODB.Connection
    Dim rsRepair As New ADODB.Recordset
    Dim strRepair As String
    strRepair = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & app.Path & "\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
    cnRepair.Open strRepair
    Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = cnRepair
    For i = 0 To cat.Tables.Count - 1
        'If cat.Tables.Item(i).Type = "table" Then
            Debug.Print cat.Tables.Item(i).Name
        'End If
    Next
'=================
2.这个是你想要的
    Dim RDate As String
    Dim Id As String
    Dim Card As String
    Dim RepairCard As String
    CommonDialog1.CancelError = True
    On Error GoTo err
    CommonDialog1.Filter = "Excel Files (*.xls)|*.xls"
    CommonDialog1.ShowOpen
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    Dim xBook As Excel.Workbook
    Dim xSheet As Excel.Worksheet
    Set xBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
    Set xSheet = xBook.Worksheets(1)
    With xSheet
        nRows = .Cells(2, 1).CurrentRegion.Rows.Count
        'nCols = .Cells(2, 1).CurrentRegion.Columns.Count'没有空格时候的行列数
        For i = 1 To nRows
            If .Cells(i, 2) = "企业金税卡" Then
               Card = "QJSK"
            ElseIf .Cells(i, 2) = "企业IC卡" Then
                Card = "QICK"
            End If
            Id = Trim(.Cells(i, 3))
            RDate = Date
            RepairCard = "update qk set status=15 where id='" & Id & "' and type='" & Card & "' and used = 1 and  (status = 1 or status=22 or status=41) "
            cn.Execute RepairCard
            cn.Execute "insert into qk(type,id,status,editdate,used) values('" & Card & "'),'" & Id & "',15,'" & RDate & "',1"
        Next
        MsgBox "已将CIS系统的维修卡号设置完毕！", , "送修单"
    End With
    xlApp.Quit
err:
    Exit Sub
'===========================