Tag: vba

如何从Excel VBAmacros中生成XML？: 所以，我收到了很多以Excel电子表格的forms发送给我们的内容。我需要把这个内容带入另一个系统。另一个系统从XML文件中获取input。我可以手工完成这一切（并相信我，pipe理没有问题，让我这样做！），但我希望有一个简单的方法来编写一个Excelmacros，可以生成我需要的XML。这对我来说似乎是一个更好的解决scheme，因为这是一个需要定期重复的工作（我们将在Excel工作表中获得大量内容），并且有一个批处理工具可以帮助我们。不过，我从来没有尝试过从Excel电子表格生成XML。我有一点VBA的知识，但我是XML的新手。我猜我的问题在Google上search，我甚至不知道Google要做什么。任何人都可以给我一个方向，让我开始？我的想法听起来像是解决这个问题的正确方法，还是我忽略了一些明显的东西？感谢StackOverflow！

如何在VBA中在Excel 2010中安全地创build受密码保护的.xls文件: 我发现，在Excel 2010（和2007）中，当你尝试select一种更加安全的encryptiontypes时，它似乎默默地忽略了你的设置，给你留下一个在解密时可以在几秒钟内破解的文件。这不适用于默认情况下AESencryption的新文件格式，只有在保存为97-2003格式时才适用。这是我在工作簿中创build的macros： Sub enc() Me.SetPasswordEncryptionOptions _ PasswordEncryptionProvider:= "Microsoft Strong Cryptographic Provider", _ PasswordEncryptionAlgorithm:= "RC4", _ PasswordEncryptionKeyLength:=128, _ PasswordEncryptionFileProperties:=True Me.SaveAs _ Filename:="encryption_test.xls", _ FileFormat:=xlExcel8, _ Password:="password" End Sub 通过省略FileFormat参数，使用这些encryption设置（正确）输出Excel 2003是相当容易的： Sub enc() Me.SetPasswordEncryptionOptions _ PasswordEncryptionProvider:= "Microsoft Strong Cryptographic Provider", _ PasswordEncryptionAlgorithm:= "RC4", _ PasswordEncryptionKeyLength:=128, _ PasswordEncryptionFileProperties:=True Me.SaveAs _ Filename:="encryption_test.xls", _ Password:="password" End Sub 解密然后不能解密我所期望的。 […]

在Excel VBA中parsingJSON对象数组: 我知道一个类似的问题已被问及几次之前的答案：在Excel中分析JSON VBA ， Excel VBA：parsingJSON对象循环但是，上面的解决scheme不起作用，如果我试图访问返回的对象中的数组。我以下面的格式从Google Translate API接收JSON对象： "{ "sentences":[ { "trans":"Responsibility\n", "orig":"??", "translit":"", "src_translit":"Zérèn" }, { "trans":"Department", "orig":"??", "translit":"", "src_translit":"Bùmén" } ], "src":"zh-CN", "server_time":86 }” 我希望能够访问这两个翻译的句子作为句子（0）和句子（1）。我可以使用前面post的GetProperty（）方法来检索句子对象，但是我不能访问它的成员，因为它是JScriptTypeInfotypes的对象，而不是数组。我试图在JScript中使用类似于此处所述的方法将句子对象转换为数组：使用javaScript和VBA如何传递数组。我只能得到它返回数组的第一个值，出于某种原因。什么是最好的方法来做到这一点？

使用Excel VBA生成二维（PDF417或QR）条形码: 我想使用macros在Excel单元格中生成2d条形码（PDF417或QR码）。只是想知道有没有免费的替代品付费图书馆做到这一点？我知道某些工具可以完成这项工作，但对我们来说相对昂贵。

Excel 2013 VBA错误: 我得到以下错误。 Compile error: The code in this project must be updated for use on 64-bit systems. VBA代码 Option Explicit Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Dim Ret As […]

VBA拖放文件到用户窗体获取文件名和path: 我想学习一个新的技巧，但我并不是100％有信心在VBA中是可能的，但是我认为我会在这里与大师进行核对。我想要做的是避开古老的getopenfilename或浏览器窗口（在networking驱动器上设置起始目录非常困难），我想创build一个VBA用户窗体，用户可以拖动并从窗体上的桌面或浏览器窗口中删除文件，VBA将加载文件名和path。再次，我不确定这是否可能，但如果是的话，或者如果有人已经做到了，我会欣赏指针。我知道如何设置用户表单，但是除此之外我没有任何真实的代码。如果有什么我可以提供的，让我知道。感谢您的时间和考虑！

附加多个文件发送电子邮件或整个目录（VBA）: 我试图通过VBA和outlook发送带有多个附件的电子邮件。如果我指定一个附件/文件的path，我可以添加多个附件，如果我确切地知道它们是什么，但是我不会向前移动 – 将会有不同的计数以及文件名。我很想发送使用通配符，如下面的示例中所示，但我想我需要使用某种types的循环指向一个目录。我已经四处寻找解决scheme，但我还没有看到任何与我的具体情况一致的东西。 Private Sub Command22_Click() Dim mess_body As String Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) With MailOutLook .BodyFormat = olFormatRichText .To = "test@test.org" .Subject = "test" .HTMLBody = "test" .Attachments.Add ("H:\test\Adj*.pdf") '.DeleteAfterSubmit = […]

在Excel（函数或VB）中出现第n个字符后提取文本string: 寻找VB或Excel函数返回 azat-tab-25mg 从 Y:\master-documentation\azat\dp\tab\25mg\2-drug-product\azat-tab-25mg-dp-1-bmi-[d-6475703-01-11].pdf 是否有一个function，以获得第七次发生后的文字？

Excel VBA – 是否可以通过使用matrix设置属性到一个范围的每个单元格？: 我最近发现可以使用一个单独的命令来设置一个范围内的每个单元格的值： Worksheet.Range(Worksheet.Cells(Row1, Column1), Worksheet.Cells(Row2, Column2)) = MyMatrix MyMatrix是一个2Dmatrix，其尺寸为：Row2-Row1和Column2-Column1。显然，如果我为每个单元格应用一个属性（假设.Font.Bold – 当MyMatrix是一个布尔matrix）时，它是行不通的： Worksheet.Range(Worksheet.Cells(Row1, Column1), Worksheet.Cells(Row2, Column2)).Font.Bold = MyMatrix 上面的命令使整个范围“粗体闪烁”几分之一秒，然后没有任何反应。怎么来的？我一定要避免For循环，因为在我的代码中需要很长的时间。更新：即使我用string"normal"和"bold"填充MyMatrix然后写： Worksheet.Range(Worksheet.Cells(Row1, Column1), Worksheet.Cells(Row2, Column2)).Font.FontStyle = MyMatrix 我也尝试过（而且不起作用）： Worksheet.Range(Worksheet.Cells(Row1, Column1), Worksheet.Cells(Row2, Column2)).Cells.Font.FontStyle = MyMatrix

在Excel中构build一个像数据表示的树？: 我有一堆这样的原始数据： Parent | Data ————— Root | AAA AAA | BBB AAA | CCC AAA | DDD BBB | EEE BBB | FFF CCC | GGG DDD | HHH 哪些需要转换成像时尚树。这基本上需要最终在一个Excel电子表格。如何将上述数据转换为以下内容： AAA | | | BBB | | | EEE | | FFF | CCC | | | GGG | DDD | | | […]