一个和excel相关的问题
最近想通过调用excel来读入数据
然后在listview1控件中显示所读入的数据
如:
密度 导热率
第一种材料 1 1
第二种材料 2 2
不知道如何实现
读入数据之后,如何调用呢
非常感谢
[解决办法]
Private ExcelName As String
Private xlsApp As Object
Private xlsWorkbooks As Object
Private xlsWorksheets As Object
Private DataInput As String
Private Sub Command1_Click()
CommonDialog1.CancelError = False
CommonDialog1.Filter = "XLS|*.XLS "
CommonDialog1.FileName = " "
CommonDialog1.ShowOpen
ExcelName = CommonDialog1.FileName
If ExcelName = " " Then Exit Sub
'创建一个Excel应用对象
Set xlsApp = CreateObject( "Excel.Application ")
'指定要打开的文档
Set xlsWorkbooks = xlsApp.Workbooks.Open(ExcelName)
'指定要打开的工作表
Set xlsWorksheets = xlsWorkbooks.Worksheets(1)
DataInput = Trim(xlsWorksheets.Cells(1, 2))
ListView1.ListItems.Add 1
ListView1.ListItems.Item(1).SubItems(1) = DataInput
DataInput = Trim(xlsWorksheets.Cells(1, 3))
ListView1.ListItems.Item(1).SubItems(2) = DataInput
'读取其他内容并添加至listview控件
.....
'关闭文档:
'退出Excel:
xlsApp.DisplayAlerts = False
xlsWorkbooks.Close
xlsApp.Quit
Set xlsWorksheets = Nothing
Set xlsWorkbooks = Nothing
Set xlsApp = Nothing
End Sub
不要忘了添加相关的引用和组件
加分1!!!!