首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

无法使用Collection.add使用自定义对象填充VBA集合

在VBA中,Collection对象是一种用于存储和管理数据的容器。它类似于数组,但与数组不同的是,Collection可以存储任意类型的数据,并且可以根据键值对来访问和操作数据。

然而,在VBA中,Collection对象只能存储基本数据类型(如整数、字符串等),而无法直接存储自定义对象。这是因为Collection对象是基于VBScript的Dictionary对象实现的,而VBScript不支持直接存储自定义对象。

要解决这个问题,可以通过将自定义对象的属性值存储到一个字典对象中,然后将字典对象存储到Collection中来实现。具体步骤如下:

  1. 创建一个字典对象,并声明为公共变量或者模块级别的变量,以便在整个代码中都可以访问到它。
代码语言:vba
复制
Dim objDict As Object
Set objDict = CreateObject("Scripting.Dictionary")
  1. 在自定义对象中添加一个方法,用于将对象的属性值存储到字典对象中。
代码语言:vba
复制
Public Sub AddToDictionary()
    objDict.Add "属性1", 属性1的值
    objDict.Add "属性2", 属性2的值
    ' 添加其他属性
End Sub
  1. 在代码中创建自定义对象的实例,并调用AddToDictionary方法将属性值存储到字典对象中。
代码语言:vba
复制
Dim objCustom As CustomObject
Set objCustom = New CustomObject
objCustom.AddToDictionary
  1. 将字典对象存储到Collection中。
代码语言:vba
复制
Dim objCollection As Collection
Set objCollection = New Collection
objCollection.Add objDict

这样,你就可以使用Collection对象来存储和管理自定义对象了。

关于VBA集合的更多信息,你可以参考腾讯云的VBA开发文档:VBA开发文档

请注意,以上答案仅针对VBA语言中无法使用Collection.add使用自定义对象填充集合的问题,如果你有其他关于云计算、IT互联网领域的问题,欢迎继续提问。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

Excel VBA解读(150): 数据结构—集合的基本使用

学习Excel技术,关注微信公众号: excelperfect 运用集合,我们可以更高效地完成一些任务。例如,集合的特点就是可以把很多值存储在一个集合中,而不需要使用多个变量来存储这些值。...下图1所示为存储学生分数的工作表,如果使用变量来存储学生的姓名和分数,那会使用很多的变量。 ? 图1 我们可以使用集合来方便地存储这些数据。...colStudents.Add _ Item:=rng.Offset(0, 1).Value, _ Key:=rng.Value Next rng 这样,想要查找某名学生的分数,直接使用代码...: colStudents("韩梅梅") 不必使用循环来一个个查找,非常方便!...还可以从自定义函数中返回集合,如下面的示例代码: Sub Main() '声明集合变量 Dim colTest As Collection Dim item As Variant

3.4K20
  • 使用Comparable和Comparator对Java集合对象进行排序

    在现实生活中,我们可能会遇到需要对集合内的对象进行排序的场景,比如,有一个游戏得分排行榜,如先按照分数的高低由高到低排序,在分数相同的情况下,按照记录创建的时间由早到新的顺序排序。...在Java语言中,要实现集合对象的排序,咱们可以采用如下两种方式来完成: 使用Comparable来实现 使用Comparator来实现 接下来,我们先使用Comparable和Comparator...、结合示例来完成集合对象排序的功能,然后,对这两种方式进行比较;最后,结合多属性排序的话,给出相对较好的实践方法。...,然后我们要做的就是对GameRecord对象集合类进行排序即可,集合的排序可以采用java.util.Collections类的sort方法完成。...Comparable以及Comparator实现对象集合排序的示例,接下来,我们来简单分析一下Comparable和Comparator的区别。

    5.4K10

    Python面向对象编程-自定义异常使用(一)

    自定义异常可用于多种目的。定义文件时,当文件的格式不正确时,我们可以抛出自定义异常来指示错误。在编写网络应用程序时,如果网络请求失败,我们可以抛出自定义异常来指示错误。...在编写数据库应用程序时,如果数据库连接失败,我们可以抛出自定义异常来指示错误。在编写游戏时,如果玩家尝试在不允许的情况下执行某个操作,我们可以抛出自定义异常来指示错误。...下面是一个使用自定义异常的示例,它演示了如何在游戏中处理玩家错误操作:class InvalidMoveError(Exception): def __init__(self, message):...我们还定义了一个名为 InvalidMoveError 的自定义异常,用于处理玩家的无效移动。在 make_move 方法中,如果玩家选择了无效的行或列,则抛出 InvalidMoveError。

    28741

    Python面向对象编程-自定义异常使用(二)

    此外,我们还可以在异常类中添加其他方法和属性来自定义异常类的行为和属性。...在实际编程中,我们可以根据需要定义自己的自定义异常类。要使用自定义异常类,请按以下步骤操作:定义异常类。在异常类的构造函数中,我们可以指定异常消息或其他自定义属性。...在代码中使用 raise 语句抛出异常。在需要处理异常的代码块中使用 try 和 except 块捕获异常,并根据需要处理异常。...下面是一个使用自定义异常的简单示例,它演示了如何在文件读取失败时处理异常:class FileReadError(Exception): passtry: with open("non_existent_file.txt...如果文件不存在或无法读取,则引发相应的异常。在这种情况下,我们将这些异常转换为我们自己定义的 FileReadError 异常,并将其重新抛出,以便调用代码可以处理该异常。

    42451

    VBA专题10-18:使用VBA操控Excel界面之在功能区中添加自定义菜单控件

    excelperfect 这是本系列文章讲解的最后一种在功能区中添加的自定义控件类型,也是用于组织多个命令的一种非常有用的控件——菜单控件。...在Excel中打开该工作簿,然后打开VBE,插入一个标准的VBA模块,输入下面的代码: 'Callback for button1 onAction Sub Macro1(control As IRibbonControl...注意,本例只是演示了使用XML在菜单控件中添加按钮和菜单控件,也可以添加其他类型的控件,例如切换按钮、拆分按钮、库、复选框、通用控件和动态菜单。...下图演示了在自定义选项卡中添加的菜单控件的效果: ?...说明:本专题系列大部分内容学习整理自《Dissect and Learn Excel VBA in 24 Hours:Changing workbook appearance》,仅供学习研究。

    1.6K30

    VBA专题10-14:使用VBA操控Excel界面之在功能区中添加自定义库控件

    excelperfect 在自定义功能区时,我们可以插入图像到自定义库中,图像文件的类型可以是ico、bmp、png、jpg和tif。 要给自定义功能区选项卡添加库控件,执行下列步骤: 1....图2 代替上述第4步和第5步中手工插入图像,可以通过使用VBA过程使用相同的图像填充库。通过赋VBA过程的名称到loadImage回调属性来实现。下面列出了XML代码和VBA代码: ?...Excel\使用VBA操控Excel界面\04....自定义功能区\13\" & imageID) 'msgbox ImageName End Sub 该过程遍历XML代码中的每个item元素,查找图像的文件名并获取图像装载到库控件。...(注意,我试着使用png图像但没有成功。)

    3K10

    VBA专题10-15:使用VBA操控Excel界面之在功能区中添加自定义标签控件

    getLabel是一个回调属性,赋值VBA过程的名称,本例中为getLabel1回调过程。该过程在首次打开该工作簿时或者在使该控件无效时执行。...(不适用于Excel 2007) 第2种:InvalidateControl可以使指定的自定义控件无效。 第3种:Invalidate可以使功能区中所有的内置和自定义控件无效。...之后,要将其粘贴到工作簿的VBA模块中。 7. 保存并关闭该文件。 8. 在Excel中打开该工作簿文件。...插入一个标准VBA模块并粘贴刚才复制的回调代码。 11....Application.UserName Else returnedVal = "美好的一天, " & Application.UserName End If End Sub 关闭后重新打开工作簿,在自定义选项卡中的标签控件显示如下图

    2.3K10

    Excel VBA解读(134): 使用Excel函数提高自定义函数的效率

    本文将介绍在自定义函数中最有效的方式是使用Excel内置函数。 线性插值是一种常用技术,用来查找缺失值或者计算两个值之间的值。例如下表: ?...这个自定义函数计算速度已经很快了。然而,还可以更快! 仔细分析这个自定义函数代码,实际的计算仅使用2行数据,但要获得这2行数据必须将所有数据导入到数组并在第1列执行线性查找。...因此,让我们试着在自定义函数代码中通过Application.WorksheetFunction.MATCH来使用Excel的MATCH函数。由于数据已排序,所以可以使用近似匹配查找MATCH。...) Application.WorksheetFunction.Match触发VBA错误,需要On Error语句处理。...小结:唯一比将所有数据一次性传递到VBA中更快的方法是,使用Excel函数且仅传递给该函数所需的最少数据。

    3.1K30

    VBA专题10-9:使用VBA操控Excel界面之在功能区中添加自定义按钮控件

    下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件,它们与最底层的自定义命令相关。这里的自定义命令是指程序员自已编写的VBA过程。...添加按钮 如果要在内置功能区选项卡中添加两个按钮,在单击这些按钮时会调用VBA过程,那么执行下面的步骤: 1. 创建新工作簿并保存为启用宏的工作簿。 2....如果要在其他内置选项卡中插入按钮,那就使用其他选项卡的idMso替换掉TabInsert。 组元素: group元素中label属性的值指定功能区中组显示的文本。...如果要使用自已设计的图像,只需使用image属性替换掉imageMso属性。 onAction属性是一个回调属性。该属性的值是在单击按钮时要执行的VBA过程的名称。 5....插入一个标准VBA模块并粘贴刚才复制的回调代码。 11.

    5K30

    VBA专题10-12:使用VBA操控Excel界面之在功能区中添加自定义组合框控件

    经过本系列前面几篇文章(参见:VBA专题10-11:使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件、VBA专题10-10:使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、...VBA专题10-9:使用VBA操控Excel界面之在功能区中添加自定义按钮控件)的学习,我们对于在功能区中添加自定义控件的步骤应该很熟悉了。...图2 小结:经过前面几篇文章的学习,我们应该熟悉在功能区中添加自定义控件的步骤通常有两大步,即首先编辑其XML文件添加界面元素,然后添加代码以实现功能。...说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours:Changingworkbook appearance》,仅供学习研究。

    1.6K20

    VBA专题10-16:使用VBA操控Excel界面之在功能区中添加自定义复选框控件

    excelperfect 在本专题前面的一系列文章中,我们已经讲解了如何在功能区中添加自定义的按钮控件、切换按钮控件、拆分按钮控件、组合框控件、下拉控件、库控件、标签控件,添加自定义控件的步骤相同,都是先编写...XML代码在工作表界面中添加控件,然后编写VBA代码实现相应的功能。...本文继续介绍如何在功能区中添加自定义复选框控件。...在标准VBA模块中的代码如下: 'Callback for checkBox1onAction Sub Checkbox1_change(control As IRibbonControl, pressed...说明:本专题系列大部分内容学习整理自《Dissect and Learn Excel VBA in 24 Hours:Changing workbook appearance》,仅供学习研究。

    1.6K00
    领券