我不确定这是否可行，但本质上我还没有被说服切换到新的 Microsoft Outlook，因为我重视 VBA 的功能。具体来说，我使用 VBA 始终验证特定的正则表达式模式，并将它们以特定颜色加粗。我喜欢新 Microsoft Outlook 的某些功能，但它不允许 VBA 或 MS 脚本这一事实似乎是一个陷阱，所以我想看看 TextExpander 是否具有此功能的能力。 有人可以帮忙吗？ ...
我有如下的数据集： City Money Code Quantity London 1.96 54645641 3 London 1.96 54645641 3 London 1.96 54645641 3 London 1.96 54645641 3 London 1.96 54645641 ...
我正在学习如何使用 Selenium 和 VBA 来自动化一些 Web 工作。我遇到了问题bot.FindElementById("go").Click。问题是我收到此错误： 运行时错误‘0’： KeyNotFoundError 未找到字典键：状态 按钮的 ID 确实是“go”，这在我朋友的电脑上都正常。但在我的电脑上，我收到此错误消息。有人知道是什么原因造成的吗？ ...
我有一个 VBA 模块，它从多个服务器文件夹（约 150 万条记录）读取文件名，并将这些文件名放入多个工作表中。许多文件名都包含中文字符，当将文件名写入工作表时，Excel 会用问号替换这些字符。该字符替换会阻止下一步发生（将文件和文件名上传到 Salesforce）。在将文件名写入工作表时，是否有某种方法可以保留中文字符？ 我在商业环境中使用 Excel 365，无法“在后台”更改任何 Office 设置。 ...
我正在尝试从 excel 文件（名为 book1.xls）中提取最低价格存在于 sheet1 的“价格”列下，并想要将其与存在于同一 sheet1 中但在“出发城市”excel 列下（即出发时间）的相应值一起复制到不同的 book2.xls 文件。 数据表 我想将以上两个数据粘贴到预定义的单元格位置，即出发时间@ C13 单元格和最低价格@ E13 单元格。 输出文件 目前正在使用输出文件中的公式来提取：- =INDEX(range,MATCH(MIN([book1.xls]Sheet1!X2:X80),X2:X80,0)) 但只能#NAME?...
我创建了一个宏，用于从我正在使用的主文件中创建一个新的 excel 文件，但不包含任何链接和宏。新文件的目的是它将包含主文件中的所有数据/值，但不包含链接/公式/宏。并且新文件在打开时也不应该显示“更新链接”的消息。 到目前为止，我所做的是在创建新文件后，单击“断开链接”，然后在启动提示中“选择不显示警报和不更新自动链接”。 有没有办法在新文件创建宏中使用 vba 执行上述步骤（断开链接并且不显示......）？ ...
Excel 默认为其连接启用“刷新此连接或刷新全部”设置。我可以通过编程方式关闭和打开连接设置吗？ 我基本上需要一些不是虚构的东西全部刷新在以下示例中： For Each cn In ThisWorkbook.Connections If cn.RefreshOnAll Then cn.RefreshOnAll = False End If Next ...
据我所见，该代码应该可以工作，但最终陷入了循环，因此显然仍然存在问题。 目的是从单元格 E70 开始并粘贴从单元格 X38 获得的值。 向下移动到 E 列的下一个单元格并重复从单元格 X38 粘贴值，直到 D 列对应的行号为空。 代码： Option Explicit Sub Variability_Score() ' ' Variability_Score Macro ' ' Keyboard Shortcut: Ctrl+p ' Dim rowNo As ...
我正在尝试从数据库中获取记录并将其填充到 excel 中。这是我获取数据并填充数据的方法（注意：查询已简化，我不能只这样做ORDER BY DESC）： Sub FillPersons(ByRef connection As ADODB.connection) Dim recordSet As ADODB.recordSet Set recordSet = New ADODB.recordSet Dim sql As String sql = "SELECT TOP 2 Id FROM Persons" reco...
我在 Publisher 中编写了一个宏，并将其添加到我的快速访问栏中。不幸的是，该宏仅在创建它的文档中运行。在所有其他文档中，该按钮不起作用。 有没有办法让宏在所有 Publisher 文档中运行？我知道 Excel 宏有一个存储位置的选项（个人工作簿、此工作簿等），这会改变此行为。Publisher 有类似的选项吗？ ...
我无法让已改编为我的程序运行的 VBA 代码运行。其中有些东西我不明白，也不知道如何修复。我正尝试将数据从“销售”工作表过滤到 Artisan 摘要工作表。这是我尝试改编的当前 VBA 代码，但我一直收到错误代码： Sub Filter_Statement() On Error GoTo Filter_Statement_Error Dim ws As Worksheet Set ws = Sheet5 Application.ScreenUpdating = False If ws.Range("D2").Va...
我有一个包含以下信息的电子表格： A 列包含课程列表（例如课程 1、课程 2 等） B 列包含每门课程可获得的学分数 C 列包含以整数表示的等级（例如 72、63 等） 然后根据等级对这些信息进行排序，从高到低。 有了这些信息，我需要根据总学分数将课程分成 4 个相等的组，并确定每个组的加权平均值。但是，学分并不总是均匀分布的，这意味着课程的某些部分可能计入第一个加权平均值，而课程的其余部分则计入第二个加权平均值。例如，我可能有： Credits Grade Course 1 3 75 Course 2 2 7...
在 A1、A2、A3...A16000 的一个单元格中我拥有 XML 的整个上下文。 示例：一张发票的整个 XML 位于 A1 中，下一张发票位于 A2 中，依此类推。 我怎样才能将每个单元格的上下文保存到单独的 XML 文件中？ 我尝试使用“filterxml”直接从单元格中提取相关数据，但是当 inovice 包含多个项目行时我遇到了麻烦。 ...
我的 Vb 宏执行以下操作：我选择 5 个连续的单元格，运行我的宏，然后我得到 5 个介于 1 和 50 之间的静态随机数；它运行完美；当选定的单元格不连续且不等于 5 时，我需要发出警告。选定的单元格必须是 5 个并且连续。不知道我该如何以及在哪里放置警告。谢谢！ Sub loto() from = 1 until = 50 Selection.ClearContents For Each cell In Selection.Cells If WorksheetFunction.CountA(Selection)...
我想将所选文本（不是整个文档）中的黄色突出显示更改为红色突出显示。此 VBA 确实会更改突出显示的颜色，但它不会停留在所选文本上（它还会更改所选文本下方的突出显示）。 Sub SwitchHighlightsColor() Dim r As Range Set r = ActiveDocument.Range With r.Find .Highlight = True .Forward = True Do While .Execute(FindText:="", Forward:=T...