Visual Basic for Applications（VBA）是一种用于编写宏的事件驱动的面向对象编程语言，用于整个Office套件以及其他应用程序。 VBA不等同于VB.NET或VBS;如果您在Visual Studio中工作，请使用[vb.net]。如果您的问题专门针对编程任何MS Office应用程序，请使用相应的标记：[excel]，[ms-access]，[ms-word]，[outlook]或[microsoft-project]。
如何使用 VBA 逐步浏览工作簿中的 Excel 工作表并刷新查询
我的某些代码存在问题，其行为不符合我的预期。我有 2 个电子表格，一个包含代码和摘要表，另一个包含一系列表，每个表都包含一个链接到 ... 的查询
如何使用 VBA 使整个 PowerPoint 演示文稿中的字体保持一致？ 我是 VBA 新手，所以我使用的代码可能完全错误，但它是： 子字体更改() 昏暗的滑动...
私有子显示日历() 将 FirstDay 设为字符串 将 LastDay 变暗为字符串 将 iDay 调暗为整数 调暗 ctl 作为标签 Dim DaysArray(7) 作为字符串 DaysArray(0) = "星期一...
我有一个表，我想在其中删除任何没有数据的行。 该代码是一个更大的子程序的一部分。 我明白了 错误 1004 对象“范围”的方法“删除”失败。 暗淡行作为范围...
我对单引号的使用不是很熟悉，看来我不会用()传递来绑定Workbook。我想传递至少两个字符参数 子宏1() S = 1 K...
如何使用 VBA 将 Outlook 中的 PDF 文档项目保存到文件位置
在 Outlook 的收件箱文件夹中，我有一个 pdf 文件，不是作为附件，而是作为手动放置的文档项（类 41）。使用 Excel 中的 VBA 应用程序，我想将 PDF 文件复制到 ...
向宏添加代码以在从 Excel 发送的不同电子邮件中显示不同的超链接
如何添加不同的超链接到发送给不同人的 Excel 电子邮件正文？每封电子邮件都有不同的超链接。这是我到目前为止的代码： 子按钮1_Click() ...
Excel 宏仅将电子邮件发送到第一个电子邮件地址，而不是全部
我在宏方面是个新手，但我在 Excel 中创建了一个宏，我想循环遍历我的电子表格并在特定单元格值为空时发送电子邮件。此代码用于发送第一个 em...
Excel VBA - 如何在保持原始值的同时更新ReplyAll.HTMLBody
我在尝试更新 mailItem.ReplyAll.HTMLBody 时遇到问题。我似乎无法在不删除以前的值的情况下向正文添加新文本。以下代码生成的电子邮件项目...
如果一个值相同，VBA Excel 仅在一封电子邮件中发送所有信息
我想用 VBA 发送一封电子邮件，将用户编号发送到电子邮件地址，但如果他有 2 个用户编号，他会在同一封邮件中发送 2 个用户编号。 我的代码与我的Excel： 私有子 CommandButton1_Cl...
选择存储在数组中的文件名并通过电子邮件 VBA 附加这些文件
我正在尝试选择名称存储在单元格中并以逗号分隔的文件，并通过电子邮件附加这些文件。下面是我正在处理的代码，但我不断收到运行时错误 438。 我是
所以，我不确定我做错了什么，我似乎无法让我的标题进入我的范围。仅输入最后一行数据。但是，我想要输入标题和最后一行数据。 公共功能...
我希望 Excel 使用 VBA 在 Outlook 的活动文件夹中写入。但我什至很难定义当前活动文件夹的路径。 这是我尝试使用的代码： 子
按供应商从 Excel for Outlook 电子邮件中提取数据
我有一个供应商列表，我按名称排序，然后使用宏进行遍历并从字段中提取数据片段并将它们放入 Outlook 电子邮件中。非常简单，直到我到达...
每当我使用下面的代码生成电子邮件时，它不会使用默认的新电子邮件格式。下面的代码在段落后添加空格，并且不允许我插入默认签名
当我尝试生成Word文档时，进度条停在80％处，并显示以下错误。 当我尝试调试它时，我看到了这个 我现在遇到错误 For i = 1 To .InlineS...
我有一个电子表格，并且有一些代码不起作用。 我需要根据 K 列是否已填充（带有日期）将数据行复制到另一张工作表。 代码正在停止，我不知道...
带有折线的Solidworks dwg，如何合并这两个代码？
我有这两个代码（在互联网上收集的），它们分别表现得很好。但我需要他们合而为一。 我的主要目标是仅生成一个文件，而不是两个文件，因为此代码正在检索；和
我正在使用 AutoCad 2021，我想从现有轮廓创建一个新轮廓，从现有轮廓下方 25 厘米开始，继续以 1% 的坡度直至与现有轮廓相交，然后
尝试从另一个工作表中的单元格值命名工作表。但不起作用... 私有子工作表_NameChange() ActiveSheet.Name = Worksheets("Input").Range("P5").Value 呃...