在一个工作簿中使用VBA时,我正在尝试使用Application.Run "'MyFile v0.1.xls'!ABCMacro"在另一个工作簿中运行宏。
通过阅读,我相信语法是正确的(包括单引号等),但我得到了一个1004 run-time error,它声明(大多数时候) Method 'Run' of object '_Application' failed,但在其他情况下已经声明(我现在无法获得1004消息来显示这一点,所以以下内容只是根据内存) Cannot find the file. Has it been move
我创建了一些代码来打开工作簿并运行保存在该工作簿中的宏,但是我得到了一个错误“预期的子/函数”。代码在下面。非常感谢您的帮助!
Sub practice()
Const folderPath As String = "I:\Ben\New Stores\Reports"
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim MyFolder As Object
Set MyFolder = fso.GetFolder(folderPath)
Application.Run "'6wk Fi
我拼凑了一个Excel VBA脚本,该脚本将打开的工作簿中的所有工作表写入单独的、以制表符分隔的文件(这仍然是一个“宏”吗?我是在Excel真空中学习的)。它一次只在一个工作簿上运行良好。这就是了。
Sub exportSheetsToText()
Dim sWb As String
Dim sFile As String
Dim oSheet As Worksheet
sWb = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".") - 1)
For Ea
我有一个工作簿HasMacros.xlsm和一个工作簿HasData.xlsm
在HasMacros.xlsm中,我只使用以下代码添加了一个名为Mod1的模块:
Sub testmacro()
MsgBox ("Test")
End Sub
在HasData.xlsm中,我只使用以下代码添加了一个名为Mod2的模块:
Sub testmacro2()
'XXX
End Sub
Excel中没有打开其他任何东西。
我想从编写testmacro2的地方调用test宏。
这在立即编译错误时失败:
Sub testmacro2()
testmacro
我曾尝试使用许多站点建议的代码,在打开Excel工作簿时自动运行宏列表。附件是我在ThisWorkbook上的VBA代码:
Private Sub WorkbookOpen()
MsgBox "STOP! Do NOT attempt to highlight any fields manually!" & vbCrLf & _
"Any highlighting will be overwritten upon reentry of this workbook.", vbOKOnly +vbExclamation
Ca
我有一个VBA项目,它同时使用两个工作簿。在工作簿A中,模块从工作簿B调用模块,如下所示:
If oED Is Nothing Then
Set oED = Application.Run("'" & workbookB & "'!wbB.MainModule.InitDatabaseObject")
End If
这之前运行良好,但突然(显然)这一行代码在其他工作簿中找不到模块/宏。
我收到这条错误消息
错误1004此工作簿中可能无法使用宏,也可能禁用所有宏。
我试图:
清除Excel中的宏设置
清
VBA错误“运行时1004”有问题。使用以下代码。宏是从第5行中的一个按钮调用的,因此进行了减法。第6、7、8行中还有其他按钮,所有这些按钮都调用相同的宏(随后调用特定的userform),因此变量。
Sub Export()
i = RowNumber - 4
Reinstated = "ReinstateR" & i
Application.Run Reinstated
End Sub
宏‘ReinstateR2 R1’、'ReinstateR2‘等都存储在一个单独的模块中。
Sub ReinstateR1()
'Ma
我在工作簿A中有一个宏,它调用工作簿B中的宏。我希望工作簿B中的宏运行,然后我想关闭工作簿B。我不断收到错误,说找不到宏,我想从工作簿B运行。我在这方面几乎是个新手,但我已经做了相当彻底的搜索,我自己也找不到任何东西。下面是我完整的代码。
Public Sub InputDept()
Dim Cap As Workbook
Dim Cap2 As String
On Error Resume Next
Set Cap = Workbooks("NGD Source File for Net Budget Reporting.xlsx")
Cap2 = Cap.Name
O
我正在尝试创建一个VBScript来打开或获取已经打开的Excel工作簿的句柄,并运行一个宏,该宏使用工作表作为表,对工作簿本身执行一系列SQL查询。该工作簿预计将由一些用户继续打开。工作簿充当一个半自动的报告传递容器,通过用户使用的ERP系统中的某些操作来更新自己。
问题
脚本可以独立工作,但是当脚本打开工作簿第一次调用时,VBA宏中的ADO调用就会失败,返回一个运行时错误No value given for one or more required parameters.,但是再次使用相同的参数运行相同的宏,无论是从VBScript还是VBA运行,都会成功。如果文件已经手动打开,则宏每次都
我从临时Excel工作簿运行VBA,它将做的是“在另一条路径中打开一个启用宏的Excel,并从单元格C3提取值到临时Excel”。但问题是,每当我从该路径打开Excel工作簿时,它都会显示两个框。
1)一些错误(我不知道错误名称,因为宏在Excel文件中受到密码保护,否则建议如何发送"Enter“键,从而跳过此错误)。
2)输入框(本例我只需输入,仅此而已)。
是否有任何方法可以在不打开其他已关闭工作簿的情况下从其他关闭工作簿中获取数据验证下拉值。
Sub macro1()
Dim wrk As Workbook
Set wrk = Workbooks.Open("D:\T
我有一个工作簿,其中客户端已将此代码设置为在打开时运行:
Public Sub workbook_open()
Me.RefreshAll
Me.Save
Application.Quit
End Sub
我需要删除此脚本,但由于宏已被启用,我无法进入工作簿来删除它。有没有办法阻止vba代码运行或删除它?
我在我的业务中为几个零售商处理订单处理,我在excel工作表中操纵订单。我从每个零售商的查询中导入数据,这个过程在4或5个不同的帐户中是相同的。但是以后的步骤不同,所以每个零售商都有自己的工作簿。
我要做的是通过使用工作簿和VBA中的公式,自动将数据从查询导入到每个工作簿。但是我想将宏合并到一个工作簿中(基本上是一个其他工作表可以调用的宏数据库),因为我不想每次调整时都要在5个不同的工作簿中更改代码。
我已经尝试将代码放在宏数据库中,然后从每个单独的工作簿中调用宏,其中有些已经开始工作。
这里是我最初在每个工作簿中拥有的宏之一,在每个工作簿中都可以正常工作。
Private Sub Order
此代码在工作簿中。(在工作表类代码模块中)
Sub Testie()
Dim FullPathAndName As String
Let FullPathAndName = "'" & ThisWorkbook.Path & "\" & "NeuProAktuelleMakros.xlsm'"
Application.Run Macro:=FullPathAndName & "!FrmProTypeIn", Arg1:=42
End Sub
在另一个名为“NeuProAktuel
我有一个启用宏的工作簿,其中包含多个模块,每个模块包含许多宏。我的问题是,当我从“开发人员”选项卡打开宏列表时,我的工作簿中再也没有宏了。当我打开VBA时,我仍然看到它们在那里,并在树中与工作簿/项目相关联。宏仍然在模块中。 背景:今天,在对其中一个宏进行了一些编辑之后,我关闭了VBA,看到一个项目正在被重置的提示,我点击了ok。问题开始了。工作簿中的所有宏过去都会显示在“开发人员”选项卡上的宏提示中。 Project/Workbook tree with associated modules containing macros; no macros showing in workbook
在BluePrism中工作时,我在运行打开另一个工作簿的Excel宏时遇到问题。
Excel例程
在启用宏的excel工作簿\\myCompany\myFolder\myMasterbook.xlsm中有一个打开另一个工作簿的\\myCompany\myFolder\myMasterbook.xlsm。
Public Sub OpenMyFile(Optional book2open As String = "")
Dim openedBook As Workbook
Debug.Print "About to open", book2open