Tag: 集合
dynamic创build集合VBA的集合
我试图dynamic创build一个集合嵌套在集合。 到目前为止，我已经能够通过input一切来创build一个嵌套集合（见下文）。 但是，我有一个（ 可怕的 ）电子表格，其中一列有17个问题的重复数百次，下一列有答案。 我试图把每个问题的答案作为一个项目，而问题本身作为索引。 这17个问题的唯一集合将是整个电子表格集合中的一个集合。 如果没有任何意义，可以考虑为集合中的每个项目添加一个集合。 以下是手动input的集合的集合： 谢谢！ Sub test() Dim M As New Collection Dim nst3 As New Collection Dim nst2 As New Collection Dim nst1 As New Collection Dim i As Integer Dim ii As Integer nst1.Add "A", "1" nst1.Add "B", "2" nst1.Add "C", "3" nst1.Add "D", "4" nst2.Add "E", "1" […]
将数据从Microsoft CRM SDK集合复制到CSV文件或Excel文件。 （数据转储）
以下是有关我的工作计算机的开发环境的信息： -Microsoft Visual Studio Enterprise 2015版本14.0.35123.00更新2 – Microsoft Dynamics CRM安装在远程服务器上。 我们的ASP.NET C＃应用程序使用Microsoft CRM SDK与Microsoft Dynamics CRM服务器进行通信。 我试图通过抓取ASP.NET C＃应用程序从Microsoft Dynamics CRM服务器检索的大量信息来分析数据。 在下面的快照中，C＃代码使用Microsoft.Xrm.Sdk.EntityCollectiontypes的结果对象从Microsoft Dynamics CRM中检索数据： 有人能告诉我，我怎么可以快速只是以编程方式将上述集合中的数据复制到csv文件或Excel文件？
声纳空指针违规
声纳低于行下面的空指针违规 existed.keySet（） 请你能帮我们解决这个问题。 private boolean isEqualCaptions(Map<String, String> existed, Map<String, String> updated) { if(existed == null && updated != null) return false; if(existed != null && updated == null) return false; for(String key:existed.keySet()){ if(existed.get(key).compareTo(updated.get(key)) != 0) return false; } return true; }
将2个或更多嵌套字典合并为1，并按照自定义顺序排列项目
我是字典新手。 我从一个外部网站提取数据，输出一个JSONstring，其中包含我使用这里find的VBA-JSON代码parsing的Initiative Level数据。 这个JSONparsing器输出一个包含嵌套字典和集合的JSON字典对象。 { "respCode": 200, "respMessage": "OK", "response": [ { "INIT_ID": 1234567, "INIT_NAME": "SOME INIT NAME", "CATE": "PERFUMED WATER", "CTRY": "GB", "OPEN_DATE": "2016-02-10 00:00:00", "ITEMS": [ { "ITEM_ID": "44556677", "ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,AMBIENT,,,,CAFFEINE,PLASTIC,PACK,250ML" }, { "ITEM_ID": "45566778", "ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,CRYSTAL,,,,CAFFEINE,GLASS,PACK,270ML" }, { "ITEM_ID": "46576879", "ITEM_DSCR": "ABC CO, PERFUMED WATER,NON-CARBONATED,AMBIENT,,,,NON-CAFFEINE,TETRA,PACK,275ML" } […]
Excel VBA设置所有收集variables== 1
在这个问题之后，我试图把所有的variables都设置为1。 我在我的一个子程序中声明了这个集合？ Public lCol As Long, lRow As Long, rr As Long, cRow As Long, cCol As Long, jj As Long Dim myVars As New Collection myVars.Add lRow myVars.Add lCol myVars.Add cRow myVars.Add cCol myVars.Add rr For jj = 1 To myVars.Count myVars(jj) = 1 Next jj 我正在接受一个 对象必需的错误 在线myVars(jj) = 1
对象集合在通过数组循环时将新的UDT传递给每个对象
我的aMRecon数组是2500行x 65列。 我需要在每一行中评估多达10列，因此我相信我需要创build一个代表每行的对象。 我已经创build了一个UDT并在下面的基本过程中，我试图创build每个对象具有.EntityID属性（这是Column B Column 2或Column 2 Column B中的每行中的单元格值）的每个对象。 Public Type BreakInfo EntityID As String IssueName As String ValDate As Date LedgerAMT As Long NetAMTL As Long PriceDiff As Long End Type Sub Fill_Objects() Dim aMrow As Integer, aMcol As Integer Dim BI As BreakInfo For aMcol = LBound(aMRecon, 2) To UBound(aMRecon, 2) For […]
如何为VBA中的自定义集合类指定默认属性？
我有一个噩梦般复杂的Excelmacros，我试图通过设置一系列类来简化，但是我从来没有做过面向对象编程，所以我有点不清楚如何设置东西（甚至如何制定我的问题）。 我目前有一个租赁类，它有一个Payments属性，如下所示： Option Explicit Private oPayments As New Payments Public Property Get Payments() As Payments Set Payments = oPayments End Property Public Property Let Payments(param_Payments As Payments) Set oPayments = param_Payments End Property 我也有一个支付类，它将包含付款编号和一个支付类的实例的支付类。 Payments类看起来像这样： Option Explicit Private Payments As New Collection Sub Add(param_Number As String) Dim NewPayment As Payment Set NewPayment = New Payment […]
VBA将类数组传递给函数
道歉，如果我犯了一些业余的错误，但我是VBA新手。 我试图填充一个在类中声明为一个属性的数组，但出了问题。 经过多次search，我有两个问题，我似乎无法find其他地方： 1 – 有一个更简单的方法来完成将数据保存到一个类似数组的结构，我可以传递给子函数？ 类似数组的结构需要resize，因为我不知道在循环的每次迭代检查这些条件之前我将添加多less个组件。 2 – 如何正确地将我的类中的数组属性传递给另一个函数？ 我很想知道如何才能明白我做错了什么，或者可能是我对VBA工作方式的误解。 代码结构如下： 我已经在CTask类中声明了Segments属性，如下所示： Private pSegments() As CSegment Public Property Get Segments() As CSegment() Segments = pSegments() End Property Public Property Get segment(index As Integer) As CSegment segment = pSegments(index) End Property Public Property Let Segments(Value() As CSegment) pSegments() = Value() End Property 我从一个Sub传递CTask ，在这里它被定义为使用这个代码populateTasks ： […]
VBA：参数不可选
我正在尝试第一次在VBA中收集一些collections。 我打算使用这个集合来打开多个报表并运行相同的代码，这就是为什么我想把它们放到一个集合中。 （如果还有更好的方法，请告诉我。） 我的集合制作function（返回集合？）： Function CollectReports() As Collection Dim reports As New Collection reports.Add Item:="plant1", Key:="0" reports.Add Item:="plant2", Key:="1" reports.Add Item:="plant3", Key:="2" reports.Add Item:="plant4", Key:="3" TestCollection (reports) End Function 我的collectionstesting小组： Sub TestCollection(reports As Collection) Dim x As Variant For Each x In reports MsgBox (x) Next End Sub 我最初有副作为Sub TestCollection(ByRef reports) ，这是我一直在使用其他方法，需要从另一种方法昏暗。 我的问题是，当我尝试debugging我的CollectReports()函数时，我得到一个Argument not optional错误 […]
将图表对象添加到集合会导致RTE 438-Object不支持此方法
我试图添加一个表格对象到一个空白的集合。 Line：SheetsCollection.Add（wbTested.Sheets（1）） 我想用这个表单集合在稍后的另一个函数中打印他们的细节。 代码如下所示： Private Sub TestPrintWorksheetsNames() Dim wbTested As Workbook Dim SheetsCollection As New Collection Set wbTested = Workbooks.Open(ThisWorkbook.Path & "/AddinFunctionsKollarBTestWB.xlsx") SheetsCollection.Add (wbTested.Sheets(1)) With wbTested Debug.Print .Name Call PrintWorksheetsNames(SheetsCollection) End With 'wbTested wbTested.Close savechanges:=False Set wbTested = Nothing End Sub 突出显示的行会引发运行时错误438对象不支持此属性或方法 。 你能帮我吗？ 是否有可能将对象types添加到集合对象？ 怎么样？
