取得excel文件所有內(nèi)容：

'add microsoft ado frist.
Private Sub Command2_Click()
    Dim adoConnection As New ADODB.Connection
    Dim adoRecordset As New ADODB.Recordset
    CommonDialog1.ShowOpen
    'OLE DB + ODBC Driver 方式:
    'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls"
    'Microsoft.Jet.OLEDB.4.0 方式,(建?)
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
   
    adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
    Debug.Print adoRecordset.RecordCount
    Dim i As Integer
    Do Until adoRecordset.EOF
        For i = 0 To adoRecordset.Fields.Count - 1
            Debug.Print adoRecordset.Fields.Item(0).Name
            Debug.Print adoRecordset.Fields.Item(0).Value
        Next i
        adoRecordset.MoveNext
    Loop

End Sub
 

但還不知道如何取得sheet名，不好意思，那位老鳥知道請告知，謝謝

sheet名用Excel.Application對象

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C;\123.xls"))

For i = 1 To intSheetSum
    strTemp=xlBook.Worksheets(i).name
Next i
Dim xlsconn As New ADODB.Connection
Dim xlscmd As New ADODB.Command
Dim rs As New ADODB.Recordset
xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.xls;Extended Properties=HTML EXPORT;Persist Security Info=False"
xlsconn.Open
Set rs = xlsconn.Execute("select * from [sheet1]")
set mshflexgrid.datasource=rs
rs.close
mshflexgrid.refresh

Dim xlsconn As New ADODB.Connection
Dim xlscmd As New ADODB.Command
Dim rs As New ADODB.Recordset
xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.xls;Extended Properties=excel 8.0;Persist Security Info=False"
xlsconn.Open
Set rs = xlsconn.Execute("select * from [sheet1]")
set mshflexgrid.datasource=rs
rs.close
mshflexgrid.refresh
 

(責(zé)任編輯：admin)

• ·Excel VBA編輯語句集300條
• ·【技巧】excel文件破解密碼
• ·【Excel VBA】FileDialog 用法之 打開
• ·VBA修改ACCESS及EXCEL安全設(shè)置(源碼)
• ·實(shí)用的GET函數(shù)
• ·日期改為顯示星期幾的自定義涵數(shù)
• ·VBA在Excel 2000中的應(yīng)用一例
• ·ActiveX在Excel中的運(yùn)用
• ·檢查重復(fù)字段值的方法
• ·Excel中 BASIC 程序的運(yùn)行
• ·Excel XP中圖片的智能刷新
• ·Excel成績分析處理程序
• ·創(chuàng)建自己的EXCEL函數(shù)
• ·用Excel制作公交向?qū)?/a>
• ·使用ADO獲取外部數(shù)據(jù)
• ·Excel中如何編程判斷字符顏色