求教如何用vb读取excel文件内容 - 编程论坛

#2

风吹过b2016-12-05 11:22

你百度 VB6 操作 EXCEL 吧。

本来有二种方法的，一是操作 EXCEL，一是使用 ADO，但你需要从F1开始读取，而ADO方法好像会把F1自动当作标题，与你的要求不符。

#3

xiangyue05102016-12-05 13:48

首先添加引用：在工程中引用Microsoft Excel类型库从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000）其他版本的excel，9.0这个编号不同而已
下面是一段示例代码，自己看懂了之后修改吧

程序代码：

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("D:\a.xlsx") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

dim a as double

a= xlsheet.range("A1").Value

'或者 xlsheet.Cells(1, 1).Value

#4

ZHRXJR2016-12-05 23:12

其实使用ADO对象非常简单：

程序代码：

Private Sub Form_Load()
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset, XX As Integer
List1.Clear
List1.AddItem "行号" & Space(5) & "F列内容"
cn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & App.Path & "\A.xlsx"
RS.Open "Select * FROM [Sheet1$]", cn, 3, 2
Do While Not RS.EOF And XX < 50
XX = XX + 1
List1.AddItem XX & Space(8) & RS.Fields(5)
RS.MoveNext
Loop
RS.Close
cn.Close
End Sub

运行情况：

只有本站会员才能查看附件，请登录