excel求助，单元格内容弄到类似listview控件里。

以下是VB中的代码，不是Excel表中的。VB中建立Listview1，不需作任何其他设置，代码如下。单击窗体查看效果。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Option Explicit

Dim sht As Object

Private Sub Form_Click()

Dim i As Object

For Each i In sht.[A5:F5]

ListView1.ColumnHeaders.Add Text:=IIf(Len(i.Text), i.Text, i.Offset(-1).Text)

Next

For Each i In sht.[A6:A7] 'A7可以扩充为你的表的最下面一行

ListView1.ListItems.Add Key:="K" &i.Row, Text:=i.Text

Next

For Each i In sht.[B6:F7] '这里的F7也是，扩充为你需要的

ListView1.ListItems("K" &i.Row).SubItems(i.Column - 1) = i.Text

Next

End Sub

Private Sub Form_Load()

ListView1.View = lvwReport

Set sht = CreateObject("Excel.Application").Workbooks.Open("d:\z\1.xls").Worksheets(1) '这里有文件路径

End Sub

Private Sub Form_Unload(Cancel As Integer)

sht.Application.Quit

Set sht = Nothing

End Sub

listview是可将项目组成带有或不带有列标头的列，可以显示图标和文本。它不是列表控件，不能形成列表。

如果你需要将Excel导入到控件，建议你使用数据显示控件，例如：DataGri、MSFlexGrid之类的控件。

---