如何通过ListView写入数据,点击保存到工作表?

opiona

看了兰色幻想的ListView教学

但是只能用ListView读取工作表,

如何直接在ListView填写数据,然后保存ListView的数据到工作表??

opiona

自己顶一下

难道listview只能显示工作表已有的数据??

我的意思是: 打开窗体,listview里面是空的,

在listview中填写数据,将数据按照顺序保存到工作表中

stx1980710

QUOTE:

以下是引用opiona在2006-11-20 17:01:38的发言：

自己顶一下

难道listview只能显示工作表已有的数据??

我的意思是: 打开窗体,listview里面是空的,

在listview中填写数据,将数据按照顺序保存到工作表中

直接可能不行！

可以变通一下，通过文本框增加到listview中，然后保存到工作表中！

opiona

愿闻其详

青山依旧

可搜索"ListView"

opiona

多谢各位关注:

On Error Resume Next
   For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
    With Sheet1
 k = .Range("A65536").End(xlUp).Row
       .Cells(k + 1, 1) = ListView1.ListItems(i)
       .Cells(k + 1, 2) = ListView1.ListItems(i).SubItems(1)
       .Cells(k + 1, 3) = ListView1.ListItems(i).SubItems(2)
            End With
    End If
  Next i
 ListView1.ListItems.Clear

viclice

opiona 发表于 2006-11-23 09:19
多谢各位关注:On Error Resume Next   For i = 1 To ListView1.ListItems.Count  &nbs ...

你这个方法行吗？我遇到了同样的问题，但执行你的这段代码时，总是提示ListView不具备ListView1.ListItems(i)这个属性

tanglf188

先读入字典，再统一由字典写入工作表
例：从列表导出数据至字典：导出复选框为True的行数据。
        Dim d As Object, arr(), i&, j&
        Set d = CreateObject("Scripting.Dictionary")
        If Me.ListView1.ListItems.Count = 0 Then Exit Sub
        For i = 1 To Me.ListView1.ListItems.Count
            If Me.ListView1.ListItems(i).Checked Then
                ReDim arr(1 To Me.ListView1.ColumnHeaders.Count)
                arr(1) =  Me.ListView1.ListItems(i).Text
                For j = 2 To Me.ListView1.ColumnHeaders.Count
                    arr(j) = Me.ListView1.ListItems(i).SubItems(j - 1)
                Next
                k = k + 1
               d(k) = arr
            End If
        Next
        If k = 0 Then
            MsgBox "无检索数据！"
            Exit Sub
        End If

opiona

这么久远的东西 都有人能翻出来!
暴露了我的年龄

wanao2008

opiona 发表于 2023-5-23 23:15
这么久远的东西 都有人能翻出来!
暴露了我的年龄

孩子都上大学了