VBA窗体Listview控件完全教程

ivccav

w8899 发表于 2018-10-4 18:52
试了的，导不出,而且附件导出没标题

我刚才又试了一下，是可以导出数据的。前提是复选框要勾选。导出标题也已经帮你加进代码了。



第三、四节完整代码.zip (37.18 KB, 下载次数: 228)

2018-10-4 22:45 上传

点击文件名下载附件

w8899

ivccav 发表于 2018-10-4 22:45
我刚才又试了一下，是可以导出数据的。前提是复选框要勾选。导出标题也已经帮你加进代码了。

老师你那个只能导出到SHEET2 不能导出到新的工作薄？看了半天，原来机关在这句上：Worksheets("sheet1").Activate  （sheeet1）但是添加，删除功能还请老师出手，感觉模糊查询不太灵，我还没搞懂，3，4，5，我修改为1，不起作用，就第一列

w8899

w8899 发表于 2018-10-4 22:57
老师你那个只能导出到SHEET2 不能导出到新的工作薄？

好人作到底，能不能将添加删除功能搞上去，

ivccav

w8899 发表于 2018-10-4 22:58
好人作到底，能不能将添加删除功能搞上去，

需要导出的内容已经放进数组中，无论导出到Sheet2或者新工作簿都只是几句话的事情了，不知道你的具体要求是什么，拿实际附件来，可以看看怎么改。

删除、新增、修改的功能都已经在本帖中有现成的代码了，能同步更新到数据源（数据源可以是工作表或数据库），你可以看最后一节的内容。

我在另一个帖中单独讲了这些问题：http://club.excelhome.net/thread-1423746-1-1.html

w8899

ivccav 发表于 2018-10-4 22:45
我刚才又试了一下，是可以导出数据的。前提是复选框要勾选。导出标题也已经帮你加进代码了。

能来帮忙加上两个功能？在附件里

w8899

ivccav 发表于 2018-10-4 22:45
我刚才又试了一下，是可以导出数据的。前提是复选框要勾选。导出标题也已经帮你加进代码了。

For i = 1 To UBound(arrData, 2)
            .ColumnHeaders.Add , , arrData(1, i), 80 '添加标题，并设置宽度为100。
         Next
            '        如果每列宽度不同，可用数组赋值，也可以用下面方法添加标题并指定宽度：
            .ColumnHeaders.Add , , arrData(1, 1), 80
            .ColumnHeaders.Add , , arrData(1, 2), 120
            .ColumnHeaders.Add , , arrData(1, 3), 120
            .ColumnHeaders.Add , , arrData(1, 4), 30
            .ColumnHeaders.Add , , arrData(1, 5), 40
            .ColumnHeaders.Add , , arrData(1, 6), 40
            .ColumnHeaders.Add , , arrData(1, 7), 60
            .ColumnHeaders.Add , , arrData(1, 8), 60
            .ColumnHeaders.Add , , arrData(1, 9), 60
            .ColumnHeaders.Add , , arrData(1, 10), 40
            '……………………………………………………
          For i = 2 To UBound(arrData)
               With .ListItems.Add
                  .Text = arrData(i, 1)
                  For j = 2 To UBound(arrData, 2)
                      .SubItems(j - 1) = arrData(i, j)
                 Next
              End With
            Next
        End With
        Worksheets("sheet1").Activate
    End Sub
我要控制列宽这代码怎么办？

w8899

ivccav 发表于 2018-10-4 22:45
我刚才又试了一下，是可以导出数据的。前提是复选框要勾选。导出标题也已经帮你加进代码了。

附件已上传，请帮忙，谢谢

ivccav

w8899 发表于 2018-10-5 12:48
附件已上传，请帮忙，谢谢

最近都没有空，没有电脑，只有手机。你就可以试试单独开个提问贴，大家都会热心帮忙的。我至少要12号以后才能用电脑了，到时候再看看。

w8899

ivccav 发表于 2018-10-6 21:04
最近都没有空，没有电脑，只有手机。你就可以试试单独开个提问贴，大家都会热心帮忙的。我至少要12号以后 ...

基本上解决了，用了另外的办法，就是在上面加几个复选框进行添加，但是右键删除所勾选的数据这个功能无法组合，谢谢你了，我不急。，另外导出数据这个我采用的办法是，启动导出时，先用宏打开SHHET1，再启动导出宏，完后连续启动删除宏将sheet1临时存放的数据进行清除。但是我想的是就是在保存时提示保存位置可选，不是保存在工作薄文件夹下，至于Worksheets("sheet1").Activate这句我就不要了，就让它启动窗体 时和对应的工作表一致。导出代码变通如下：
Private Sub CommandButton1_Click()
    导出的数据表（打开临时存放的工作表sheet1)
    ExportData（导出数据的宏）
    Macro1（启动导出在sheet1工作表上的数据）
    清除数据（清除sheet1上的数据，为下次导出作准备）
    A_订货单（完后打开固定的工作表）
End Sub

w8899

w8899 发表于 2018-10-6 21:14
基本上解决了，用了另外的办法，就是在上面加几个复选框进行添加，但是右键删除所勾选的数据这个功能无法 ...

Private Sub CommandButton1_Click()
    导出的数据表
    ExportData
    Macro1
    清除数据库
    A_订货单
End Sub