使用vba生成汇总多个工作簿的多工作表数据透视表SQL命令文本[46楼有更新]

prozm123

fghcgdfgdgdfgd

LMY123

For Each tb1 In cat.Tables

plsbee

谢谢，学习了

paul1115

感谢楼主分享，小弟有个问题请教楼主和各位大佬：因为不同的工作簿中的工作表标题字段有30多个，甚至更多，原来的窗体无法全部显示出来，不方便勾选所需标题，要是能把附图绿色圈起来的部分，有个“拖动杆”可以实现看到所有的标题字段就方便筛选了，比如拖动可见40个标题，使用者可以视情况只勾选需要的比如15个标题。
不知道这样的功能要如何来实现？
谢谢各位：）

paul1115

呼唤大神帮忙啊，谢谢！

zhaogang1960

paul1115 发表于 2019-3-6 01:27
感谢楼主分享，小弟有个问题请教楼主和各位大佬：因为不同的工作簿中的工作表标题字段有30多个，甚至更多， ...

Private Sub UserForm_Initialize()
    If d.Count > 20 Then Me.Width = Me.Width + WorksheetFunction.RoundUp((d.Count - 20) / 2, 0) * 60 '新加，如果标题字段大于20个，则相应加宽窗体宽度
    With ListView1 '为ListView1设置标题
        .ColumnHeaders.Clear
        .View = lvwReport
        .Gridlines = True
        .LabelEdit = lvwManual
        .CheckBoxes = True
        .ColumnHeaders.Add , , " 工作簿", 145
        .ColumnHeaders.Add , , "工作表", 70
    End With
    TextBox1.MultiLine = True '文本框多行
    TextBox2.MultiLine = True '文本框多行
End Sub

paul1115

zhaogang1960 发表于 2019-3-7 23:34
Private Sub UserForm_Initialize()
    If d.Count > 20 Then Me.Width = Me.Width + WorksheetFunctio ...

哇，太激动了，感谢赵老师百忙之中抽空回复。小弟是VBA白痴一个，看了老师帮忙添加的代码，猜测意思是若表头字段多了就增宽窗体显示（图1）。
或许是我的意思没有表达清楚，碍于不会Excel VBA，只能自己动手用笔画一个示意图（图2），即当字段多的时候，原窗体无需自动变宽，直接在有滚动条控制的Frame1中显示即可，通过滚动条拖动，即可一览全部的字段。

不知道如何来实现呢？谢谢赵老师指点
另附我是用的工作簿，您操作及可看到如图1的显示

zhaogang1960

paul1115 发表于 2019-3-17 14:00
哇，太激动了，感谢赵老师百忙之中抽空回复。小弟是VBA白痴一个，看了老师帮忙添加的代码，猜测意思是若 ...

动态添加控件，滚动条不好实现，下面程序根据字段数自动调整高度，以多行显示：
Private Sub UserForm_Activate()
    Dim l%, m%, n%, i%, h%
    CheckBox100.Value = True
    l = WorksheetFunction.RoundUp(d.Count / 2, 0)
    If d.Count > 20 Then '新加
        h = WorksheetFunction.RoundUp(d.Count / 10, 0)
        l = WorksheetFunction.RoundUp(d.Count / h, 0)
        Me.Height = Me.Height + (h - 2) * 30
        Frame1.Top = Frame1.Top + (h - 2) * 30
        ListView1.Height = ListView1.Height + (h - 2) * 30
    End If
    For i = 0 To d.Count - 1 '逐个字段添加动态复选框
        m = i Mod l '求余数,决定控件的横坐标
        n = Int(i / l) * 24 '控件的纵坐标增量
        With Controls.Add("Forms.CheckBox.1", "CheckBox" & i + 2, True) '添加动态复选框
            .Move 250 + 60 * (m + 1), 1 + n '前面是X(距左边的距离)，后面是Y(距上边的距离)
            .Caption = d.Keys(i) '显示字段名
            .Width = 60 '宽度
            .Height = 30
        End With
    Next
    If dic.Count = 1 Then '全部工作表列数相同
        CheckBox1.Value = True
    Else '列数不同
        CheckBox1.Enabled = False '“*”复选框无效
        CheckBox101.Value = True '全部字段
    End If
    If flag Then CheckBox102.Enabled = False
End Sub

zhaogang1960

请看效果图和附件：



Help.rar (518.45 KB, 下载次数: 29)

2019-3-17 18:21 上传

点击文件名下载附件

paul1115

让字段根据数量动态显示，一样解决问题，殊途同归！多谢赵老师出手相助：）
您出品的这个神奇的工具真的在日常工作中帮了我们大忙呢，为您这种真正的互联网分享精神点赞，感谢！