Excel中的正则表达式VBA - 第二部分
这是 Excel VBA中的正则表达式的扩展程序 我已经提出了我认为超出我原来问题的范围的其他比赛。这是我现有的代码： Sub ImportFromDTD（） Dim sDTDFile As Variant Dim ffile As Long Dim sLines（）As String Dim i As Long Dim Reg1 As RegExp Dim
..
Office
在引用ListObjects表的VBA中创建动态命名范围
我需要创建一个引用ListObject表中最后几行数据的命名范围。虽然我可以从功能区手动执行（公式>定义名称），我必须这样做20张，每个3个范围。 当我尝试使用VBA I得到错误1004，并警告该公式有问题，并删除“=”，如果我不想输入一个公式。任何想法如何解决这个问题？ 打开一个新的Sheet1来尝试我的代码。它将创建一个ListObjects表，并尝试创建命名范围。 Sub
..
VBA Web Scrape（getelementsbyclassname）
我正在尝试在以下链接右侧窗格中列出的VBA课程列表“www.tutorialspoint.com/vba/index.htm” 但是由于一些错误，我无法清理该列表： Sub tutorailpointsscrap（） Dim ie As InternetExplorer Set ie = New InternetExplorer With ie .navigat
..
使用excel中的自定义顺序进行排序会给出错误1004
我试图通过两列两列列表中的数据进行排序 - 首先是列B（按字母顺序排序），然后是列C（使用自定义顺序“G，D，M，F” - - 这些是在列中发生的唯一值。但是，当我尝试运行代码时，我收到错误 1004 - 无法获取Range类的Sort属性 所以这里是我正在使用的。在代码之前我有 Dim lastrow As Long lastrow = Cells（Row
..
嵌套If / Else / End If在选择案例中
我有一个Excel 2010表单。我试图根据几个变量来更改行颜色。 我明白，这可以通过条件格式化来实现，并且可以使其工作，但是切割和粘贴（因为用户可能会这样做）会杀死格式。我希望VBA能够解决这个问题。可能还有一些其他解决方案我不知道。 这是我想要发生的事情（所谓的逻辑） $ b $在Sheet3上的b 列（a - w） 行（2 - 10485） 在任何字段中更改$ x
..
如何在单独的工作表中找到特定的单元格值？
我有一段代码在当前工作表中搜索特定单元格值的范围，然后在该列上执行操作。该宏由同一页面上的表单控制按钮启动。我需要将表单控件按钮移动到不同的工作表，但我不知道如何udpate我的代码只搜索sheet1而不是按钮中的按钮。 以下是使用与数据相同的工作表上的按钮时的代码。我只需要它来查看sheet1而不是当前工作表。 Dim R1 As Range 设置R1 =范围（“A2：AX2”）
..
从电子邮件自动下载并保存附件到Excel
目前，我下面列出的代码将从收到的电子邮件中复制身体信息，并打开指定的Excel表，并将内容复制到Excel表上并将其关闭。我也想保存收到的电子邮件的附件到这个指定的路径：C：\Users\ltorres\Desktop\Projects 我已经尝试了，但是这段代码不会与前景一致。我将不得不使用excel运行它 Public Sub saveAttachtoDisk（itm As Ou
..
Excel VBA：从数字字段WITHOUT循环中删除非数字字符
我已经阅读了一些解释其中一个问题的主题，这将是有效的，但是会非常缓慢。解释如下： https://www.extendoffice.com/documents/excel/651-excel-remove-non-numeric-characters.html 它涉及遍历一个范围内的每个单元格，然后迭代字段中的字符，如果它们不匹配 [0-9] 则删除它们。我想看看有没有人有其他更有效的
..
ControlFormat.ListIndex运行时错误Excel 2007
我正在尝试在工作表上研究一个列表框（Form Control）的问题。我需要知道Office 2007和2010以及其后的处理方式是否不一样。 在Excel 2007中，将SheetControl ListBox添加到sheet1，并将其填入一些随机值。 验证选择类型是否设置为单个，并在标准模块中运行以下代码： Sub TestListIndexExcel2007 ） Debug
..
查找给定单元所属的命名范围
我正在编写一个个人宏，显示状态栏上的ActiveCell的重要信息，如所属的表或枢纽的名称（如果有的话），它所持有的未格式化的值， 。 现在我还要显示包含单元格的命名范围的名称。我想我可以扫描ActiveWorkbook的一些名称集合，并用相交测试但是有没有更简单的方法？ 解决方案 最简单的方法是循环浏览名称。 函数getRangeNames（目标为范围） Dim n As
..
将文本添加到Word表中所选范围的宏
我正在尝试编写一个宏，允许用户在Word表格中选择一系列单元格，以填充具有特定文本“SOLD”的列4。 以下是我到目前为止的VBA宏代码，但它只会在第一列第4列中输入文本（而不是第4列的选定范围） Dim iSelectionRowEnd As Integer Dim iSelectionRowStart As Integer Dim cl1 As Cell Dim cl
..
在特定文本上插入行并发生
我正在使用VBA代码根据特定文本及其出现插入下面的行。 我正在使用以下代码： Sub try （） Dim c As Range 对于每个c In Range（“A1：A100”） 如果c.Value像“* COLLECTION *”那么 c.Offset（1 ，0）.EntireRow.Insert End If 下一个c End Sub
..
将TextBox复制到剪贴板
我尝试复制剪贴板中的所有文本框（当我在文本框上点击左键）。我收到一个错误：未定义的用户定义类型。代码： Sub TextBox1_Click（） Dim DataObject As DataObject 设置DataObject = New DataObject DataObject.SetText Me.TextBox1.Text DataObject.PutInClipbo
..
匹配不工作Excel：错误1004无法获取匹配属性
Sub Sales_Summary_Macro（） Dim strMake，strModel，strCount As String Dim makeLoc，modelLoc，countLoc As Integer strMake = Application.InputBox（“Make”） strModel = Application.InputBox（“Model”） s
..
做了空文本框，并将焦点放在另一个上
我正在使用下面的代码，在退出初始化文本框时检查另一个文本框值，如果为空，则将初始值设为null，并将焦点设置为最终文本框。 但是我给出这个错误：运行时错误'-2147467259（80004005）'：非特定错误。 当我发表评论这行（ txtTimeUnit = vbNullString ），宏代码正常工作。 该行的命令有什么问题，请帮我纠正代码。 b $ b Privat
..
VBA - 尝试打开文件夹中的所有工作簿
我试图循环并打开位于与我的宏的工作表相同的目录中的名为（BU）的文件夹中的所有文件。我可以看到我的文件正确获取第一个文件名，但是当工作簿尝试打开时，我收到运行时错误1004。任何帮助将不胜感激。 Sub LoopAndOpen（） Dim myfile As String，Sep As String ，stringA As String，path1 As String Sep =
..
从Word到Excel中的内容控件提取数据
我有一个“form-fillable”的Word文档，即它有内容控件对象，如富文本和日期选择器内容控件。我正在寻找将特定字段的数据提取到Excel中。例如，每个表单都有项目标题，开始日期和经理。我想用这三个数据的1行表格。最终，这几个月将需要为数百种形式进行，但现在我只想从头开始。 我设想有一个按钮，将运行VBA代码从Word文档中拉取数据，并填充表格中的正确单元格。使用Word文档的文件路
..
将字符串变量转换为日期
我需要将字符串变量转换为VBA宏中的日期变量，以处理日期以获取年份和年份，以便命名工作表 调用GetMonthandYear（MonthYear，FileDate） ActiveSheet.Name = MonthYear 我希望创建一个名为GetMonthandYear的方法。 FileDate是日期格式的字符串， dd.MM.yyyy HH-mm-ss 。如果我可以将
..
用户形式的vba对象引用不能正常工作
我正在工作，打了一个路障。对于一个我不是最强大的程序员，我只是给了这个任务，但打了一个路障（我认为它的语法，但不确定）。 我们已经做了大量的研究，为我们的一些较少的技术顾问找到一些数据相关性，这个VBA工具将是他们给出的一个快速参考客户实时预测。这个问题与这个问题无关。 我创建了一个类来包含值，然后计划是从VBA userform引用类。当我引用类时，我没有得到我已经存储的值，但是我得
..
使用没有“DIR”的VBA或Excel测试文件是否存在
我正在进入文件夹目录，查看文件夹以便在每次找到特定文件时获取特定数据。 如果我打开文件，我正在找不到它的文件夹，我得到一个调试错误。所以很清楚，我需要测试该目录以查看该文件是否存在，如果不存在，则不尝试打开它（这很好，并不是所有的文件夹都有主题文件）。 DIR功能是测试文件存在的最佳选择，但是由于我使用DIR功能来遍历文件夹，我的测试表明我无法使用DIR测试特定文件我的代码的中间，因为
..