开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

VBA- "On Error Resume Next“Excel没有响应

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。"On Error Resume Next"是VBA中的一个错误处理语句，用于在程序执行过程中遇到错误时跳过当前错误并继续执行下一条语句。

具体来说，当程序执行到"On Error Resume Next"语句时，如果后续的代码出现错误，VBA会忽略该错误并继续执行下一条语句，而不会中断程序的执行。这种错误处理机制常用于处理可能出现的可预知错误，以确保程序的稳定性和连续性。

然而，使用"On Error Resume Next"也存在一些潜在的问题。由于错误被忽略，可能导致错误的原因未被及时发现和修复，进而影响程序的正确性和可靠性。因此，在使用"On Error Resume Next"时，需要谨慎考虑错误的可能性和后续处理措施，以避免潜在的问题。

在Excel中，当出现"On Error Resume Next"语句时，如果Excel没有响应，可能是由于程序执行过程中出现了错误导致Excel无法正常处理。此时，可以尝试以下几个步骤来解决问题：

检查代码逻辑：仔细检查VBA代码中是否存在错误或逻辑问题，特别是与Excel交互的部分。确保代码正确无误，没有潜在的错误。
优化代码性能：如果代码执行过程中涉及到大量数据处理或复杂计算，可能会导致Excel响应缓慢或无响应。可以考虑优化代码性能，减少不必要的计算或数据操作，提高程序的执行效率。
关闭其他应用程序：如果同时运行了其他占用系统资源较多的应用程序，可能会导致Excel响应缓慢或无响应。可以尝试关闭其他应用程序，释放系统资源，提高Excel的运行效果。
重启Excel：如果Excel长时间无响应，可以尝试关闭Excel并重新启动。有时候，重新启动可以解决一些临时性的问题。

需要注意的是，以上方法仅供参考，具体解决方法可能因个人情况而异。如果问题仍然存在，建议咨询相关技术支持或寻求专业人士的帮助。

腾讯云相关产品和产品介绍链接地址：

腾讯云云服务器（CVM）：提供弹性计算能力，满足不同规模业务的需求。了解更多：https://cloud.tencent.com/product/cvm
腾讯云云数据库MySQL版：提供高性能、可扩展的MySQL数据库服务。了解更多：https://cloud.tencent.com/product/cdb_mysql
腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务。了解更多：https://cloud.tencent.com/product/cos
腾讯云人工智能：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等。了解更多：https://cloud.tencent.com/product/ai
腾讯云物联网套件：提供全面的物联网解决方案，包括设备接入、数据管理、应用开发等。了解更多：https://cloud.tencent.com/product/iot-suite

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

VBA实用小程序：将Excel中的内容输入到Word

中的区域存在才能使其工作 Private Sub PasteTextToWord(B As Object) Dim strTag As String On Error Resume Next...Dim u As Long txtTag =strTag On Error Resume Next Range(txtTag).Copy If Err =0 Then...w If pic Is Nothing Then Exit Sub On Error Resume Next pic.Copy If Err =0 Then...As String On Error Resume Next strTag =Mid$(B.Name, 5) If Err 0 Then Exit Sub On Error...If cht Is Nothing Then Exit Sub On Error Resume Next cht.Copy If Err =0 Then Select

2K2 0

VB.net-VSTO-13文本插入、提取、删除

Resume Next Dim SelectRngs As Excel.Range = xlapp.Selection If IsNothing...On Error GoTo 0 Case "Insert_btn2" '"批量插入到中间" On Error...Resume Next Dim SelectRngs As Excel.Range = xlapp.Selection If IsNothing...On Error GoTo 0 Case "Insert_btn3" '"批量插入到末尾" On Error...Resume Next Dim SelectRngs As Excel.Range = xlapp.Selection If IsNothing

1131 0

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

有时候，我们打开了一个工作簿，但长时间没有使用，此时，你可能想让Excel自动将其关闭。也就是说，对于某个工作簿，如果用户在指定的时间内没有进行任何操作，那么Excel会保存并关闭该工作簿。...在VBE资源管理器窗口，双击ThisWorkbook打开该模块，输入代码： Private Sub Workbook_Open() On Error Resume Next Application.OnTime...Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On ErrorGoTo 0 End Sub Private...Sub Workbook_SheetChange(ByVal Sh AsObject, ByVal Target As Range) On Error Resume Next Application.OnTime...Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen =

1.9K3 0

Excel工作表保护的密码破解与清除...假装自己破解密码系列？

Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66:...: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End...If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume...Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For...Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS

2.1K1 0

在Excel中自定义上下文菜单（上）

On Error Resume Next ContextMenu.FindControl(ID:=3).Delete On Error GoTo 0 End Sub Sub ToggleCaseMacro...() Dim CaseRange As Range Dim CalcMode As Long Dim cell As Range On Error Resume Next...Resume Next Set CaseRange = Intersect(Selection, _ Selection.Cells.SpecialCells(xlCellTypeConstants...Resume Next Set CaseRange = Intersect(Selection, _ Selection.Cells.SpecialCells(xlCellTypeConstants...Resume Next Set CaseRange = Intersect(Selection, _ Selection.Cells.SpecialCells(xlCellTypeConstants

2.6K4 0

VBA实用小程序：将Excel中的内容输入到PowerPoint

在将Excel中的内容输入到Word中时，可以利用Word的书签功能，而将Excel中的内容输入到Powerpoint要困难得多，因为它没有书签，甚至不允许为幻灯片上的对象命名，那么，怎么办呢？...因此，下面的代码的思路很简单，对其进行设置，只需为Excel中的文本、区域和图表命名，并按照代码中的说明在Powerpoint中创建匹配的名称。...Resume Next Set PPTApp = GetObject(, "Powerpoint.Application") If Err 0 Then MsgBox...Resume Next Range(tag).Copy If Err.Number = 0 Then found = True...End If End If If found Then On Error Resume Next

1.6K3 0

在加载宏及其源文件之间切换

也可以在完美Excel微信公众号中发送消息：切换加载宏获取示例代码工作簿的下载链接。或者，直接到知识星球App完美Excel社群中下载示例代码工作簿。...Resume Next Dim o As Object Dim sFileName_Addin As String Set o = CreateObject...Resume Next If Workbooks(Addin_FileName) Is Nothing Then Workbooks.Open Application.UserLibraryPath...'更改.IsAddin属性 On Error Resume Next With Workbooks(AddIns(CreateObject("Scripting.FileSystemObject")...Resume Next If Not Workbooks(Addin_FileName) Is Nothing Then Workbooks(Addin_FileName).Close

851 0

VBA实用小程序：使用VBA代码安装或卸载加载宏

, vbYesNo, sAppName &" 安装") If vReply= vbYes Then On Error Resume Next Workbooks(sFilename...语法与Win不同 AddInLibPath = Application.UserLibraryPath & sFilename End If On Error...Resume Next FileCopy CurAddInPath, AddInLibPath If Err.Number 0 Then SomeThingWrong..."_ &vbNewLine & "它使你有机会按ALT+TAB返回Excel以阅读此文本....Resume Next Workbooks(sFilename).Close False Kill AddInLibPath DeleteSetting sRegKey

9103 0

问与答94：如何替换多个相同的数据并依次编号？

例如下图1的列B中有多个“完美Excel”，使用VBA代码将其替换为“excelperfect”并加上数字编号，即“excelperfect1”、“excelperfect2”、“excelperfect3...Dim rngFoundCell As Range Dim strFirstAddress As String Dim lngCount As Long On Error...Resume Next With ActiveSheet.UsedRange Set rngLastCell = .Cells(.Cells.Count)...EndIf End With End Sub 或者，使用下面更简洁的代码： Sub ReplaceAndAddNumPlus() Dim lngCount As Long On Error...Resume Next lngCount= 1 Do Cells.Find("完美Excel")= "excelperfect" & lngCount lngCount

1.5K0 0

Excel编程周末速成班第26课：处理运行时错误

共有三个选项： Resume。通过重试导致错误的语句来恢复执行。错误可能已得到纠正（例如在A：驱动器中插入软盘）后，使用Resume。 Resume Next。继续执行导致错误的语句后的语句。...Resume label。使用标签标识的语句（必须在同一过程中）恢复执行。当Resume和Resume Next都不适合时，使用Resume label语句。...你将按照以下方式构造代码： On Error Resume Next ‘这里放置可能导致错误的代码. ‘如果没有发生错误.Err.Number是0....注意：当On Error ResumeNext生效时，你不能使用任何Resume语句来响应错误。仅在与OnError Goto语句关联的错误处理程序中才允许使用Resume语句。...清单26-1：使用On Error Resume Next忽略错误 Public Sub SelectCellsWithComments() Dim r As Range On Error Resume

6.7K3 0

VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程

学习Excel技术，关注微信公众号： excelperfect 有时，我们可能需要知道工作簿中有哪些模块和相应的过程。...下面是完整的代码： Sub GetVBAProcedures() '声明访问Excel工作簿的变量 Dim app As Excel.Application Dim wb As...Excel.Workbook Dim wsOutput As Excel.Worksheet Dim sOutput() As String Dim sFileName As String...Resume Next sFileName = vbProj.Filename If Err.Number 0 Then sFileName= "文件没有保存"...sOutput(2) = vbProj.Name iRow = 0 '检查是否为受保护的工程 On Error Resume Next

4K2 0

VBA实用小程序：禁用启用所有Excel快捷键

如果你不想使用Excel内置的快捷键，或者不希望你开发的界面因为快捷键而被破坏，你可能会想禁用所有的Excel快捷键。...下面的程序禁用所有的Excel快捷键： Sub Disable_Keys() Dim StartKeyCombination As Variant Dim KeysArray As Variant...Dim Key As Variant Dim I As Long On Error Resume Next 'Shift键 = "+" (加号) 'Ctrl键 =...", "" End Sub 下面的程序启用所有的Excel快捷键： Sub Enable_Keys() Dim StartKeyCombination As Variant Dim KeysArray...As Variant Dim Key As Variant Dim I As Long On Error Resume Next 'Shift键 = "+" (加号)

8743 0

VBA: 定时保存Excel文件

Resume Next Application.OnTime my_SaveTime, "Save1" On Error GoTo 0 End Sub Private...Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.OnTime my_SaveTime...Resume Next Application.OnTime my_SaveTime, "Save1" On Error GoTo 0 End Sub...) [5] How to save an Excel file every, say one minute?...(https://stackoverflow.com/questions/46524488/how-to-save-an-excel-file-every-say-one-minute)

2.2K2 0

使用VBA重命名文件：5个代码示例

例如，下面的代码将文件从D:\完美Excel\移动到D:\完美Excel\我的文章\，但文件名保持不变。...\stores.xlsx" newFilePath = "D:\完美Excel\stores-重命名.xlsx" On Error Resume Next Name filePath...Prompt:="不能重命名文件", _ Buttons:=vbOKOnly, _ Title:="重命名文件错误" End If On Error...Function RenameFile(filePath As String, newFilePath As String) On Error Resume Next Name filePath...Err.Number 0 Then RenameFile = False Else RenameFile = True End If On Error

1.9K3 0

在Excel中自定义上下文菜单（下）

标签：VBA，用户界面本文接上两篇文章：在Excel中自定义上下文菜单（上）在Excel中自定义上下文菜单（中）上下文菜单技术和技巧下面的内容展示了如何修改本文中提供的代码，以使过程更具灵活性...Resume Next ctl.Caption = ctl.ID & " ::: " & ctl.Caption On Error GoTo 0 Next ctl...Resume Next With .Controls.Add(Type:=msoControlButton) .Caption...小结在Excel 97至Excel 2003中，可以使用VBA代码将控件添加到每个上下文菜单中，但无法使用RibbonX更改上下文菜单。...在Excel 2010及后续版本中，可以使用VBA代码将控件添加到几乎每个上下文菜单中。使用VBA更改某些上下文菜单的限制与Excel 2007中相同。

2.6K2 0

Excel实战技巧50：避免因粘贴破坏数据有效性

学习Excel技术，关注微信公众号： excelperfect Excel数据有效性（在Excel 2013及以上版本中改称数据验证）是一项很方便的功能，帮助我们让用户在单元格中输入规定的数据。...Resume Next Set mcCatchers = Nothing EnableDisableControl 6002, True Application.OnKey "...Resume Next Set oBar =Application.CommandBars(sCombarName) If oBar Is Nothing Then Set...Resume Next For Each oBar In CommandBars Set oCtl =oBar.FindControl(ID:=lID, recursive:=...Resume Next Application.OnTimemdNextTimeCatchPaste, "'" & ThisWorkbook.Name &"'!

6.8K3 1

EXCEL密码去除(工作表、工作薄密码保护破解)

: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0...Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1...ProtectContents Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For...: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR &...转载请注明：积木居 » EXCEL密码去除(工作表、工作薄密码保护破解)

14.2K4 0

VBA实用小程序48：确保工作簿已装载必需的外部加载宏

学习Excel技术，关注微信公众号： excelperfect 如果你的Excel应用程序依赖于外部加载项（例如分析工具库或规划求解加载项），那么必须确保在运行应用程序之前加载了该加载项。...'''''' ''' 说明: 检查是否装载了指定的加载项 ''' 如果没有,则试图装载该加载项 ''' ''' 参数: szAddInWorkbook 加载项工作簿名.例如,对于Excel...Set wkbAddIn = Nothing On Error Resume Next Set wkbAddIn =Application.Workbooks(szAddInWorkbook...) On Error GoTo 0 If wkbAddIn Is Nothing Then ''' 如果加载项没有安装,试图安装它....On Error Resume Next ''' 如果已在加载项列表中选择了需要加载的加载项（如规划求解加载项）, ''' 除非切换了Installed属性，否则不会打开其工作簿

7873 0

VBA: 判断某个Excel文件是否已打开

文章背景：在操作某个Excel文件时，有时需要判断该文件是否已打开。下面提供两种自定义函数。...Workbooks.Count To 1 Step -1 If Workbooks(i).FullName = strPath Then Exit For Next...Activate Else Workbooks.Open (str_path) End If End Sub 如果已打开的Excel.../30977643 'strName：指定文件的文件名(File name) Dim wk As Workbook '如果工作簿没打开，程序会报错，故使用On Error...Resume Next On Error Resume Next Set wk = Workbooks(strName) If Err.Number = 0 Then

5.6K3 0

一起学Excel专业开发17：Excel工时报表与分析系统开发（2）——创建特定应用加载宏

崩溃或其他不正常退出而遗留的命令栏副本 On Error Resume Next Application.CommandBars(gsBAR_TOOLBAR).Delete On...On Error Resume Next Set wkbBook =Application.Workbooks(gsFILE_TIME_ENTRY) On Error GoTo...Resume Next Set rngHideCols =wksSheet.Range(gsRNG_SET_HIDE_COLS) On Error GoTo 0...Resume Next If rngCell.Value ="setScrollArea" Then '因为是Range对象所以滚动区域设置必须被单独处理...在接口工作簿初始化完成后，运行过程ResetAppProperties过程，确保Excel应用程序相关的属性均被设置为默认值。

9702 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭