求一段关于VB中和Excel的程序。

2024-11-02 19:31:42

推荐回答（3个）

回答（1）：

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打开都要一大半天,我是想说用这个速度太慢了哦,

下面是打开的效果

回答（2）：

2000人的群，名称是VB人生号148317126，去那里问问

回答（3）：

你要经过怎么样的分析，想输出什么样的结果，你自己能看明白的要做什么吗