VBA错误处理程序-在退出sub之前是否需要打开错误GoTo 0？
在VBA中，错误处理程序是一种用于捕获和处理运行时错误的技术。当代码执行过程中发生错误时，错误处理程序可以帮助我们优雅地处理错误，避免程序崩溃或产生不可预料的结果。
在VBA中，使用On Error GoTo语句来定义错误处理程序。GoTo 0语句用于关闭错误处理程序，将错误处理恢复为默认状态。在退出Sub之前是否需要打开错误GoTo 0取决于具体的情况。
通常情况下，在退出Sub之前打开错误GoTo 0是一个良好的做法。这样可以确保在退出Sub之后，错误处理程序不会继续影响其他代码的执行。同时，关闭错误处理程序也可以提醒开发人员在后续的代码中显式地处理错误，以避免潜在的问题。
然而，有些情况下可能需要保留错误处理程序。例如，在一个循环中，如果某个特定的错误发生，我们可能希望继续执行下一次循环而不是中断整个循环。在这种情况下，我们可以在错误处理程序中使用Resume Next语句来跳过当前的错误，继续执行下一行代码。
总之，是否需要在退出Sub之前打开错误GoTo 0取决于具体的需求和代码逻辑。在大多数情况下，打开错误GoTo 0是一个良好的做法，以确保错误处理程序不会影响其他代码的执行。但在特定情况下，我们可以根据需求选择保留错误处理程序或使用Resume Next语句来处理特定的错误。
相关·内容
1回答
我有VBA代码，可以根据所选选项对单元格进行验证。
Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Set ws = Sheets("lkup")
Dim VariationList As Variant
VariationList = Application.Transpose(ws.Range("Resource_List"))
For i = LBound(VariationList) To UBound(VariationList)
浏览 2提问于2016-11-16得票数 1
回答已采纳
有一些问题，了解错误处理时，您调用/运行子或函数从sub。
如果在被调用的sub中没有错误处理，那么源子中的错误处理是否适用？
如果被调用的sub中的错误处理具有"exit sub“或"Exit Function”，那么源子将继续运行吗？
asd asd
Sub Testing()
On Error GoTo ErrorHandling
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Appli
浏览 0提问于2016-01-12得票数 0
回答已采纳
3回答
我想在检测到一个错误后，放置两个GoTo对齐。但是，第二个GoTo被VBA忽略，然后出现一个调试屏幕。
Sub GoTo_Test()
Dim X, Y As Integer
1: On Error GoTo 2
MsgBox "START 1"
X = 1 / 0
MsgBox "END 1"
2: On Error GoTo 3
浏览 5提问于2019-12-17得票数 0
回答已采纳
我有excel vba代码，可以在使用它们时打开不同的文件。可能会发生错误，因为没有excel提供的文件。我想用一条没有特定文件的消息来创建这样一个错误的MsgBox。
现在我只能
On Error GoTo ErrorHandler
ErrorHandler:
MsgBox("File is absent")
但我不能具体说明哪一个文件不存在。是否有一种通过错误处理程序来实现它的方法？也许通过一些额外的变量？
编辑：我通过
Workbooks.Open Filename:=...
但我很好奇如果这个案子
Dim fileTitle As String
fileti
浏览 7提问于2017-08-17得票数 0
回答已采纳
当单击按钮时，我正在运行一行代码来打开PDF。我在那里放置了一个错误处理程序，以防文件不存在。问题是，代码正常工作，文件被打开，但错误处理程序仍在运行。
当我禁用错误处理代码时，它运行良好，而且VB不会生成错误。我甚至尝试使用Err.Description作为消息框，它只是弹出，没有任何显示。这是我的代码：
Private Sub cmdOpenPDF_Click()
On Error GoTo Errorhandler
Application.FollowHyperlink "E:\groups\folder\folder2\" & Dir("E:\gro
浏览 5提问于2019-09-18得票数 1
回答已采纳
4回答
我试图制作一个Excel2007VBA代码来使用userform选择一个工作表。在测试过程中，如果输入工作簿中没有的工作表名，就会使'Subscript超出范围‘错误。我的密码在下面。
Private Sub Okbtn_Click()
sheetname = Me.ComboBox1.Value
If sheetname = "" Then
Unload Me
MsgBox "Sheet Name not enetered", vbExclamation, "Hey!"
Exit Sub
End If
This
浏览 13提问于2015-03-07得票数 2
回答已采纳
我编写了一段vba代码，用于打开多个文件，复制这些文件的内容并将其粘贴到主文件中。当一个文件在指定的位置丢失时，编译器抛出错误，我能够处理它并继续下一个文件。但是，如果第二次出现错误，程序将被停止。
代码
On Error GoTo ErrH:
ErrH:
MsgBox strFileName & "is missing."
Sheets(strListSheet).Select
ActiveCell.Offset(1, 0).Select
GoTo Continue
浏览 0提问于2014-07-28得票数 2
当我用VBA为Word或Excel编写时，我的主函数通常有一个错误处理程序，并从它调用几个子函数，而且大多数情况下，我希望subs的消息被捕获到主函数中。通常情况下，使用这种策略，一切都很好，它模仿了我在C++中的习惯。
但是，当我需要在一两个子程序中处理不同类型的错误时，我会遇到麻烦。
例如，当我需要打开Resume Next以检查某个对象是否失败并设置为空时。当我想打开错误处理时，我的MainErrorHandler现在超出了范围。
Sub Main()
On Error GoTo MainErrorHandler
Application.ScreenUpdating =
浏览 2提问于2017-09-06得票数 2
回答已采纳
我有一个应用程序，首先创建一个不可见的应用程序：
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
ExcelApp.ScreenUpdating = False
ExcelApp.DisplayAlerts = False
ExcelApp.EnableEvents = False
然后继续使用它以无形的方式打开文件：
Do W
浏览 0提问于2017-08-16得票数 4
回答已采纳
我用错误处理标签在VBA (Excel)中写了一些代码。直到最近我注意到每次都执行错误处理代码，而不仅仅是在错误发生时，它才能正常工作。有人知道为什么会这样吗？谢谢。
这里有一个简单的测试用例，其中和消息盒都会弹出。
Sub example()
On Error GoTo err_handle
MsgBox "OK!"
err_handle:
MsgBox "not OK"
End Sub
浏览 4提问于2009-07-08得票数 4
回答已采纳
1回答
我有一个VBA脚本，当用户执行它时，它会打开新数据并将新数据写入网络共享驱动器上的另一个文件。有时，脚本无法访问此文件以向其中写入新数据，因为其他人正在同时尝试打开它(通过他们拥有的VBA脚本进行只读)。
这个特定的文件打开错误不会在错误处理代码中捕获，并且会出现一个框，要求用户结束或调试。有没有办法弹出一个替代弹出框，上面写着“无法处理请求。请稍等片刻，然后重试。”
浏览 1提问于2014-02-24得票数 0
我需要使用GoTo语句来捕获一些VBA错误：
Sub mySub
On Error GoTo errorHandler:
Workbooks.Open("myWorkbook")
'
' Some Code
'
errorHandler:
MsgBox "ERROR"
End Sub
问题是，如果没有错误，就会执行errorHandler部分。
我找到了，但答案并没有解决我的问题。
我尝试添加一条Exit Sub语句，如下所述：
Sub mySub
On Error GoTo errorHandler:
Workbo
浏览 2提问于2012-04-13得票数 8
回答已采纳
我在工作中使用了Excel VBA的MZ工具，并且在我的大部分过程中使用了它们的自动错误处理程序功能，因为它允许我轻松地将我的联系人信息放在错误消息中，并自动打开显示警报和屏幕更新。但是，如果在VBA中使用了错误处理程序，则很难找到触发错误的确切代码行，特别是在冗长的过程中。默认情况下，使用自定义错误处理程序并获取触发错误的代码行的唯一方法是将这两行添加到错误处理程序的末尾(以便在自定义错误处理程序完成其工作后，问题行将与默认错误处理程序一起重新运行)：
On Error GoTo 0
Resume
如果只有一个错误处理程序，这很好；用户需要通过一个额外的对话框单击，但我可以在维护自定义错误处
浏览 1提问于2016-04-04得票数 2
回答已采纳
基于VBA的应用程序的用户报告了一个奇怪的错误。
我想知道，这怎么可能是由VBA IDE引发的错误，考虑到上面的行是一个错误处理程序。
代码如下。它创建了类frmCfgPrjctTm.的形式。我曾经偶尔会有一些自动化错误，其中有来自VBA的奇怪消息。
运行时错误'-2147418105 (800100007)'：被调用的对象与其客户端断开连接的自动化错误。我在windows 7上使用Excel 2016 32位。
为了解决这个问题，我必须实现一个重试策略来创建表单。这解释了重试循环。
此错误在联机mForm.Show vbModeless中引发。错误处理程序是用指令在错误GoT
浏览 0提问于2018-03-01得票数 0
回答已采纳
MzTools中的默认错误处理程序模板为：
On Error GoTo {PROCEDURE_NAME}_Error
{PROCEDURE_BODY}
On Error GoTo 0
Exit {PROCEDURE_TYPE}
{PROCEDURE_NAME}_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure {PROCEDURE_NAME} of {MODULE_TYPE} {M
浏览 0提问于2012-05-01得票数 2
1回答
我正在使用下面的简单代码来处理错误。当不存在错误时，为什么会出现msgbox？只有在出现错误时，才能使msgbox出现？
Sub Test()
On Error GoTo ErrHandler
On Error GoTo 0
'rest of the code is here
ErrHandler:
MsgBox "Please make sure the file exists in the current folder."
Exit Sub
End Sub
浏览 0提问于2014-06-04得票数 2
回答已采纳
我有一段非常简单的代码，它循环遍历一列数据，并向Collection添加唯一值。
它是VBA，所以Collection当然缺少一个Exists函数(谁会想要这样呢？)，我宁愿避免迭代列中每个单元格的整个集合，我决定采用错误处理方法--尝试从集合中检索项，捕捉如果不存在就会发生的错误，并添加它：
'Trucated the code slightly, I know I should be checking the actual error code, but omitted that for brevity
Dim r As Range
Set r = MySheet.Range(&
浏览 3提问于2014-11-18得票数 0
回答已采纳
我编写了一个VBA过程，它执行以下操作：
从特定文件夹(用户指示文件夹)打开一堆excel文件(单独而不是一次)。
excel文件受到密码保护，因此它输入密码，打开文件，然后解除对特定工作表的保护(因为工作表也受到保护)，并对文件进行一些更改。
我的问题是，对于要应用于每个excel文件的更改，工作表必须不受保护，不幸的是，有3种不同的传球选项(不要问我为什么)。我知道pass选项，所以我将其放在代码中，如下所示：
但是，如果第一个pass选项不正确，则该过程仍将停止，并且我必须手动将执行行拖到下一个有效的pass中，以便该过程继续。
本质上，我的问题是:上面设置的代
浏览 16提问于2022-09-15得票数 -2
此代码尝试选择复选框；如果不存在，则将通过errorHandler创建复选框。我想知道，如果在这个子部分后面发生了一个错误，它还会被指向那个errorHandler吗？换句话说，VBA是否会尝试创建一个复选框，当我在这个子项目中出现错误时？还是ErrorHandling只查看“occurs .：”之后出现的下一行
Sub PrepNewPurchaseEntryForm()
'no relevant VBA happens here
Dim companyCount As Integer: companyCount = colCount("CompanyUserEnt
浏览 1提问于2015-10-14得票数 3
回答已采纳
我希望这个简单的VBA能够默默地处理所有10个错误，但出于某种原因，只有第一个错误是默默地处理的：
Public Sub HandleError()
For i = 1 To 10
On Error GoTo Continue
ThrowError
Continue:
Err.Clear
Next i
End Sub
Public Sub ThrowError()
Err.Raise vbObjectError + 1000
End Sub
这是上述代码的正确行为吗？或者这是VBA中的一个bug？
浏览 2提问于2016-10-28得票数 1
回答已采纳
1回答
项目中的一些上下文(如果您不关心这个，请跳过这个)
最近，我的任务是建立一个解决方案，让我的队友和我能够迅速处理我们所谓的“累赘”。不幸的是，任何其他语言(如Python )都不能使用，因为所有文件都是加密的，除非它们是在特定程序中打开的。Excel就是其中之一，正因为如此，我们整个办公室都倾向于使用VBA。我学过的每一门语言，VBA都是.开发复杂的项目(仅仅是一种意见)太可怕了，所以我冒险通过创建一个各种类型、功能、类等的库来使我(和我的同事)的生活变得更容易。
问题
由于某些原因，以下代码将始终执行alreadyExists Line，而不只是在引发Error时才执行：
Private S
浏览 0提问于2019-01-18得票数 0
回答已采纳
2回答
我正在试图找出是否有可能让我的所有子类有一个错误处理程序？当出现错误时，我需要退出subs，并跳过所有下一个subs。
Sub Runall()
Call A
Call B
Call C
Call D
End sub
现在，如果在Sub A中有一个错误，我不想运行B，C，D和B的相同的东西。我的错误处理程序应该放在哪里？我实际上非常困惑，因为使用退出声明有什么关系。请指点。
浏览 1提问于2015-04-07得票数 0
回答已采纳
2回答
嵌套在错误GoTo上的VBA
、、、、
我的VBA代码应该是嵌套的错误检查，但事实并非如此。下面的代码是psuedo。但是，只要在错误中发生错误(例如，在循环中触发错误，发生goto SmallError，在SmallError中发生错误)，就不会使用第二个GoTo。然后，该错误会破坏代码。
例如：
循环中的错误
GoTo SmallError
SmallError中的错误
代码分隔符(这里的代码应该GoTo FatalError)
Sub DoThings()
On Error GoTo SmallError
'Coding Happens
Do While(conditionhere)
浏览 0提问于2013-04-04得票数 4
回答已采纳
我有下面的密码。但是错误没有得到处理。
Sub Some_sub()
Some code here
On Error GoTo resumeCode
If Workbooks("Some file.xlsm").ReadOnly Then
GoTo readOnlyError
End If
resumeCode:
On Error GoTo fileNotOpen
Workbooks("Some file.xlsm").Activate
some more code here
Exit Sub
fileNotOpen:
MsgBox
浏览 3提问于2017-06-28得票数 1
回答已采纳
2回答
如果出现错误，请重试
、、、
我们已经使用Server、Access和Excel实现了报告过程的自动化。然而，我们的一个查询在上午运行时遇到了困难。有时会出现超时错误。当这种情况发生时，整个系统就会崩溃，我们必须手动继续这些进程。
我希望添加一个VBA循环，允许查询在发生故障时再试一次。
我希望这个系统：
运行查询。
如果失败，请等待5分钟，再试一次。
如果它连续5倍失败，请停止代码。
我编写了以下代码，但我无法测试它。我希望你们中的任何一个人都能检查一下，并评论它是否应该起作用。
'Counter for the errors
ErrorCount = 0
GoTo C
浏览 3提问于2017-08-22得票数 3
回答已采纳
2回答
在Resume处理之后总是需要On Error吗？下面示例中的Resume行会导致堆栈错误跳过它吗？
Sub MySub
on error goto Hell
DoThis
DoThat
Otherstuff
Adios:
Exit Sub
Hell:
MsgBox Err.Description, vbCritical, "Error " & Err.Number
Resume Adios 'is this line required ?
Exit Sub
浏览 2提问于2014-05-15得票数 1
回答已采纳
3回答
我有一个非常简单的VBA代码，它应该尝试打开一个不存在的文件，将我发送到一个错误处理程序，然后返回到无限循环中的代码(有意)。
但是，编译器只在第一次捕获错误，然后在第二次传递时中断。
我已经尝试了每一个组合的On错误语句发送回第二次，但似乎没有任何工作。以下是代码：
Sub TestError()
On Error GoTo errError
lblError:
On Error GoTo errError
'Code that should raise an error and send to errError
Excel.Application.W
浏览 2提问于2016-02-12得票数 5
回答已采纳
2回答
我写了一些例子来强调我在理解上的问题。
1.示例：此操作与预期相同。通过Goto语句处理错误，并将错误处理返回到正常行为
Sub ErrorHandlingWithoutLoop()
Debug.Print "Before Error"
On Error GoTo errorHandler
Error (1)
' If no Error occured, the ErrorHandling procedure is skipped
GoTo skip
errorHandler:
Debug.P
浏览 2提问于2021-01-06得票数 0
3回答
下面的vba代码是一个更大的脚本的一部分。我遇到的问题是，即使Outlook消息已保存到系统上的一个目录中，但SaveAs函数仍会持续抛出一个错误。对Err对象的检查不会产生任何结果，因为所有内容都是空的或0。
另一个奇怪的问题是，当错误处理代码在下面被注释掉时，脚本将正确执行，而不会引发任何错误。在我看来，错误处理代码本身就导致了这个问题。VSTO目前不是一种选择.
除了下面的方法之外，还有其他选择吗？
您能提供一些有用的调试技巧来帮助这种情况吗？
这是我正在使用的代码
For Each itm In itemsToMove
Dim mItem As MailIt
浏览 7提问于2010-02-16得票数 1
回答已采纳
我目前正在制作一个表单，其中包含一个包含11页的单个多页。每个页面都有多个复选框，从3到12个复选框不等.复选框表示如下所示的列表项：
我计划使用一个二维for循环(for循环中的for循环)来使用以下语法检查每个框。
我已经习惯了Python，所以我的想法是循环，直到出现错误(指示不再有复选框)，然后中断当前循环并继续。
For Each pg In Me.MultiPage1.Pages
x = 1
For i = 0 To 12
If ActiveSheet.Shapes("CheckBox" & x & i).Value
浏览 2提问于2020-08-03得票数 1
回答已采纳
我正试着在excel中循环浏览表格。此表的前三列具有文本标题，其余列以日期作为标题。我希望将这些日期按顺序分配给一个date类型的变量，然后根据该date执行一些操作
为此，我在myTable.ListColumns上使用了一个foreach循环。由于前三列没有日期标头，因此我尝试设置循环，以便如果将标头字符串分配给日期类型变量时出现错误，循环将直接转到下一列
这似乎适用于第一列。但是，当第二列的标头被‘赋值’给date类型的变量时，即使宏在错误处理块中，它也会遇到错误
Dim myCol As ListColumn
For Each myCol In myTable.ListColumns
浏览 24提问于2012-08-17得票数 20
回答已采纳
3回答
假设您在主子部分中定义了错误。
Sub Main()
On Error Goto CatchAll
'... Some code... goes here
Call XYZ
CatchAll:
Msgbox "An Unexpected Error Occurred"
End
End Sub
在主子程序中，您可以调用常规的XYZ。假设Sub XYZ是这样的：
Sub XYZ()
'If unexpected error happens here, control will be shifted to sub Main,
浏览 2提问于2018-01-04得票数 2
回答已采纳
我的VBA代码中有一个与实际堆栈溢出有关的问题。
我正在尝试找出VBA错误处理。
我做了个测试小组来帮我解决这个问题。
我的错误是GoTo Error_Handle
我希望如果Err.Number = 13重新开始，而不是下一步继续。
如果我尝试循环GoTo Start_Over_Label:，在第二次传递时，仍然会引发错误。
如果我再次尝试循环调用sub，则会收到堆栈溢出错误。
有什么方法可以在Sub中循环，而不抛出错误，或者占用调用堆栈？
也许有一种方法可以继续下去，但是重新开始吧？
我觉得有解决办法，但我错过了。
提前谢谢你
Private My_Long As Long
Private
浏览 3提问于2020-02-17得票数 0
回答已采纳
2回答
我对VBA中的错误处理有一个问题。代码以前是有效的，但是现在突然On Error GoTo语句无法处理错误，相反，代码崩溃了，出现了一个带有错误消息的弹出，就好像On Error GoTo 0是活动的一样。
下面是代码结构的示例：
On Error GoTo logError
For d = 0 To Doclist.Count -1
On Error GoTo DownloadFailed
session.findById("wnd[0]/tbar[1]/btn[30]").press
session.findById("wnd[1]/usr
浏览 11提问于2022-11-10得票数 1
我有一个简单的代码，如果它失败了，应该重新尝试(经过一小步等待)。以下是基本设置：
Main调用Bar，它调用Foo。Foo和Bar都有一个简单的On错误处理程序，它显示了一个消息框。在Foo中，错误处理程序也有一个GoTo来启动该函数。下面是代码：
Sub main()
Bar
End Sub
Function Bar()
On Error GoTo ErrHandBar
Foo
ErrHandBar:
MsgBox ("ErrhandBar")
End Function
Function Foo()
On Error GoTo Errhand
浏览 0提问于2014-07-09得票数 0
回答已采纳
在下面的代码中，当我输入未打开的工作簿或任何随机字符串时，Errorhandler会正确地处理第一个错误。但是当我点击重试并再次随机输入一个名字时，我得到了"Subscript out of Range“error @Workbook(工作簿名称)。启动。
有没有人能告诉我为什么会发生这种情况，以及我怎样才能让它正常工作。我尝试过很多东西。但是什么都不起作用。此代码是一个更大的程序的一部分。
Sub test()
Dim workbkname As String
On Error GoTo Errorhandler
Retry:
workbookname = InputBox(&#
浏览 0提问于2016-03-11得票数 3
有人能在VBA中找到“on error goto -1”和“on error goto 0”之间的区别吗？我试过谷歌和msdn，但我没有运气。
浏览 1提问于2013-01-04得票数 43
回答已采纳
1回答
我把一些VBA放在一起，用特定的条件找到最后一行，匹配我循环中的当前值，然后采取行动。这段VBA代码可以正常工作，直到我意识到工作表可以多次包含匹配值，但在另一列中具有不同的日期。因此，我现在正在尝试为我的VBA添加第二个搜索条件。
这是目前为止的VBA代码片段。
For Each t In trans.Cells
On Error GoTo NxtT2
If t.Value = Empty Then
On Error GoTo 0
ty = t.Offset(
浏览 0提问于2018-10-30得票数 0
目前，我在VBA代码中遇到了一个问题。
Option Explicit
Dim X As Integer
Dim Rng As String
Sub runtime91()
Sheet1.Select 'Select the first sheet
For X = 1 To 43 'Setting the loop
Rng = Sheets("Reference").Cells(153 + X, 8).Value 'assigning variable for cells
浏览 3提问于2021-04-24得票数 0
回答已采纳
我目前使用的是VBA代码，它最初是为excel文档设计的。我可以只复制word中使用的代码，但我认为扩展应用程序可能会更好，这样它就可以兼容“潜在的”任何MS Office应用程序。但我不完全确定如何做到这一点。
例如，基于excel的代码获取文档的路径：
If libDir = "" Then libDir = ThisWorkbook.Path
要将其扩展到word，我只需用ActiveDocument替换ThisWorkbook。
但是，是否有可能找出哪个office应用程序正在运行VBA代码，以便我可以保留这两个代码。
'IF VBA run from Wor
浏览 0提问于2011-09-09得票数 0
回答已采纳
我有一个宏，部分代码涉及: 1)检测列是否包含空单元格(如果包含空单元格，则用值填充它们)；2)检测列中是否包含包含错误的单元格(如N/A)，如果包含错误单元格，则用某些值填充它们。
现在，如果列中没有错误/空单元格，则查找它们的行将给出“运行时错误1004未找到单元格”。
我使用错误处理来跳过GoTo。
下面是代码--第一个错误处理GoTo工作得很好，而第二个错误给出了预期的错误，尽管存在错误处理GoTo集，但这似乎不起作用。附有注释的代码：
On Error GoTo EErrorOne
'depending on file I get, below line will gen
浏览 14提问于2017-08-02得票数 0
回答已采纳
所以有几个这样的问题，谷歌的结果出现在“or执行一次”之下，在几乎每一种情况下，推荐的解决方案都是添加Err.Clear或Resume的某个论坛来清除错误。一次只能处理一个VBA错误，因此需要清除它们。
正如您可能已经猜到的那样，在实现了这些之后，我遇到了这个问题，在这个问题上，On Error GoTo只执行一次，而我不知道为什么。
下面是我的循环。我确实忽略了一些代码，因为它有相当多的代码，而且与此无关。主要是用户提示和数组的制作。为了稍微解释一下发生了什么，conos()是一个数组，包含特定列的值。基于文件名的一个段，它搜索数组中的代码，以获取它的索引，该索引对应于行。
如果没有Matc
浏览 0提问于2017-03-03得票数 2
回答已采纳
我试图遍历特定工作簿中的所有工作表，并尝试将格式从一个工作表复制到另一个工作表。这里的目标是找到相应的工作表，该工作表具有相同的名称，但附加于"(FF)“。然后，我想将该工作表的格式复制到不包含附加版本"(FF)“的工作表中。不幸的是，并不是所有的工作表都包含它相应的带有附加"(FF)“的工作表。尽管如此，我已经写了下面的宏，以帮助我吹过任何“子脚本超出范围”错误，通过发送它到一个错误处理程序。问题是，在工作簿上测试这个问题时，没有一个工作表有"(FF)“附加的相应工作表，它只会通过第一个”子脚本超出范围“错误，就这样了。
为什么我的错误处理程序只工作一次？
S
浏览 2提问于2017-10-11得票数 0
回答已采纳
1回答
我试图通过VBA将Excel工作表连接到本地Access数据库，并且遇到了先前调试中将Access数据库锁定的问题，并且在尝试调试时会引发错误3704或3709 (请参阅下面)。
现在我刚开始使用VBA，所以很有可能我没有正确地将它连接到数据库。有没有办法强迫数据库关闭？
以下是连接的代码：
Dim objAccess As Object
Dim strFile, strConnection As String
strFile = "Address of SampleDB.accdb"
Set objAccess = CreateObject(
浏览 2提问于2014-06-30得票数 4
回答已采纳
1回答
如何才能只捕获VBA中的特定错误？
到目前为止，我一直在使用错误处理程序中的相同数字(我不想使用这个particualr错误)向另一个处理程序传递错误，但这会使我的代码膨胀。
我在想有没有更好的办法？
到目前为止，我是如何做到这一点的：
sub correct()
On Error GoTo CorrectHandler
wrong
CorrectHandler:
'some code to handle out of range error (aka Err.Number 9)
End Sub
Sub wrong()
Dim BadArray(1 T
浏览 1提问于2015-04-22得票数 2
回答已采纳
如何在VBA中执行内联错误处理例程？我不想把错误处理程序放在最后。
这是来自的
Sub testErrHandling()
On Error GoTo ErrHandler:
Debug.print 9 / 0 'divide by zero error
Worksheets("NewSheet").Activate 'missing worksheet error
'more code here
Exit Sub
ErrHandler:
If Err.Number = 9 Then
浏览 6提问于2015-01-07得票数 2
回答已采纳
我的VBA代码打开一个电子邮件模板，在编辑和发送电子邮件后，应该将电子邮件内容复制到约会中。
问题是约会在发送电子邮件之前打开，未经编辑的电子邮件内容被插入到约会中。(如果删除while循环)
我怎么能等着发送电子邮件并关闭它的窗口呢？
错误: Outlook冻结或显示错误：
运行时错误'-2147221238 (8004010a)'：元素移动.
Public Sub Fooo()
Dim items As Outlook.items
Dim Item As Object
Set items = Application.ActiveExplorer.CurrentFo
浏览 5提问于2017-02-06得票数 4
回答已采纳
我正在Access中构建一个数据库，为此我从Excel工作簿调查表中导入数据。我编写了一个Import，用于选择、打开、检索数据并最终关闭工作簿。
问题是这样的:由于某种原因，当我现在打开计算机上的任何excel工作簿时(此时既没有Access也没有使用Excel )，一些旧版本的调查问卷也一直在打开。这个问题并不是通过重新启动计算机来结束的，而是通过删除特定的问卷--工作簿来结束的。但是，它开始在另一个工作簿上发生。
我有一个理论，这可能是因为我-在我的导入-子-打开了调查问卷，遇到了一个运行时错误，它已经结束之前，潜艇关闭工作簿，并在某种程度上，工作簿仍然“打开”。或者仍然有一个链接活动。
浏览 7提问于2014-08-18得票数 1
回答已采纳
我需要VBA的帮助，在代码中按下按钮执行指定的宏，其中宏被分配到按下按钮的地方执行。
基本上，我创建了一个跟踪工作簿，通常通过宏输入一个新的“任务”，这会在行旁边添加一个新行和一个新按钮。
我遇到的问题是，对于按钮所在的特定行，我希望使用相同的宏(一旦任务完成，它将剪切并粘贴到“历史”表中)。
我该怎么做？这真的有可能吗？下面是我一步一步的想法
按"AddTask“按钮=创建一个新行，从同一行的”已完成“按钮中输入来自用户的数据
将“已完成”按钮绑定到所添加的行，因此当宏“完成”运行时，它将只专门运行到按钮被按下的行。
这将有所帮助，因为也许我在task# 41 (第4
浏览 2提问于2018-03-21得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
