- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我明白了 Nick 的建议,以下是我收到的错误号和描述:
'-2147417848 (80010108)' Automation error The object invoked hasdisconnected from its clients
调试时突出显示的代码行是:
.Rows(Lst).Insert Shift:=xlDown
我以为我在这个或另一个论坛上的某个地方看到了取消注册然后重新注册特定文件的方法,但是当我遇到这个问题时我正在家里,并且不想在我的笔记本电脑上尝试它,因为一切已经 100% 工作了。
再次感谢您的帮助。我周日要休假两周,我真的需要在离开之前把这个工作做好。大多数为我工作的人都不是 excel 专家,需要所有按钮/功能正常工作,因为他们无法排除故障和/或解决问题。
我仍然在常规模块中使用以下代码,下面的下一组代码位于其中一个工作表模块中。
Sub add_InvRow()
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
switch = "off"
With ThisWorkbook
Dim wb As Excel.Workbook, Lst As Long
Set wb = Application.ThisWorkbook
Dim ws As Worksheet, sw As Worksheet, os As Worksheet
Set ws = ActiveSheet: Set sw = Application.Sheets(Sheet1.Name): Set os = Application.Sheets(Sheet4.Name)
With ws
Lst = ActiveCell.Row
End With
If ws.CodeName = "Sheet3" Then
With os
.Rows(213).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
venTabForm.Show
End With
End If
If ws.CodeName = "Sheet23" Then
With sw
.Rows(135).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
cItemForm.Show
End With
End If
If ws.CodeName = "Sheet25" Then
With sw
.Rows(105).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
coInvForm.Show
End With
End If
If ws.CodeName = "Sheet28" Then
With sw
.Rows(100).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
kInvForm.Show
End With
End If
If ws.CodeName = "Sheet27" Then
With sw
.Rows(130).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
ItemForm.Show
End With
End If
If ws.CodeName = "Sheet22" Then
With sw
.Rows(120).Copy
End With
With ws
.Rows(Lst).Insert Shift:=xlDown
Application.CutCopyMode = False
caInvForm.Show
End With
End If
Set ws = Nothing: Set sw = Nothing: Set os = Nothing: Set wb = Nothing
End With
switch = "on"
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
此代码位于具有命令按钮的工作表之一上,该按钮调用上述代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If switch = "off" Then Exit Sub
If Target.Address = "$H$1" Then
Call findItem
Exit Sub
End If
If Application.Intersect(Target, Me.Range("P:P")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If Target.Cells.Value = 0 Or Target.Cells.Value = "" Then Exit Sub
Dim wb As Workbook, ws As Worksheet, iNUM As String, kitSHT As Worksheet, ksRNG As Range, kITEM As Range, kbCELL As Range
Dim iNAME As String, catSHT As Worksheet, csRNG As Range, cbCELL As Range, cITEM As Range
Dim logCELL As Range
Set wb = ThisWorkbook: Set ws = wb.Sheets(Sheet27.Name): Set kitSHT = wb.Sheets(Sheet28.Name): Set catSHT = wb.Sheets(Sheet22.Name)
Set ksRNG = kitSHT.Range("C5:C1100"): Set kbCELL = ksRNG.Cells(5, 3)
Set csRNG = catSHT.Range("C6:C400"): Set cbCELL = csRNG.Cells(6, 3)
If (Not (Application.Intersect(Target, Me.Range("A:P")) Is Nothing)) And (Target.Cells.Count = 1) And (Target.Column = 16) Then
If Target.Value = 0 Then Exit Sub
iNUM = Target.Offset(, -12).Value
iNAME = Target.Offset(, -10).Value
If kitSHT.Cells.Find(What:=iNUM, After:=kbCELL, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing And _
catSHT.Cells.Find(What:=iNUM, After:=cbCELL, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
MsgBox iNUM & "-" & iNAME & "" & " is not currently listed on" & " " & kitSHT.Name & " " & "or" & " " & catSHT.Name & vbNewLine & vbNewLine & _
"Please add" & " " & iNUM & "-" & iNAME & "" & " to" & " " & kitSHT.Name & " " & _
"or" & " " & catSHT.Name & " " & "and corresponding count sheets", vbInformation
Set wb = Nothing: Set ws = Nothing: Set kbCELL = Nothing
Set ksRNG = Nothing: Set kitSHT = Nothing: Set cbCELL = Nothing: Set catSHT = Nothing: Set csRNG = Nothing
Exit Sub
Else
If Target.Value = 0 Then Exit Sub
premNUM = iNUM
pFORM.Show
End If
End If
Set wb = Nothing: Set ws = Nothing: Set kbCELL = Nothing
Set ksRNG = Nothing: Set kitSHT = Nothing: Set cbCELL = Nothing: Set catSHT = Nothing: Set csRNG = Nothing
Set ksRNG = Nothing: Set kitSHT = Nothing: Set cbCELL = Nothing: Set catSHT = Nothing: Set csRNG = Nothing
End Sub
最佳答案
好的...已经过去 1 个多月了,我终于解决了这个问题!幸运的是,不幸的是,它与我的代码完全无关。相反,它是 MS Office 与 Office 的较量。 Windows 8 问题。为了解决这个问题,我运行了兼容性疑难解答,一切又恢复完美:
我不敢相信这就是我一直以来要做的一切!实际上,我花了 149 美元以为 Microsoft 支持可以远程访问并修复它,但这绝对是浪费!我被调到 12 多个不同的人/部门,但仍然没有从他们那里得到任何东西。今天早上我终于偶然发现了解决方案......
无论如何,感谢所有发帖并试图帮助我的人。由于你们所有人,我总是以比登录时更好的 VBA 技能注销此网站...所以再次感谢!
关于excel - "Automation Error: Object Invoked has disconnected from its clients",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34246264/
我遵循了一本名为“Sitepoint Full Stack Javascript with MEAN”的书中的教程,我刚刚完成了第 6 章,应该已经创建了一个带有“数据库”的“服务器”。数据库只不过是
在 Jquery 中,我创建两个数组,一个嵌入另一个数组,就像这样...... arrayOne = [{name:'a',value:1}, {name:'b',value:2}] var arra
这个问题在这里已经有了答案: What is the explanation for these bizarre JavaScript behaviours mentioned in the 'Wa
我被放在别人的代码上,有一个类用作其他组件的基础。当我尝试 ng serve --aot(或 build --prod)时,我得到以下信息。 @Component({ ...,
我正在测试一些代码,并使用数据创建了一个 json 文件。 问题是我在警报中收到“[object Object],[object Object]”。没有数据。 我做错了什么? 这是代码:
我想打印 [object Object],[object Object] 以明智地 "[[{ 'x': '1', 'y': '0' }, { 'x': '2', 'y': '1' }]]"; 在 ja
我有一个功能 View ,我正在尝试以特殊格式的方式输出。但我无法让列表功能正常工作。 我得到的唯一返回是[object Object][object Object] [object Object]
在使用优秀的 Sim.js 和 Three.js 库处理 WebGL 项目时,我偶然发现了下一个问题: 一路走来,它使用了 THREE.Ray 的下一个构造函数: var ray = new THRE
我正在使用 Material UI 进行多重选择。这是我的代码。 {listStates.map(col => (
我的代码使用ajax: $("#keyword").keyup(function() { var keyword = $("#keyword").val(); if (keyword.
我遇到了下一个错误,无法理解如何解决它。 Can't resolve all parameters for AuthenticationService: ([object Object], ?, [o
我正在尝试创建一个显示动态复选框的表单,至少应选中其中一个才能继续。我还需要获取一组选中的复选框。 这是组件的代码: import { Component, OnInit } from '@angul
我正在开发 NodeJs 应用程序,它是博客应用程序。我使用了快速验证器,我尝试在 UI 端使用快速闪存消息将帖子保存在数据库中之前使用闪存消息验证数据,我成功地将数据保存在数据库中,但在提交表单后消
我知道有些人问了同样的问题并得到了解答。我已经查看了所有这些,但仍然无法解决我的问题。我有一个 jquery snipet,它将值发送到处理程序,处理程序处理来自 JS 的值并将数据作为 JSON 数
我继承了一个非常草率的项目,我的任务是解释为什么它不好。我注意到他们在整个代码中都进行了这样的比较 (IQueryable).FirstOrDefault(x => x.Facility == fac
我只是在删除数组中的对象时偶然发现了这一点。 代码如下: friends = []; friends.push( { a: 'Nexus', b: 'Muffi
这两个代码片段有什么区别: object = nil; [object release] 对比 [object release]; object = nil; 哪个是最佳实践? 最佳答案 object
我应该为其他人将从中继承的第一个父对象传递哪个参数,哪个参数更有效 Object.create(Object.prototype) Object.create(Object) Object.creat
我在不同的对象上安排不同的选择器 [self performSelector:@selector(doSmth) withObject:objectA afterDelay:1]; [self per
NSLog(@"%p", &object); 和 NSLog(@"%p", object); 有什么区别? 两者似乎都打印出一个内存地址,但我不确定哪个是对象的实际内存地址。 最佳答案 这就是我喜欢的
我是一名优秀的程序员,十分优秀!