For i = 1 To lvwLog.ColumnHeaders.Count '获取标题 ' Next i
这是我写的程序的一部分,是导出listview中的每一行,包括标题在内 '获取日志中的内容 For i = 1 To lvwLog.ColumnHeaders.Count '获取标题 nLine = nLine & lvwLog.ColumnHeaders.Item(i) & vbTab Next i nLine = nLine & vbCrLf '换行符
For i = 1 To lvwLog.ListItems.Count '获取日志的每一行 Set nlst = lvwLog.ListItems.Item(i) nLine = nLine & lvwLog.ListItems.Item(i) & vbTab '获取第一列 For j = 1 To nlst.ListSubItems.Count nLine = nLine & nlst.SubItems(j) & vbTab Next j nLine = nLine & vbCrLf '换行符 Next i
'
Next i
For i = 1 To lvwLog.ColumnHeaders.Count '获取标题
nLine = nLine & lvwLog.ColumnHeaders.Item(i) & vbTab
Next i
nLine = nLine & vbCrLf '换行符
For i = 1 To lvwLog.ListItems.Count '获取日志的每一行
Set nlst = lvwLog.ListItems.Item(i)
nLine = nLine & lvwLog.ListItems.Item(i) & vbTab '获取第一列
For j = 1 To nlst.ListSubItems.Count
nLine = nLine & nlst.SubItems(j) & vbTab
Next j
nLine = nLine & vbCrLf '换行符
Next i