为什么粘贴时此代码会编译但否则会失败?
一个朋友让我看这个页面，并注意到一个论坛用户的签名中有一段奇怪的代码. 代码是单行的，如下所示: On Local Error Resume Next: If Not Empty is nothing then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(
..
vbe相关内容
VB6 和 VBA 的替代 IDE
我被 Visual Studio 2008 和 Eclipse 宠坏了，不得不对一个 VB6 应用程序做一些维护工作. 有人知道 VB6 的替代/更新 IDE 吗? 重写不是一种选择，我只是修复了几个错误，它是一个很大的代码库. 解决方案 我从未听说过 Vb6 的替代 IDE.但是，这两个(免费)VB6 插件是必不可少的，它们会让您的生活更轻松——尤其是在有大量代码的情况下.它
..
如何在没有 Application.Run 的情况下从 VBE 加载项运行宏?
我正在为 VBE 编写一个 COM 插件，其中一项核心功能涉及在单击命令栏按钮时执行现有的 VBA 代码. 代码是用户编写的单元测试代码，位于标准 (.bas) 模块中，如下所示: 选项显式选项专用模块'@TestModule私有断言作为新的 Rubberduck.AssertClass'@测试方法Public Sub TestMethod1() 'TODO: 重命名测试出错时转到测试失败
..
删除 Outlook 项目中的模块
我可以删除 Outlook VBA 模块吗? 我已经尝试了以下代码: 将 vbMod 作为对象变暗设置 vbMod = Application.VBE.ActiveVBProject.VBComponentsvbMod.Remove VBComponent:=vbMod.Item("Module2") 但出现错误: 438 错误，对象不支持此属性或方法 这可以用 Outloo
..
使用 VB.NET 为 VBA IDE 构建插件
我在别处问过这个问题，但从未发现有人知道如何使用 VB.NET 为 VBA IDE 构建加载项.甚至有可能吗?有人能给我举个例子吗? 解决方案 您可能需要使用 IDTExtensibility2 接口编写一个 com 插件，从新项目中选择共享插件项目模板. 编辑 否则，要从头开始创建此插件，您需要执行以下操作: 新建项目类库 添加对“可扩展性"的引用，它应该在列表中.您
..
可以使用 IDTExtensibility2 为 VBA IDE 创建 64 位插件吗?
是否可以创建将加载到 Office 2010 64 位的 Visual Basic 编辑器中的 COM 加载项?我可以让我的加载项加载到 Office 2010 32 位，但它只是被 64 位版本忽略. 编辑:在我的研究中，我发现许多流行的 VBE 加载项不适用于 64 位 Office(例如代码清理器、MZ 工具、VBE 工具等).其中一些是因为它们是在 32 位 VB6 中构建的，但是有
..
替换代码模块中的文本
我正在尝试使用替换行功能来更新 Access VBA 模块中的代码.它不断出现编译错误.我已经检查过是否选择了 VBA 扩展并将其与我查找过的其他示例进行了比较. 这是我第一次使用这种类型的功能，所以我还没有完全了解它们. 代码如下 Sub ReplaceCodeModuleText(strModule As String, strFindWhat As String, strR
..
如何在Excel 2016 VBA编辑器中启用Unicode
我在A1单元格中有一个希伯来语单词“שלום"的工作表. 我正在尝试运行此VBA代码: Sub test()Dim str As Stringstr =范围("A1")MsgBox str结束子 消息框显示: ???? 此外，当我尝试用VBA代码编写希伯来语字符时: 如果range("A1")=“שלום"，则“做某事..." 我看到的是希伯来字母，而不是希伯来语.
..
在Excel VBA编辑器中行尾无法使用空格键
我将我的personal.xlsb移到了新笔记本电脑上，但遇到了一个奇怪的问题. 空格键在行的末尾不起作用，除了它是一个完全空的行. 示例1:不起作用的示例|不起作用 示例2:工作示例|可以工作 当我按下空格键时，文本选择指针没有移动，但是位置指示器在原始位置和(col + 1)之间闪烁. 指针位置指示器图像 “自动保存"切换
..
目前无法进入中断模式错误
我正在尝试在一个模块中执行以下操作: 在运行时在另一个模块中替换 Public Const . 调用使用更新后的公共常量的过程 但是，它会引发错误: 目前无法进入中断模式 尽管，它确实更新了公共常量. 我尝试按 F5 恢复执行，但没有帮助.有什么建议吗? Sub AB()调用LoadQuoteDetails2.AutomationApplication.VBE
..
VBA更改代码的编译是否会导致循环中的错误结果?
在准备SO帖子的答案时尝试过DoEvents，Wait，Sleep甚至使用MsgBox和断点暂停代码，但所有尝试都是徒劳的.但是，已经达到了发布的解决方法. 运行时是否缺少编译?那么，为什么代码总是在单循环中正常工作?寻找对该主题的可能解释和/或理解. Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds
..
Application.Cells VS Application.ActiveSheet.Cells
宏记录器生成以下语句: Cells.Select 现在我了解到，没有对象限定符，它将以Range对象的形式返回所有单元格. 但是，我想知道此声明的完全限定版本是什么吗? 是吗 Application.Cells.Select Application.ActiveSheet.Cells Application.ActiveWorkbook.ActiveSheet.Ce
..
我可以在VBA代码中获取评论文本吗
让我说以下内容: Public Sub Information() 'TEST End Sub 是否有办法获得“测试"? 通过VBA不知何故? 例如-在PHP中，有一种接受注释的好方法.这里有什么想法吗? 编辑: 应该有一种方法，因为MZ-Tools之类的工具能够在生成文档时提供注释. 解决方案 经过一些测试，我得到了以下解决方案: 只需将代码模块的名称
..
对象"_Application"的方法"VBE"失败
我的一位客户在运行下面的Excel VBA代码时遇到问题.他收到以下错误Method 'VBE' of object '_Application' failed，但是只有一次，在打开VBE之后，它开始工作.而且，它一直为他工作直到昨天. 他正在使用Excel 2010. 这是引发错误的代码. For Each f In Application.VBE.ActiveVBProjec
..
为什么需要打开VBA编辑器才能将数据加载到用户窗体中?
我有一个Excel文件，其中VBA宏将数据加载到用户窗体中. 如果我在未打开编辑器的情况下运行它，有时它将崩溃并关闭Excel. 如何修复我的文件，这样我就不需要先打开编辑器? 来自宏的示例代码: Public Sub LoadButton_Click() 'Policy Information ZoneLatitudeTextBox.Text =
..
我怎么知道`ThisWorkbook`是`Workbook`?
我正在使用VBIDE API，并且不能假定宿主应用程序是Excel或任何Office应用程序. 所以我所知道的是，我正在查看VBComponent，并且它的Type是vbext_ct_document. 在VBE的立即窗格中，我可以得到以下输出: ?TypeName(Application.VBE.ActiveVBProject.VBComponents("Sheet1")) V
..
Rubberduck UI子菜单已禁用
我刚刚在Windows 10操作系统上安装了Rubberduck VBE插件v2.0.11.2453(MSIL). 当我在Excel中打开启用宏的Excel工作簿并启动VBA编辑器时，Rubberduck会启动，但是Rubberduck菜单下的所有命令都将被禁用. 我在做什么错了? 解决方案 免责声明:我参与了Rubberduck加载项的开发. 您没做错=) 在
..
VBA-IE GetElementByID无法正常工作
在我认为是对应的ID标签之后，在搜索框中输入文本时遇到了一些麻烦.我从页面的源代码中获得了ID.我之前在其他网站上都这样做过.有人可以帮我吗?还有另一种方法吗? Sub FileUpload() Dim IEexp as Object IEexp.visible = True IEexp.Navigate ("www.example.com") 'this is where the pr
..
删除Outlook项目中的模块
我可以删除Outlook VBA模块吗? 我尝试了以下代码: Dim vbMod As Object Set vbMod = Application.VBE.ActiveVBProject.VBComponents vbMod.Remove VBComponent:=vbMod.Item("Module2") 但是出现错误: 438错误，对象不支持此属性或方法 这可以
..
为什么粘贴时会编译此代码，否则会失败?
一个朋友让我看看此页面，并注意到其中一位论坛用户的签名中出现了一段奇怪的代码. 该代码是一种单行代码，如下所示: On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(
..