如何将一EXCEL中的内容读到ListView中啊，急，在线等！！！

Question

谢谢了，最主要是如何将一EXCEL中的内容读进来！！！

Answer 1

我是这么做的
set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("excel文件名") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets("sheet1")
xlSheet.Activate '激活工作表
With xlApp.ActiveSheet
    strTest1 = .Cells(1, 2)'第几行读入变量
Next i
End With

Answer 2

我还是重新发下，第一次回答问题，实在是激动万分，以至于手指痉挛，请见谅！
你没说用什么语言，我就会点VB，
set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("excel文件名") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets("sheet1")
xlSheet.Activate '激活工作表
With xlApp.ActiveSheet
    strTest1 = .Cells(1, 2)'读第2行，第1例，读入变量strTest1
End With上天保佑这次不要再错，阿门!