Private Sub Form_Load()
Dim con As Object
Dim rs As Object
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='F:\订单一览表.xls';Extended Properties='Excel 8.0;HDR=Yes'"
con.Open
Sql = "select * from [Page1$]"
rs.Open Sql, con, 3, 3

Do While Not rs.EOF
Set Item = ListView1.listitems.Add()
Item.Text = rs.fields(0)
For i = 2 To rs.Recordcount - 1
Item.SubItems(1) = rs.fields(i)
Next
rs.movenext
Loop

rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub

Item.SubItems(1) = rs.fields(i) 提示无效的属性值，哪里出的问题，请各位帮忙指导下，小弟新手，谢谢。

[ 本帖最后由 xxyyx82 于 2015-7-19 20:24 编辑 ]

在listitem.add前应该ListView1.ColumnHeaders.Add, 把字段名称给ListView
For i = 2 To rs.Recordcount - 1'此处应该是每条记录的列数,而不记录数
  Item.SubItems(1) = rs.fields(i)'subitem后括号内应该是个变量,不是1
Next
比如

Private Sub Form_Load()
  Dim con As Object
  Dim rs As Recordset
  Dim itm
  Set con = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source='e:\test.xlsx';Extended Properties='Excel 8.0;HDR=Yes'"
  con.Open

  Sql = "select * from [sheet1$]"
  rs.Open Sql, con, 3, 3
  For i = 1 To 5
    ListView1.ColumnHeaders.Add , , i, ListView1.Width / 5, 0
  Next
  Do While Not rs.EOF
    Set Item = ListView1.ListItems.Add()
    Item.Text = rs.Fields(0)
    For i = 1 To 2
      Item.SubItems(i) = rs.Fields(i)
    Next
    rs.MoveNext
  Loop

  ListView1.View = lvwReport
  ListView1.GridLines = True
  rs.Close
  Set rs = Nothing
  con.Close
  Set con = Nothing
End Sub