| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2840 人关注过本帖, 1 人收藏
标题:请问如何在VB中将excel里的数据导入到listview
只看楼主 加入收藏
anjing572
Rank: 1
等 级:新手上路
帖 子:28
专家分:1
注 册:2007-7-7
结帖率:100%
收藏(1)
已结贴  问题点数:10 回复次数:3 
请问如何在VB中将excel里的数据导入到listview
请问如何在VB中将excel里的数据导入到listview
搜索更多相关主题的帖子: excel listview 中将 数据 
2010-10-11 11:43
W11400661
Rank: 8Rank: 8
来 自:达拉达斯
等 级:蝙蝠侠
威 望:2
帖 子:163
专家分:834
注 册:2008-10-12
收藏
得分:0 
打开EXCEL,读一行添加一行
是所有的都不会还是某地方不会?
2010-10-12 21:18
anjing572
Rank: 1
等 级:新手上路
帖 子:28
专家分:1
注 册:2007-7-7
收藏
得分:0 
哥哥,给个例子吧,谢谢
2010-10-13 09:57
W11400661
Rank: 8Rank: 8
来 自:达拉达斯
等 级:蝙蝠侠
威 望:2
帖 子:163
专家分:834
注 册:2008-10-12
收藏
得分:10 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim itmx As ListItem
Private Sub Command1_Click()
Dim i As Integer
Set xlApp = CreateObject("Excel.Application") '创建
xlApp.Visible = True '设置可见,如不可见设为false  
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls")
Set xlsheet = xlBook.Worksheets(1)   
xlsheet.Activate '激活
ListView1.ColumnHeaders.Clear'清空列头
ListView1.ListItems.Clear’清空内容
For i = 1 To xlsheet.UsedRange.Cells.Columns.Count
ListView1.ColumnHeaders.Add , , xlsheet.Cells(1, i), 1500’添加列头
Next
For i = 2 To xlsheet.UsedRange.Cells.Rows.Count’添加内容
Set itmx = ListView1.ListItems.Add()
itmx.Text = xlsheet.Cells(i, 1)  
For j = 2 To xlsheet.UsedRange.Cells.Columns.Count - 1
itmx.SubItems(j - 1) = xlsheet.Cells(i, j)
Next
Next
End Sub

判断文件存在否,打开否,关闭释放等操作自己完善,
2010-10-13 20:37
快速回复:请问如何在VB中将excel里的数据导入到listview
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017926 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved