Tag: vba

如何在Excelmacros或VB.Net中将JSON数据转换为xml数据: 我正在获取JSON格式的数据 { “名称”： “瑞恩”， “年龄”：1， “滚动”：2 “地址”： “AAA”}，{ “名称”： “瑞恩”， “年龄”：1， “滚”：2 ， “地址”： “AAA”}，{ “名称”： “瑞恩”， “年龄”：1， “滚动”：2 “地址”： “AAA”}，{ “名称”： “瑞恩”，”年龄 “：1，” 滚动 “：2”，地址 “：” AAA“}] 它如何被转换成XML格式。所以我可以用它填充我的Excel电子表格。或者有没有什么办法可以直接将JSON数据转换为Excel中的macros

提高高级filter处理时间: 下面的代码通过logging进行循环，并从每个logging的高级filter/计算中返回某些值。我有大约2000条logging我需要它贯穿。问题是处理时间是10-15秒一个logging，这太慢了。 Sub EquityAutomatedDallas() Dim Counter As Integer Dim LogNo As String Dim LogNoRange As Range Dim NoRange As Range Dim FilterRange As Range Dim FilterCriteriaRange As Range Dim ValueRange As Range Dim FullSortRange As Range Dim SortValueRange As Range Dim FullSortRangeValues Dim EquityRankRange As Range Dim EquityOutOfRange As Range Dim MedianRange As Range […]

Application.SendKeys Keys：=“{F2}”不能从Formbutton子例程中使用: 从macros快捷键调用时，此代码工作正常，也就是说，它将一个预选的单元格放入编辑模式。 Sub EditActiveCell() Selection.Activate Application.SendKeys Keys:="{F2}" End Sub 但是，从用UserForm控件单击的子例程调用时，它将无法工作。点击后，预先select的单元格是“惰性”，必须点击才能input内容。这就像是在VBA中select的，而不是在Excel客户端中。另外，如果我从控件中调用的例程如此简单， Sub UserFormControlClickAction() ActiveCell.Select End Sub 然后控制点击子程序离开select（单个单元）“惰性”; 我必须点击才能进入。任何帮助获取F2设置始终从UserForm控件点击工作？

为什么我的图像不embeddedHTML电子邮件？: 我试图运行VBA中的代码，将发送HTML电子邮件，并试图在电子邮件中embedded图像。我有以下代码这样做： Sub EmailImage() Dim oApp As Outlook.Application Dim oEmail As MailItem Dim colAttach As Outlook.Attachments Dim oAttach As Outlook.Attachment Set oApp = CreateObject("Outlook.Application") Set oEmail = oApp.CreateItem(olMailItem) Set colAttach = oEmail.Attachments Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg") oEmail.Close olSave oEmail.To = "abc@abc123.com" oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0> </BODY>" oEmail.Send Set oEmail = Nothing Set […]

布尔，真和真和真来作为假？: 这是否有一个原因是错误的？以下是debugging时的VBA输出： ?A + B > X & A + B <= Y & C = 0 False ?A + B > X & A + B <= Y True ?C=0 True ?A + B > X True ?A + B <= Y True

列出打开的工作簿减去当前的工作簿: 我已经实现了以下代码，列出了ComboBox中所有打开工作簿的名称： Option Explicit Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex < 0 Then Me.CommandButton2.Enabled = False Else Me.CommandButton2.Enabled = True End If End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() MsgBox "Are you sure you want to select " & Me.ComboBox1.BoundValue, vbOKOnly Application.Workbooks(Me.ComboBox1.Value).Activate End Sub Private Sub UserForm_Initialize() Dim myWin As Window Dim […]

数据更改时如何在Excel中保留graphics格式？: 我在Excel中有一系列我以前格式化的图表。要绘制的数据来自dynamic系列，用户select一个元素，然后图表显示所选元素的浓度。当我select另一个元素，我不希望格式改变，因为它现在做：我已经尝试locking格式化所有的图表：.ProtectFormatting = True 工作表受到保护，用户只能select他们想要绘制的元素。通过select元素，要绘制的行更新（使用dynamic指针），但格式也是如此。我试图将图保存为模板，然后使用每个图的模板，但我不确定这是否正确。有趣的是，当我重新select格式化图（Cu）时，我找回了我保存的格式！我必须手动（或使用macros）格式所有25个可能的图？我有3个不同的图表，每个元素…

等待DataNitro完成VBA调用: 我从VBA中调用一个python脚本，如下所示： Sub python_call() Application.COMAddIns("DataNitro.DataNitro").Object.RunScript ("test.py") 'do some other stuff End Sub test.py需要一段时间才能运行，所以我希望VBA在运行剩下的代码之前等待。除了Application.Wait之外，有没有办法做到这一点？

parsing复杂的XML文件: 我在parsing从Excel中的API中检索到的XML文件时遇到问题。我可以成功检索数据集（下面），但是我发现将每个字段格式化为自己的单元格为表格格式的解决scheme没有奏效，我想是因为XML格式化的方式。每个XML将如下所示。可能有多个消息ID需要独立提取。（这是我遇到的另一个问题，“消息ID”中的空间引发了各种各样的错误。）以下是我正在尝试使用的解决scheme：如何使用vbaparsingXML <?xml version="1.0" encoding="utf-8"?> <methodResponse><item><methodName><![CDATA[legacy.message_stats]]> </methodName><responseData><message_data> <message id="9999"> <message_subject><![CDATA[50% rabatt på alla kort! Skicka ett personligt julkort i år!]]></message_subject> <date_sent>2015-09-13 19:15:48</date_sent> <message_notes><![CDATA[50% Off Holiday Cards, SE]]></message_notes> <withheld_total> 0</withheld_total> <globally_suppressed> 0</globally_suppressed> <suppressed_total> 0</suppressed_total> <bill_codes><![CDATA[emc_0914_HOLIDAYCARDS_SE]]></bill_codes> <sent_total> 15195</sent_total> <sent_total_html> 15195</sent_total_html> <sent_total_plain> 0</sent_total_plain> <sent_rate_total>100.00</sent_rate_total> <sent_rate_html>100.00</sent_rate_html> <sent_rate_plain>0.00</sent_rate_plain> <delivered_total> 15060</delivered_total> <delivered_html> 15060</delivered_html> <delivered_plain> 0</delivered_plain> <delivered_rate_total>99.11</delivered_rate_total> […]

错误1004“无法从pivottable获取pivotfield”: 尽pipe这个话题已经出现了，但是就pivotfields中的错误1004而言，我只是没有看到这种情况，我需要解决这个问题，并且没有任何线索。这是一个logging的macros代码： With ActiveSheet.PivotTables("SybusPivotTable").PivotFields("Lote") .PivotItems("0").visible = False .PivotItems("ERRO").visible = False End With With ActiveSheet.PivotTables("SybusPivotTable").PivotFields("Referência") .PivotItems("").visible = False .PivotItems("0").visible = False End With With ActiveSheet.PivotTables("SybusPivotTable").PivotFields("tipo_mov") .PivotItems("2").visible = False End With 我logging它，当一个macros运行…错误1004。这是一个录制的代码，所以我期望它像一个魅力运行。但不是。 err出现在第一行代码中。任何线索？提前致谢。