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

蓝纸船

这是什么情况，楼主能解决一下吗？
谢谢啦

zhaogang1960

蓝纸船 发表于 2012-12-18 16:08
这是什么情况，楼主能解决一下吗？
谢谢啦

重新引用一次Microsoft Scripting Runtime

蓝纸船

zhaogang1960 发表于 2012-12-18 18:36
重新引用一次Microsoft Scripting Runtime

VBA一窍不通，楼主能指点一下怎样才能“重新引用”吗？
谢啦。
非常喜欢您的这个作品，但2003时时可以用的，升级了2007再用就不行了。
谢了。

蓝纸船

zhaogang1960 发表于 2012-12-18 18:36
重新引用一次Microsoft Scripting Runtime

而且从哪里能调出这个对话框呢？

zhaogang1960

蓝纸船 发表于 2012-12-18 20:49
而且从哪里能调出这个对话框呢？

请看演示：

蓝纸船

zhaogang1960 发表于 2012-12-18 21:06
请看演示：

已经按照版主的方法重新操作，但为什么还是不行呢？
我看了一下，是因为版主的系统安装在D盘而我的是安装在C盘的原因吗？

蓝纸船

zhaogang1960 发表于 2012-12-18 21:06
请看演示：

我的是介个样子的

蓝纸船

不是system32，会是这个问题吗？

jiayibing3

学习了，谢版主

zhaogang1960

蓝纸船 发表于 2012-12-19 08:27
不是system32，会是这个问题吗？

我没有用过64位系统，如果引用不行，可采用后期绑定
一、New Dictionary都改为Object
二、3个程序开始都加上：
    Set d = CreateObject("scripting.dictionary")
    Set ds = CreateObject("scripting.dictionary")
    Set dic = CreateObject("scripting.dictionary")
三、窗体中有用到 d.Keys(i)，要把 d.Keys赋给一个变量k
k=d.keys
.Caption = d.Keys(i)改为.Caption = k(i)

1. Private Sub UserForm_Activate()
   
2.     Dim l%, m%, n%, i%, k
   
3.     CheckBox100.Value = True
   
4.     l = WorksheetFunction.RoundUp(d.Count / 2, 0)
   
5.     k = d.Keys
   
6.     For i = 0 To d.Count - 1 '逐个字段添加动态复选框
   
7.         m = i Mod l '求余数,决定控件的横坐标
   
8.         n = Int(i / l) * 24 '控件的纵坐标增量
   
9.         With Controls.Add("Forms.CheckBox.1", "CheckBox" & i + 2, True) '添加动态复选框
   
10.             .Move 250 + 60 * (m + 1), 1 + n '前面是X(距左边的距离)，后面是Y(距上边的距离)
    
11. '            .Caption = d.Keys(i) '显示字段名
    
12.             .Caption = k(i)
    
13.             .Width = 60 '宽度
    
14.             .Height = 30
    
15.         End With
    
16.     Next
    
17.     If dic.Count = 1 Then '全部工作表列数相同
    
18.         CheckBox1.Value = True
    
19.     Else '列数不同
    
20.         CheckBox1.Enabled = False '“*”复选框无效
    
21.         CheckBox101.Value = True '全部字段
    
22.     End If
    
23.     If flag Then CheckBox102.Enabled = False
    
24. End Sub

复制代码