VB中如何调用EXCEL中的数据然后在VB中计算在VB中输出结果，能否提供一段源代码

来源：百度知道 编辑：UC知道 时间：2024/06/26 02:00:30
现在是想用Excel作为VB的数据库进行操作，看到网上有很多写的不是很清楚。
例如已经写好的Excel文件，要求读入其中第二列和第三列数据在VB中进行计算，优选出符合一定条件的数据把原表中第一列数据和算出来的数据列在VB中。
此程序怎么编写？

点击工程>引用 把M EXCEL11.0...哪项点上，类似DAO或ADO用法可以参见帮助，简单说就是他提供了许多类，分别对应不同的EXCEL元素如单元格等，通过类方法或属性来操作目标EXCEL，随便下一本vb数因该有介绍DAO的操作EXCEL类似！

下面的程序段是从我设计的程序中复制出来的，你参考参考吧。实际使用时还需要挑选修改。

'读取工作表的内容
Dim xlsAPP As Excel.Application '对EXCEL的引用
Dim ExcelIsRuning As Boolean 'EXCEL是否已经运行
Dim BookPay As Excel.Workbook
Dim SheetPay As Excel.Worksheet
Dim nRow As Long, nCol As Long

Dim xlsFile As String

'检查此文件是否还存在
xlsFile = Dir(txtFile.Text)
If xlsFile = "" Then
OpenExcel = False
lblTiShi.Caption = ""
Exit Function
Else
xlsFile = txtFile.Text
End If

'打开EXCEL程序
On Error Resume Next
If IsOpenning Then
BookPay.Close
Else
Set xlsAPP = GetObject(, "Excel.application")
If Err.Number <> 0 Then