求壹段關於VB中和Excel的程序。

Private Sub Command1_Click()

Dim xlApp As Object '定義Excel應用程序對象

Dim xlBook As Object '定義工作簿對象

Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象

Set xlBook = xlApp.Workbooks.Open(App.Path & "\Book1.xls") '打開已經存在的EXCEL工件簿文件

'xlApp.Visible = True '設置EXCEL對象可見（或不可見）

Dim i As Integer, n As Integer

For i = 1 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count 'Sheet1 的總行數

ListView1.ListItems.Add , , i

For n = 1 To xlBook.Worksheets("Sheet1").UsedRange.Columns.Count 'Sheet1 的總列數

ListView1.ListItems(i).SubItems(n) = xlBook.Worksheets("Sheet1").Cells(i, n) 'Sheet1 的 i行n列中的數據

DoEvents

Next n

Next i

'xlBook.Worksheets("Sheet1").Cells(i + 1, 1) = Now

xlBook.Close

xlApp.Quit '結束EXCEL對象

End Sub

'Microsoft Windows Common Controls 5.0 (SP2) ?ListView1

Private Sub Form_Load()

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "序號", 700

ListView1.ColumnHeaders.Add , , "a", 1200

ListView1.ColumnHeaders.Add , , "b", 1200

ListView1.ColumnHeaders.Add , , "c", 1200

ListView1.ColumnHeaders.Add , , "d", 1200

ListView1.ColumnHeaders.Add , , "e", 1200

ListView1.FullRowSelect = True '可以選中壹整行

ListView1.GridLines = True ?'顯示表格

End Sub

''給妳個例子

''Excel文件大的話VB打開都要壹大半天,我是想說用這個速度太慢了哦,

下面是打開的效果