Question

问个VB高手excel和listview的问题

在D盘下有个叫5的excel表，我想这把个表里的第一行第一列的那个数据即A1导入到listview1的第一行第一列中,比如A1的值是56吧，请问怎么才能导过去呢？

Answer 1

假如你其它代码已经全部写完
....
listview1.ListItems.Add , ,xlapp.worksheets(1).range("a5")'这个地方必须使用listview的add方法来确定行的首元素
而下面紧跟的 则是行的第二个元素 赋内容方法则是不同的
listview1.ListItems(1).SubItems(1) =xxx
'第一行的第二个元素(含首元素)
这两行通常一块使用
....
如果代码没全部完成 情看下面
首先需要引用Microsoft Excel Object Library
如果是VB6的话，是工程-引用-Microsoft Excel 11.0 Object Library

Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "d:\5.xls"
Set xlBook = xlExcel.Workbooks("5.xls")
Set xlSheet = xlBook.Worksheets(1)
listview1.listitem.Add , , xlSheet.Cells(1, 1).Value 'range("a1)
listview1.ListItems(1).SubItems(1) = "我是第 2 元素"
Application.DisplayAlerts = False
xlBook.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub