我在vba中使用AutoFilter时遇到了问题。获取错误-2147417848 (80010108)
在VBA中使用AutoFilter时遇到错误-2147417848 (80010108)通常是由于AutoFilter方法无法正常工作引起的。这个错误代码表示“RPC_E_DISCONNECTED”，意味着与远程过程调用（RPC）相关的连接已断开。
要解决这个问题，可以尝试以下几种方法：
- 检查数据范围：确保你正在正确地应用AutoFilter方法，并且数据范围是正确的。确保你选择了正确的工作表和数据范围。
- 检查筛选条件：确保你提供了正确的筛选条件。如果筛选条件不正确，AutoFilter方法可能会失败。
- 检查数据类型：确保你的数据类型与筛选条件匹配。如果数据类型不匹配，AutoFilter方法可能会失败。
- 检查工作表保护：如果工作表被保护，你可能无法使用AutoFilter方法。解除工作表保护或者在执行AutoFilter方法之前解除保护。
如果以上方法都没有解决问题，可能是由于其他原因导致的错误。在这种情况下，建议查看VBA的错误日志或者调试工具，以获取更详细的错误信息。你可以使用VBA的调试功能逐步执行代码，以确定出错的具体位置。
关于VBA中使用AutoFilter的更多信息，你可以参考腾讯云的Excel VBA开发文档：Excel VBA开发文档。
请注意，以上答案仅供参考，具体解决方法可能因个人情况而异。如果问题仍然存在，建议咨询相关领域的专家或者在相关的开发社区寻求帮助。
相关·内容
我的主要目标是复制自动筛选的可见单元格，然后将可见单元格的尺寸复制到新工作表中。我使用的是以下代码：
Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUni
浏览 1提问于2012-04-25得票数 4
回答已采纳
我试图在vba 1048576行限制中拆分一个大大小的txt文件(大约300 am和1000万行)(每1048576行分成一个独立的表)，我使用以下代码：
Mytext= CreateObject("Scripting.FileSystemObject").OpenTextFile(filepath).ReadAll
问题是，在某些计算机中，我得到了这个错误：
Run-Time error '-2147417848 (80010108)':
Method 'ReadAll' of object 'ITextStream' fail
浏览 0提问于2016-08-04得票数 0
回答已采纳
我不知道为什么我会得到这个错误： Run-time Error -2147417848 (80010108)
Automation Error
The Object invoked has disconnected from its clients. 我只是想在一个命令按钮中运行这段简短的代码来了解AutoFilter是如何工作的。 Private Sub CommandButton1_Click()
Sheets("Test").Activate
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("A5:
浏览 152提问于2020-06-24得票数 0
1回答
因此，我打开了一个新的Excel工作表，以了解有关通过VBA创建数据验证的更多信息，并输入了以下代码，这是Microsoft Developer Network网站上的一个示例：
With Range("$E$5").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="5", Formula2:="10"
.InputTitle = "Integers"
浏览 2提问于2017-08-04得票数 2
回答已采纳
从Excel 2007到2016，我尝试使用简单的VBA代码将工作表导出为pdf文件。在以前版本的Excel中工作得很好，但现在我得到了-2147417848 (80010108)自动化错误:调用的对象已与其客户端断开连接。这是我的代码： ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Users\jiric\xxx.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, O
浏览 86提问于2019-02-17得票数 0
在计算筛选器内的单元格时，我希望更新常规筛选器。
我在A2:A10范围内有一个列表，如果它显示1，然后显示该行，如果为0，则隐藏该行。在A2:A10范围内，我有计算公式，计算它应该是0还是1。我只需要在值发生变化时更新筛选器，并使用此VBA进行此操作：
Private Sub Worksheet_Calculate()
Dim RG As Range
Set RG = Range("A2:A10")
If Not Intersect(RG, Range("A2:A10")) Is Nothing Then
ActiveSheet.
浏览 0提问于2021-01-15得票数 0
回答已采纳
1回答
我试图使用以下VBA脚本将最后一次修改行的日期和时间添加到该行的特定列中：
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ThisRow = Target.Row
If Target.Row > 1 Then Range("K" & ThisRow).Value = Now()
End Sub
但是它一直抛出以下错误：
运行时错误“-2147417848(80010108)”：对象“范围”的方法“值”失败
有人能解释一下为什么会发生这种事吗？
浏览 2提问于2015-07-01得票数 0
回答已采纳
我有一个宏，它在我的机器上运行得很好，但当我试图在另一台机器上运行它时，它给出了以下错误。
Microsoft Visual Basic
运行时错误-2147417848 (80010108)
自动化错误
调用的对象已与其客户端断开连接。
浏览 1提问于2010-06-23得票数 3
2回答
我有以下代码：
Sub deletedconns()
For i = 1 To ActiveWorkbook.Connections.Count
If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
ActiveWorkbook.Connections.Item(i).Delete
i = i - 1
Next i
End Sub
当我尝试使用sub时，我得到这个错误：
运行时错误'-2147417848 (80010108)'：
自动化错误调用的对象已与其客户端断开连接。
问题是，我要么需要删除连接，要么只能更改路径。我试
浏览 0提问于2019-03-29得票数 0
我有一个巨大的vba项目与10个复杂的用户表单和许多其他功能和子程序。然后，我让调试窗口打开，所有操作都很完美，下次打开文件时，它也能正常工作，但是如果我第二次或第三次打开它(没有打开调试窗口)，我会收到以下错误：
错误-2147417848 (&H 80010108)：被调用的对象与其客户端断开了连接。
几个小时后，我找到了这个错误的来源，一旦排除了下面的一行，它就完美地工作了：
ws.Cells(nr + 5, 7) = Me.tb_COT_MP_SM.Value
此代码将值从主大用户窗体的一个文本框传递到单元格。我读取了与此错误相关的，并试图将此文本框设置为MSForms
浏览 6提问于2016-01-26得票数 1
1回答
下面的VBA代码片段试图在一个大约80k行长的excel列上执行一个简单的If语句。发生下列错误。
运行时错误“-2147417848(80010108)”：对象“范围”的方法“值”失败
这里出什么问题了？
Dim r As Long
Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastrow
If InStr(Range("I" & r).Text, "WH") Then
Range(&#
浏览 5提问于2016-04-05得票数 2
回答已采纳
需要你的帮助。我需要从公司网站上得到所有的标签。但是无论何时我使用这个VBA代码Set ie = New InternetExplorer，我都会在下面遇到这个错误。(但与google.com、facebook.com的连接没有问题)
“运行时错误‘-2147417848 (80010108)'：被调用对象与其客户端断开连接的自动化错误”
如果我将ie代码更改为Set ie = New InternetExplorerMedium，我可以继续打开站点，但是会显示警告弹出。
这个弹出导致vba停止，因为用户需要单击“是或否”，我已经创建了一个vbscript，但是如果弹出窗口不
浏览 0提问于2019-01-11得票数 0
1回答
在复制方法上我得到了一个运行时错误。
“运行时错误'-2147417848 (80010108)'：对象‘范围’的方法‘复制’失败”
Sub SaveCSV()
Worksheets("export").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\export.csv", FileFormat:=xlCSV
ActiveWorkbook.Close
Windows("exportDat
浏览 2提问于2015-08-27得票数 0
1回答
运行时错误2147417848-80010108对象工作表的方法粘贴失败。
当我在两个桌面上同时打开该文件时，开始出现此错误。然后，每次我运行代码时，它都会发生。代码真的很大，所以不能粘贴在这里。我只会粘贴出现问题的行
rrr=4
set rng1 = worksheets(2).range("x1:cd1").find(format(date,,xlvalues,xlwhole)
If not rng1 is nothing then
Worksheets("--").activate
Worksheets("--").cells(rrr,rn
浏览 1提问于2018-03-10得票数 0
2回答
VBA循环错误
、、
我是用Excel编写VBA的新手。在Excel工作表中，我的事件发生在多个列的一行中。这些事件仅通过它们的颜色来表示(除了它们是空白单元格之外)。想象一下，单元格A1到G1为红色，H1到V1为蓝色。
我正在尝试写一个sub，当一个单元格改变颜色时，它会告诉我。使用我当前的代码，在下面的文本中，Excel停止响应并弹出错误代码“run-time error '-2147417848 (80010108)‘”。我不确定问题出在哪里。
Sub colorReader()
Set a = ActiveCell
Range("C8").Select
浏览 5提问于2016-09-09得票数 0
在您的帮助下，我有这样一个脚本:在工作表"ANAF CONTURI“(其中我输入数据)中，基于G列(="DA")的标准，它过滤并将结果复制到从C2开始的范围内的现有表"ANAF BANCI”中。
在输入数据时，我还创建了一个按钮来执行宏(在A1上和A2头上)。
当它试图删除过滤器时，我得到了这个错误：
运行时错误'-2147417848 (80010108)'：对象'_Worksheet‘的方法'AutoFilterMode’失败。
然后就坠毁了。(在某些例外情况下，它可以fine..without进行任何修改)
顺便说一句: s
浏览 2提问于2017-01-17得票数 0
5回答
我使用VBA将几个Excel图从Excel复制到Powerpoint：
'copy from excel worksheet
Workbooks(Stats & ".xls").Worksheets(Stats).ChartObjects("graph4").Copy
'paste into powerpoint presentation
.Slides(3).Shapes.Paste
' more code and more copy and pastes
' ...
有时，复制图形失败。除了记忆问题之
浏览 4提问于2011-10-17得票数 1
回答已采纳
所以我已经在Excel2007中运行了这个VBA代码，没有任何问题：
Sub Button_Click()
For Each objConnection In ThisWorkbook.Connections
objConnection.Refresh
Next
Dim Sheet As Worksheet, Pivot As PivotTable
For Each Sheet In ThisWorkbook.Worksheets
For Each Pivot In Sheet.PivotTables
Piv
浏览 1提问于2014-09-18得票数 0
1回答
我正在做一个小的子来删除特定的表格，根据对用户的表单显示。用户选择要保存在列表框中的工作表。然后，代码循环遍历列表框中的所有工作表，并删除未选中的工作表。但是，当运行表单并单击按钮时，我得到了一个自动化错误：
执行错误'-2147417848 (80010108)：被调用的自动化错误对象断开连接
Private Sub Button_Export_Click()
Application.DisplayAlerts = False
For i = 0 To PSV_Case_List.listCount - 1
If Not PSV_Case_Li
浏览 6提问于2017-08-25得票数 0
2回答
下面的工作表函数保存在VBA的Sheet1 (DataInput)模块中
Sub worksheet_change(ByVal target As Range)
Set target = Range("F67")
If target.Value = "YES" Then
Call ThisWorkbook.Red_Macro_Text
End If
End Sub
此代码在ThisWorkbook中调用以下代码
Public Sub Red_Macro_Text()
ThisWorkbook.Worksheets
浏览 0提问于2019-01-10得票数 0
回答已采纳
我得到错误运行时错误'-2147417848 (80010108)‘
当我在一台pc上尝试它时，它工作，我已经做了它的图像，它不工作。问题是，他正在打开ie，然后代码就不再工作了。在工作的个人电脑上，他没有打开ie，我们可以继续工作。
IE.Visible = False
IE.Navigate url
Do: DoEvents: Loop Until IE.ReadyState = READYSTATE_COMPLETE
我一直试图设置互联网浏览器的安全选项，尽管如此。已经试过另一个浏览器了。尝试了一个新的清洁图像和一个完整的复制电脑通过一个图像。
有什么想法吗？提前感谢
浏览 2提问于2017-09-19得票数 1
回答已采纳
1回答
我得到一个错误"-2147417848 (80010108)运行时错误，下面的代码在Excel VBA中使用“： sub import()
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error GoTo error
Dim App As New excel.Application
Dim wbImport As Workbook
Set wbImport = App.Workbo
浏览 44提问于2021-01-01得票数 1
我使用下面的VBA代码自动将一个工作表上的行移到另一个工作表上。大约1/3的时间，它会给出一个“运行时错误'-2147417848 (80010108)”，然后使Excel崩溃。我找不到一个常见的原因。在崩溃之后，我可以在同一行上执行相同的代码，下一次它可能会工作得很好，也可能不会。
谁能告诉我为什么下面的代码会不稳定？
Sub Move_to_Sheet2 ()
'
' Move_to_Sheet2 Macro
'
' Keyboard Shortcut: Ctrl+r
'
Rows(ActiveCell.Row).Select
浏览 1提问于2012-08-31得票数 2
回答已采纳
这段代码可以在我的家用笔记本上运行，但不能在我的工作笔记本上运行。
Sub Autologin()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "my_url"
IE.Document.GetElementByID("j_username").Value = "my_username"`
错误发生在最后一行。
运行时错误'-2147417848 (80010108)&#
浏览 3提问于2016-10-25得票数 0
回答已采纳
0回答
因此，我是VBA的新手，我正在尝试获取一个宏来比较单元格，并在它旁边的列中输出一个计数器。下面是我的代码：
Sub Duplicate_Count()
'Find the last used row in a Column: column A in this example
Dim LastRow As Long
Dim value1 As String
Dim value2 As String
Dim counter As Integer
counter = 1
With ActiveSheet
LastRow = .Cells(.Rows.Count, "L&
浏览 4提问于2017-06-21得票数 0
回答已采纳
我是Excel VBA的新手，但我设法在一个员工时间表中创建了三个按钮。所有的按钮都按需要工作，然而，一个特定的按钮会导致随机问题-大约90%的时间它工作，但有时它会崩溃Excel或给出一个错误，如运行时错误'-2147417848 (80010108)‘：自动化错误调用的对象已从其客户端断开连接。其他时候也是类似的消息，说对象‘Range’的方法‘Insert’失败。它发生在不同计算机上的不同版本的Excel中。这项任务并不复杂，但我在VBA知识上遇到了困难。
用户点击该按钮以在名为“Timesheet”的工作表中设置每个格式化的行，即点击“Timesheet”中的按钮从sheet4
浏览 4提问于2018-07-04得票数 0
3回答
关闭窗口
、
我有一个宏，它在一个循环中创建17个工作簿。当它完成工作簿的工作时，它会关闭它，然后转到下一个工作簿：
ActiveWorkbook.Save
ActiveWindow.Close
直到最近，这一切都很顺利。突然进入循环。7上面写着(在还能正常工作之前的6个循环)：
运行时'-2147417848 (80010108)'：
objekt“窗口”的“关闭”方法失败
我可以删除"ActiveWindow.Close“并手动关闭所有工作簿以使宏工作。但还是..。
有人知道它为什么这么做吗？
浏览 7提问于2011-08-26得票数 1
回答已采纳
1回答
我在自动处理Excel文件时遇到了问题。Excel中的VBA脚本首先打开Word应用程序和Word文档：
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
vPath = Application.ActiveWorkbook.Path
Set wordDoc = wordApp.Documents.Open(vPath & "\test.doc")
然后在Word文档中调用一个子例程，从Excel文件中传递一些数据：
浏览 4提问于2015-11-13得票数 4
回答已采纳
1回答
我正在编写一个嵌入在一个表中的代码。情况如下:单元格A1 (选项为50,100和150)和单元格A2 (选项为1000和5000)，它们中都有数据验证列表。当我选择50的单元格A1时，A2必须是1000。当我编写代码并进行选择时，总是会出现一个错误：
运行时错误'-2147417848(80010108)'：方法‘添加’的对象‘验证’失败.
请分享你的意见，或如果需要，我在这里张贴我的代码，以解决这一问题。
基本代码如下：
Select Case Range("A1").Value
Case "50"
Range(
浏览 1提问于2015-09-30得票数 0
回答已采纳
我有VBA在Excel 32位，可以上传销售订单到SAP ERP软件。为了使代码在64位Excel上运行，我卸载了当前的SAP并安装了SAP 7.70。我现在得到一个错误：
运行时错误“-2147417848(80010108)”：自动化错误
被调用的对象已与其客户端断开连接。
下面是一个代码快照，在sap_sales_order = boOrder.SalesDocument行有错误
'Call the method
boOrder.CreateFromDat2 orderheaderin:=boHeader, _
orderte
浏览 6提问于2021-10-27得票数 0
2回答
在对工作表进行更改后，我试图将列与数据相加。包含数据的列在第1行中包含文本。
我第一次测试它的时候
运行时错误“28”：堆栈空间外
当我第二次测试它时，我得到
运行时错误'-2147417848 (80010108)'：对象‘范围’的方法‘值’失败，然后Excel崩溃。
Sub Worksheet_Change(ByVal Target As Range)
Dim LastCol As Integer
Dim NumProjects As Integer
Dim i As Integer
With ActiveSheet
LastCol = .Cel
浏览 0提问于2016-06-09得票数 1
我有一个Excel2010文件(.xlsm)，其中包含包括ThisWorkbook在内的几个模块中的代码。ThisWorkbook模块包含一些Event过程，包括一个_SheetActivate事件。
我有一个按钮在一个工作表上，当点击，激活一个不同的工作表。
今天，在处理了其中一个常规模块中的一些代码之后，我单击了按钮，得到了一个
Run time error '-2147417848 (80010108)'
Method 'Activate' of object '_Worksheet' failed.
任何激活不同工作表(手动或编程)
浏览 3提问于2014-01-02得票数 0
回答已采纳
1回答
我有个奇怪的问题。下面是我的代码。
简而言之，它检查键盘上是否按下了某个键。如果是，它将运行两个子例程，并将焦点设置在名为diesel的按钮上。我想添加另一个密钥空间( Key -> Space，vbKeySpace)。添加之后，我收到: runtime error -2147417848 (80010108) automation error。
我不知道该怎么处理它...
Private Sub Dostawcy_listbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select
浏览 3提问于2015-01-28得票数 0
我在Excel工作簿中创建了一个宏，并从VBA中提取了这段代码。行行(“45:45”).Select不能正常工作，因为每次运行报表时，过滤过的行都会有所不同。对于VBA，我完全是新手，所以任何帮助都是非常感谢的！
Sheets("Sheet1").Select
ActiveSheet.Range("$A:$AQ").AutoFilter Field:=1, Criteria1:=Array("Chloe", "Bob", "GBUK", "Shape", "Lifestyle", &
浏览 3提问于2022-03-08得票数 2
1回答
自动筛选器创建附加条件
、、、
在VBA上创建自动筛选器时，我遇到了一个问题，无法解决在线问题。
我试图根据一个条件(>一个数字)自动过滤数据表。然而，当我运行我的代码时，我可以看到，除了我想要的条件大于"x“之外，VBA还添加了一个附加条件”开始(空格)“。
ActiveSheet.AutoFilterMode = False
rng.AutoFilter Field:=4, Criteria1:=">" & VolumeMin.Value, _
Operator:=xlAnd
rng.AutoFilter Field:=3, Criteria2:=">&#
浏览 6提问于2016-11-25得票数 1
回答已采纳
以下一行：
ThisWorkbook.Sheets(vSheets(i, 1)).Visible = xlSheetVisible
生成错误：
Run-time error '-2147417848 (80010108)':
Method 'Visible' of object '_Worksheet' failed
但是，如果我在调试器中单击play，则执行将顺利完成。因此，这一行将导致我的代码进入调试器。但是如果我点击play，它还会继续。
为什么？
EDIT1：这里是一个屏幕截图，您可以看到调试器已经停止(上面写的错误代码)，但是您也可以
浏览 2提问于2015-01-29得票数 4
我使用Excel代码在我们的网站上点击一个按钮。我知道这不是最好的选择，但这是我最不反对的选择。
我可以使用这个代码，成功地加载imdb.com，google等等。但是当我加载我们的本地站点时，我失去了对ie对象的控制，我不能检查readyState，我不能退出。
这是我所犯的错误。
运行时错误'-2147023179 (800706b5)'：
自动化误差
接口未知
我经常收到这样的信息：
运行时错误'-2147417848 (80010108)'：
自动化误差
被调用的对象已与其客户端断开连接。
单击Debug表示ie.readyState，我
浏览 4提问于2012-10-18得票数 19
回答已采纳
1回答
我正在尝试创建一个宏，它将改变线状图的原始数据。
图的名称是：Tot_Failures，显示图形的工作表的名称是：Test_Results，图形需要从is中提取信息的工作表的名称：。
守则是：
Dim rangeText As String
rangeText = CStr("B1:B" & biggestCycleNum)
Dim chartSheet As Worksheet
Set chartSheet = Sheets("Test_Results")
chartSheet.ChartObjects("Tot_Failures&#
浏览 0提问于2014-12-08得票数 1
我正在使用excel的数据库功能。见示例图像
我使用vba来选择有“是”的记录，比如A
Selection.AutoFilter Field:=2, Criteria1:="yes"
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
然后我复制它粘贴到其他地方。例如：
Selection.Copy
Range("B12").Select
ActiveSheet.Paste
问题是，当没有“是”的记录时，我得到了错误1004。可能是因为没什么好粘贴的。我如何
浏览 1提问于2013-08-16得票数 1
回答已采纳
我正在写代码，但是我得到了一个-2147417848 (80010108)错误。我知道这是因为每次“得到”一个空的单元格，但我不知道如何修复它，有人能帮我吗？这是代码。
Dim i, g As Integer
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
g = 12
For i = 3 To 5000
If Worksheets("Registo_EPI´s").Cells(i, 1).Value = Cells(4, 20).Value Then
浏览 2提问于2011-03-29得票数 0
回答已采纳
我有这样的代码：
Sub ChangeImportedBOQCodeName(importedName As String)
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Name = "BOQ_" & importedName
End Sub
这是从
Private Sub cmdOK_Click()
Dim TargetName As String
TargetName = cbxSheets.Text
Set TargetSheet = TargetWB
浏览 2提问于2017-08-13得票数 2
回答已采纳
下面的宏是为更新气泡图中使用的图像而创建的。工作表"NTA Chart“包含气泡图，工作表"Pie Charts”包含用作气泡上方图像的饼图。Distributor是数据点的名称，一个饼与一个数据点相关。
我现在收到错误"Run-time error -2147417848 (80010108) - Method 'Offset‘of object 'Range’failed“。当我尝试调试该行时，"strDistributor = chtTemp.TopLeftCell.Offset (-1)“突出显示。这是用Excel2003设计的，但我现在
浏览 2提问于2015-02-09得票数 0
如果我在A列中输入一个带有空格的单词(例如：L3、FMA、Nest等)，那么它将给出一个错误：“运行时错误：'-2147417848 (80010108)'：对象‘’Range‘failed的方法'HorizontalAlignment’”。我怎么才能解决这个问题？
我有一个宏：
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.ScreenUpdatin
浏览 30提问于2022-09-16得票数 0
回答已采纳
我需要一种复制数据行的方法--过滤用户自动筛选的数据。
我的问题是，我不知道为什么，但是当VBA从过滤器复制和粘贴数据时，这使得两个工作表的行限制一直持续到最大。使我的文件大小大得多，并占用更长的bc增加的大小。
Columns("B:B").Select
Selection.AutoFilter
ActiveSheet.Range("$B:$B").AutoFilter Field:=1, Criteria1:="<>"
Cells.Select
Selection.Copy
Shee
浏览 1提问于2015-03-11得票数 0
回答已采纳
我有一个引用.NET遗留DLL的VB6应用程序。遗留DLL有一个具有公共方法的类。在这个公共方法中，它试图通过名称找到现有的表单，或者在不存在的情况下创建它：
Set objForm = GetForm(strFormName)
If objForm Is Nothing Then
'Creates a new instance of the form
Set objForm = VB.Forms.Add(strFormName)
End If
..。其中GetForm是：
Private Function GetForm(ByVal strFormName As
浏览 3提问于2013-02-12得票数 2
回答已采纳
下面是我得到的错误编号和描述：
“运行时错误2147417848 (80010108)被调用的对象从其客户端中断的自动化错误”
调试时突出显示的代码行是：
.Do Until internet.readyState >= 4
代码：
Sub webpage()
Dim internet As Object
Dim internetdata As Object
Dim div_result As Object
Dim header_links As Object
Dim link As Object
Dim URL As String
Set internet = CreateObj
浏览 2提问于2022-01-18得票数 0
我有一个工作表，它根据单元格的值隐藏或取消隐藏行。我最终得到一个运行时错误，如下所示：
-2147417848 (80010108)：对象'Range‘的方法'Hidden’失败，黄色箭头指向第一行方程式
然后是另一个运行时错误'1004'：无法设置range类的hidden属性。
Option Explicit
Private Sub Worksheet_Calculate()
Rows("1:26").EntireRow.Hidden = [a1] = 0
Rows("27:52").EntireRow.Hidden
浏览 2提问于2019-06-11得票数 0
1回答
我试图根据一个条件在Excel中设置一个值，但每次都会出现与堆栈空间有关的错误，当我尝试按照另一篇文章中的建议在工作簿上设置ForceFullCalculation时，我得到的错误是：
Run-time error '-2147417848 (80010108)':
Method 'Value' of object 'Range' failed
讨论中的代码行
If Range("G4") = "Yes" Then
Range("K4:L6").Interior.ColorIndex =
浏览 3提问于2016-10-31得票数 0
回答已采纳
在所有以前版本的excel中，我没有问题创建一个枢轴缓存。然后从这个枢轴缓存中创建几个枢轴表。现在，我在excel 2016中使用了同样的技术。这只会给我带来错误。这是我的代码：
Sub Maketbl()
Dim Pvt As PivotTable, Pvch As PivotCache
[F:G].Clear
Set Pvch = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R6C3", Version:=6)
'&
浏览 2提问于2017-10-03得票数 0
单击消息弹出窗口中的“确定”按钮后，我希望清除单元格的内容。
当弹出窗口消失时，单击“确定”按钮无数次后，脚本将通过抛出以下错误而终止。
运行时错误'-2147417848(80010108)'：
方法“对象范围”_工作表失效
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("N4:O4")
If Not Intersect(KeyCells, Range(Target.Address)) Is Nothing T
浏览 0提问于2018-09-18得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
