运行时错误'-2147417848 (80010108)'：对象‘_Worksheet’的方法'Cells‘失败
运行时错误'-2147417848 (80010108)'是一种常见的错误，它通常与对象方法的失败相关。在这种情况下，错误是由于对象"_Worksheet"的方法"Cells"的失败引起的。
对象"_Worksheet"是指Excel工作表中的一个工作表对象。"Cells"是该工作表对象的一个方法，用于访问和操作单元格。
出现这个错误的原因可能有多种，包括以下几个可能的原因：
- 对象"_Worksheet"不存在或未正确初始化：在使用"_Worksheet"对象之前，需要确保它已经被正确地创建和初始化。
- 方法"Cells"参数错误：方法"Cells"可能需要一些参数来指定要操作的单元格范围，如果参数错误或缺失，就会导致方法失败。
- Excel应用程序错误：这个错误可能是由于Excel应用程序本身出现问题引起的。可以尝试重新启动Excel应用程序或者检查Excel应用程序的安装是否正确。
针对这个错误，可以采取以下几个步骤来解决问题：
- 检查代码：仔细检查代码中与该错误相关的部分，确保对象"_Worksheet"和方法"Cells"的使用是正确的，并且参数的传递是正确的。
- 确保对象初始化：如果对象"_Worksheet"需要初始化，确保在使用之前已经正确地创建和初始化了该对象。
- 检查参数：如果方法"Cells"需要参数，确保参数的传递是正确的，并且参数的类型和范围是符合要求的。
- 检查Excel应用程序：如果以上步骤都没有解决问题，可以尝试重新启动Excel应用程序或者检查Excel应用程序的安装是否正确。
腾讯云提供了一系列与云计算相关的产品，包括云服务器、云数据库、云存储等。这些产品可以帮助用户在云端部署和管理应用程序，提供稳定可靠的计算和存储资源。具体的产品介绍和链接地址可以参考腾讯云官方网站：https://cloud.tencent.com/。
需要注意的是，本回答中没有提及亚马逊AWS、Azure、阿里云、华为云、天翼云、GoDaddy、Namecheap、Google等流行的云计算品牌商，因为要求不提及这些品牌商。
相关·内容
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
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
我正在写代码，但是我得到了一个-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
回答已采纳
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
回答已采纳
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
回答已采纳
我正试图追踪我们的金融模式的变化。目的是找出谁回来解决问题。
我已经编写了执行代码，直到我从一个工作表切换到另一个特定工作表为止。
Sub tracker()
Dim Cell As Range
For Each Cell In Sheets("Input check IC").Range("AI2:AI128")
If Cell.Value <> 0 Then
With Sheets("Copy IC")
Sheets(
浏览 3提问于2021-02-01得票数 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
回答已采纳
单击消息弹出窗口中的“确定”按钮后，我希望清除单元格的内容。
当弹出窗口消失时，单击“确定”按钮无数次后，脚本将通过抛出以下错误而终止。
运行时错误'-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
以下一行：
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
我有一个工作表，它根据单元格的值隐藏或取消隐藏行。我最终得到一个运行时错误，如下所示：
-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
3回答
关闭窗口
、
我有一个宏，它在一个循环中创建17个工作簿。当它完成工作簿的工作时，它会关闭它，然后转到下一个工作簿：
ActiveWorkbook.Save
ActiveWindow.Close
直到最近，这一切都很顺利。突然进入循环。7上面写着(在还能正常工作之前的6个循环)：
运行时'-2147417848 (80010108)'：
objekt“窗口”的“关闭”方法失败
我可以删除"ActiveWindow.Close“并手动关闭所有工作簿以使宏工作。但还是..。
有人知道它为什么这么做吗？
浏览 7提问于2011-08-26得票数 1
回答已采纳
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
回答已采纳
下面的代码适用于Excel 2013，但并不总是适用于Excel 2010。它在set pvtSource上抛出一个错误。
错误是：
错误引号为“运行时错误”-2147417848 (80010108)'：对象‘枢轴缓存’失败的方法'createpivottable‘。
有时，它的工作没有抛出一个错误。我不知道为什么或者如何防止这段代码失败。
'Create temp sheet
Dim wksSource As Worksheet
Set wksSource = wbkSource.Sheets.Add(After:=Sheets(Worksheets.Cou
浏览 3提问于2015-11-17得票数 1
我的主要目标是复制自动筛选的可见单元格，然后将可见单元格的尺寸复制到新工作表中。我使用的是以下代码：
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
回答已采纳
1回答
我有下面的Sub，如果它覆盖的范围小于88个单元，它可以很好地工作，否则它会在第88次迭代中失败。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row >= 3 And Target.Row <= 30 And Target.Column >= 17 And Target.Column < 22 Then
i = Target.Row
Dim MergeGroups As Range
Dim Group
浏览 3提问于2017-05-08得票数 1
我有一些excel vba宏可以运行几分钟到一个小时。在运行结束时，他们会进行大量的排序。问题是，如果Excel没有焦点(噢，我正在另一个窗口做一些事情)，它就有问题了，我必须关闭excel并重新打开它。我不知道问题是什么，但我知道当它试图运行Sort.Apply时会发生这种情况。我是否可以检查excel是否有焦点，如果没有，要么给它焦点，要么弹出一个复选框？
更新：这里是代码。我刚测试过，结果失败了。错误是“方法‘应用’对象‘排序’失败‘，”运行时错误'-2147417848 (80010108)’：
With rws.Sort
.SortFields.Cle
浏览 8提问于2012-07-13得票数 3
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
我有一个宏，它在我的机器上运行得很好，但当我试图在另一台机器上运行它时，它给出了以下错误。
Microsoft Visual Basic
运行时错误-2147417848 (80010108)
自动化错误
调用的对象已与其客户端断开连接。
浏览 1提问于2010-06-23得票数 3
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
回答已采纳
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
我不知道为什么我会得到这个错误： 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
我有一个引用.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
回答已采纳
我有一个巨大的vba项目与10个复杂的用户表单和许多其他功能和子程序。然后，我让调试窗口打开，所有操作都很完美，下次打开文件时，它也能正常工作，但是如果我第二次或第三次打开它(没有打开调试窗口)，我会收到以下错误：
错误-2147417848 (&H 80010108)：被调用的对象与其客户端断开了连接。
几个小时后，我找到了这个错误的来源，一旦排除了下面的一行，它就完美地工作了：
ws.Cells(nr + 5, 7) = Me.tb_COT_MP_SM.Value
此代码将值从主大用户窗体的一个文本框传递到单元格。我读取了与此错误相关的，并试图将此文本框设置为MSForms
浏览 6提问于2016-01-26得票数 1
我有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
我试图在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
回答已采纳
以下代码起作用：
Sub ShowSheets(vSheets() As Variant)
Dim i As Long
'Make worksheets visible
For i = LBound(vSheets, 1) To UBound(vSheets, 1)
If TypeName(ThisWorkbook.Sheets(vSheets(i, 1))) = "Worksheet" Then
ThisWorkbook.Worksheets(vSheets(i, 1)).Visible = xlSh
浏览 0提问于2015-02-10得票数 3
我试图写一个简单的跟踪过程，但不能教它正确填写报告一行。
这样做的目的是：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'define last row in report
<proper code for it>
'fill in "last row +1" with tracking info
<proper code for it as well>
End Sub
所以我尝试了两种选择：
1)使
浏览 1提问于2015-05-20得票数 0
回答已采纳
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
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-2003工作表未受保护时运行。但是，当我保护工作表时，宏不会运行并引发运行时错误。
运行时错误'-2147417848 (80010108)'：
方法“添加”对象的“验证”失败
我试过用
Me.unprotect
...
Me.protect
但这并不能正常工作。那么，当工作表在没有上述运行时错误的情况下，如何修改下面的代码来工作(即让代码修改未锁定的单元格的验证)？
更新
我的原著是Excel 2003。我在Excel2007中使用以下定义测试了@解决方案
Sub WorkBook_Open()
Me.W
浏览 4提问于2009-01-15得票数 10
回答已采纳
如果我在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
回答已采纳
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
1回答
我有一个很大的问题，它让我发疯。我有一段非常简单的代码，它应该复制一行并将其添加到活动行的下面，并在代码的开头添加一个验证，以检查是否允许您在该特定行上添加行。
当您第一次进入工作表时，宏可以完美地工作。但是，只要我在工作表上的任何单元格上输入任何内容，代码就会爆炸，并出现自动化错误。请说之前有人发现了这个，并有解决它的方法？
它不喜欢的行如下所示。Selection.Insert Shift:=xlDown
Sub Staffing_AddRow()
Application.ScreenUpdating = False
Application.Calculation = xl
浏览 1提问于2015-01-14得票数 1
2回答
我在Excel 2003中设置了许多宏，然后在Excel 2010中继续工作。然而，现在我已经搬到Excel 2013，他们无法工作。错误是：
运行时错误'-2147417848 (80010108)'：方法‘插入’对象‘范围’失败
其中一个宏如下：
'Unprotect
Sheets("Appraisal").Unprotect "*********"
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = Range("cashf
浏览 4提问于2015-03-06得票数 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
回答已采纳
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
回答已采纳
这段代码可以在我的家用笔记本上运行，但不能在我的工作笔记本上运行。
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
回答已采纳
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
我使用Excel代码在我们的网站上点击一个按钮。我知道这不是最好的选择，但这是我最不反对的选择。
我可以使用这个代码，成功地加载imdb.com，google等等。但是当我加载我们的本地站点时，我失去了对ie对象的控制，我不能检查readyState，我不能退出。
这是我所犯的错误。
运行时错误'-2147023179 (800706b5)'：
自动化误差
接口未知
我经常收到这样的信息：
运行时错误'-2147417848 (80010108)'：
自动化误差
被调用的对象已与其客户端断开连接。
单击Debug表示ie.readyState，我
浏览 4提问于2012-10-18得票数 19
回答已采纳
我是Excel VBA的新手，但我设法在一个员工时间表中创建了三个按钮。所有的按钮都按需要工作，然而，一个特定的按钮会导致随机问题-大约90%的时间它工作，但有时它会崩溃Excel或给出一个错误，如运行时错误'-2147417848 (80010108)‘：自动化错误调用的对象已从其客户端断开连接。其他时候也是类似的消息，说对象‘Range’的方法‘Insert’失败。它发生在不同计算机上的不同版本的Excel中。这项任务并不复杂，但我在VBA知识上遇到了困难。
用户点击该按钮以在名为“Timesheet”的工作表中设置每个格式化的行，即点击“Timesheet”中的按钮从sheet4
浏览 4提问于2018-07-04得票数 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
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
回答已采纳
我得到错误运行时错误'-2147417848 (80010108)‘
当我在一台pc上尝试它时，它工作，我已经做了它的图像，它不工作。问题是，他正在打开ie，然后代码就不再工作了。在工作的个人电脑上，他没有打开ie，我们可以继续工作。
IE.Visible = False
IE.Navigate url
Do: DoEvents: Loop Until IE.ReadyState = READYSTATE_COMPLETE
我一直试图设置互联网浏览器的安全选项，尽管如此。已经试过另一个浏览器了。尝试了一个新的清洁图像和一个完整的复制电脑通过一个图像。
有什么想法吗？提前感谢
浏览 2提问于2017-09-19得票数 1
回答已采纳
需要你的帮助。我需要从公司网站上得到所有的标签。但是无论何时我使用这个VBA代码Set ie = New InternetExplorer，我都会在下面遇到这个错误。(但与google.com、facebook.com的连接没有问题)
“运行时错误‘-2147417848 (80010108)'：被调用对象与其客户端断开连接的自动化错误”
如果我将ie代码更改为Set ie = New InternetExplorerMedium，我可以继续打开站点，但是会显示警告弹出。
这个弹出导致vba停止，因为用户需要单击“是或否”，我已经创建了一个vbscript，但是如果弹出窗口不
浏览 0提问于2019-01-11得票数 0
最近，我从Access VBA代码中得到了这种奇怪的行为，我不知道为什么会发生这个错误。
我正在尝试将数据从数据库导出到Excel文件。我操作一些单元格和范围(主要是插入信息，但有时合并单元格、插入新行等等)，但是，我一直收到以下错误：
1004应用程序定义或对象定义错误
在这条线上：
xlApp.Cells(currentRowPointer, 8) = rs_vendorNPO("Vendor_Name")
现在，这行被称为数十次，因为我正在循环多个记录集，这一行在循环中。当currentRowPointer = 91持续失败时，它就会失败。因此，要查看当current
浏览 1提问于2020-12-03得票数 0
下面的宏是为更新气泡图中使用的图像而创建的。工作表"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
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
我有一个Excel2010文件(.xlsm)，其中包含包括ThisWorkbook在内的几个模块中的代码。ThisWorkbook模块包含一些Event过程，包括一个_SheetActivate事件。
我有一个按钮在一个工作表上，当点击，激活一个不同的工作表。
今天，在处理了其中一个常规模块中的一些代码之后，我单击了按钮，得到了一个
Run time error '-2147417848 (80010108)'
Method 'Activate' of object '_Worksheet' failed.
任何激活不同工作表(手动或编程)
浏览 3提问于2014-01-02得票数 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
回答已采纳
我试图用VBA将范围从一个工作表复制到另一个工作表，但在试图粘贴时失败了。我尝试过几种方法，但没有成功。我已经创建了一个用于粘贴的示例代码段，它在最后一行上失败。我收到的错误是“运行时错误'1004'：应用程序定义的或对象定义的错误。”有人能解释一下为什么会失败吗?我能做些什么呢？
Sub Test()
Dim report_ws As Worksheet
report_row = 2
report_executive_column = 6
report_column_last = 10
archived_report_row = 3
archived_executive_co
浏览 2提问于2017-07-03得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
