我想用vb读取一个excel文件(D:\a.xlsx),获取f1,f2,f3...一直到f50的内容，并显示在窗体的textbox控件内，应该如何实现呢

[此贴子已经被作者于2016-12-5 11:02编辑过]

你百度 VB6 操作 EXCEL 吧。

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

首先添加引用：在工程中引用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

其实使用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

运行情况：