VB中listview导出excel?

发布网友发布时间：2024-10-23 19:07

共1个回答

热心网友时间：2024-10-23 20:57

For i = 1 To Me.ListView1.ListItems.Count - 1
xl.Range("A" & i + 1).Value = Me.ListView1.ListItems(i).Text
xl.Range("B" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(1)
xl.Range("C" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(2)
xl.Range("D" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(3)
xl.Range("E" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(4)
xl.Range("F" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(5)
xl.Range("G" & i + 1).Value = Me.ListView1.ListItems(i).SubItems(6)
xl.Range("H" & i + 1).Value = FormatStr(Me.ListView1.ListItems(i).SubItems(7))
Next i
xl.Visible = True

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com