小编Sha*_*han的帖子

我正在通过VBA创建一个简单的Pivot表.我不知道我的代码有什么问题.我的代码运行没有错误,但结果是不同的.你能否告诉我我的代码中的问题在哪里？

Sub CreatePivotTable()

Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String

'Determine the data range you want to pivot
  SrcData = ActiveSheet.Name & "!" & Range("A1:B53821").Address(ReferenceStyle:=xlR1C1)

'Create a new worksheet
  Set sht = Sheets.Add

'Where do you want Pivot Table to start?
  StartPvt = sht.Name & "!" & sht.Range("A1").Address(ReferenceStyle:=xlR1C1)

'Create Pivot Cache from Source Data
  Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=SrcData)

'Create Pivot table from Pivot Cache
  Set pvt …

更新：我正在尝试使用屏幕截图（链接）中显示的架构创建 XML。有人告诉我如何添加关系来实现此目的或修改数据表来实现此目的吗？

        Data_Set.Relations.Add("ProdCategory", tbl_Product.Columns("pID"), tbl_Category.Columns("cID"))
    Data_Set.Relations("ProdCategory").Nested = True

    Data_Set.Relations.Add("CatogoryItems", tbl_Category.Columns("cID"), tbl_Items.Columns("iID"))
    Data_Set.Relations("CatogoryItems").Nested = True

    'Data_Set.Relations.Add("ProdItems", tbl_Product.Columns("pID"), tbl_Iems.Columns("iID"))
    'Data_Set.Relations("ProdItems").Nested = True

我被上面的代码困住了。

而且我应该能够使用 read xml 将 xml 读回数据集。

循环遍历一个范围 Vs 将相同的范围分配给一个数组并循环一个数组时，性能（速度）会有什么不同吗？

我正在尝试从字典中删除已经从组合框中选择的项目。我有以下代码，但我不知道问题是什么。它在 d2("v" & cbnr).Remove (ss) 处给了我一个对象所需的错误。

a 是一个数组。

Sub cb_pop2(cbnr As Integer)
Dim i, j As Integer
Dim d2 as object
Dim ss as string    

Set d2 = CreateObject("Scripting.Dictionary")
d2("v" & cbnr) = a

For i = cbnr To 5
UserForm1.Controls("ComboBox" & i).Clear

    For j = cbnr To i
        ss = UserForm1.Controls("ComboBox" & j - 1).Value
        d2("v" & cbnr).Remove (ss)
    Next j
    UserForm1.Controls("ComboBox" & i).List = d2("v" & cbnr).keys
    UserForm1.Controls("ComboBox" & i).ListIndex = 0
Next i

End Sub