Tag: 运行时错误

vba枚举错误：“内部过程无效”。: 我想通过VBA在EXcel中循环一些单元格。我想在其中使用枚举，但在运行代码编译器错误出现，即：“内部过程无效”。以下是代码片段： Dim resSub(1 To 8) As Integer Private Enum Subjects Hindi = 1 English = 2 Sanskrit = 3 Math = 4 Science = 5 SoScience = 8 End Enum Dim resCur As Integer resCur = 0 Dim resG As Integer resG = 0 Dim resF As Integer resF = 0 Dim markG […]

VBA – 对象'_CommandBarComboBox'的方法'列表'失败: 我有一个VBA中的子调用另一个子来执行一些数据分析，如果用户粘贴在下面的错误代码为：运行时错误'2147467259（80004005）'：对象'_CommandBarComboBox'的方法'列表'失败 Private Sub Worksheet_Change(ByVal Target As Range) Dim UndoList As String UndoList = Application.CommandBars("Standard").Controls("&Undo").List(1) 'Errors Here! If Left(UndoList, 5) = "Paste" Then Dim Annotations() As String FindAnnots End If End Sub 任何想法，为什么对象的列表不存在？

VBA：获取运行时间1004：使用单元格时，对象“_Worksheet”的方法“范围”失败: 我有2个工作表：资产和概述。这些function都放在一个模块中。 Public Function GetLastNonEmptyCellOnWorkSheet(Ws As Worksheet, Optional sName As String = "A1") As Range Dim lLastRow As Long Dim lLastCol As Long Dim rngStartCell As Range Set rngStartCell = Ws.Range(sName) lLastRow = Ws.Cells.Find(What:="*", After:=Ws.Range(rngStartCell), LookIn:=xlFormulas, _ Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False).Row lLastCol = Ws.Cells.Find(What:="*", After:=Ws.Range(rngStartCell), LookIn:=xlFormulas, _ Lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _ MatchCase:=False).Column Set GetLastNonEmptyCellOnWorkSheet […]

.Find（）运行时错误'91'：对象variables或块variables未设置: 我知道其他问题已经被问到了同样的错误，但没有接近我的。我试图find在哪里我可以findvariables实验室在B列中的值与一个循环多次（实验室值变化）的行，它的作品第一次，但第二次，我得到这个错误。 For Each lab In arr NFD = el & " " & Sheets("Sheet1").Cells(1, 3).value If SheetExists(NFD) Then Worksheets(NFD).Activate Dim FindRow As Range Dim FindRowNumber As Long Set FindRow = Sheets(NFD).Range("B:B").Find(What:=lab, LookIn:=xlValues) FindRowNumber = FindRow.Row 'error on this line MsgBox FindRowNumber End If Next 编辑1：这是任何人有兴趣的工作代码： For Each lab In arr If lab <> "" […]

For循环中运行时错误13: 出于某种原因，我得到一个'运行时13'错误，当我执行下面的代码。 Dim N_1 As Variant Worksheets("Trucks").Activate Range("G9").Activate Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then Exit Do Loop ActiveCell.Offset(-1, 0).Select N_1 = Range(ActiveCell, "G9") With CreateObject("scripting.dictionary") .comparemode = vbTextCompare For Each v1 In N_1 If Not IsEmpty(v1) Then If Not .exists(v1) Then .Add v1, Nothing End If Next z1 = .keys […]

将具有数据列的行转换为具有多行的列（运行时间错误）: 我有一行数据如下： header1 header2 header3 header4 header5 row key datavalue1 datavalue2 datavalue3 datavalue4 datavalue5…. CC Corporate Leadership Community Funding Delivery da1000 50% 50% 所以基本上，我有一个非规范化的数据集的数据值可能会或可能不会逐行为空。我需要正常化他们。即 CC Activity Allocation da1000 Community Development 50% da1000 Community Funding Delivery 50% 等等我可以通过使用粘贴特殊转换来做到这一点，但我有成千上万的行，我需要确保我得到每个正确的行键。此外，每一行都有一些与之相关的描述，我需要复制每个数据值。我试图使用下面的代码，但我得到一个运行时错误5无效的过程调用或参数 Sub NormalizeSheet() Dim wsOriginal As Worksheet Dim wsNormalized As Worksheet Dim strKey As […]

VBA运行时错误13：types不匹配: 我的macros是一个非常简单的replace程序，它识别总体语句中缩短的部分，并用完整的语句replace它们。出于某种原因，我不断得到VBA错误13：types不匹配。 debugging器在我的replace语句的第一个上识别出这个错误，然后在程序运行这些行时甚至产生预期的结果（我通过注释掉特定的行来testing），在接下来的两行中没有识别错误。 debugging器然后在这两行之后的其余语句中find一个错误。我不知道发生了什么，将不胜感激任何帮助。提前致谢。 // // Sub Replacement() **'Define variables** Dim firstViolation As String Dim secondViolation As String Dim thirdViolation As String Dim fourthViolation As String Dim fifthViolation As String Dim sixthViolation As String Dim seventhViolation As String Dim eighthViolation As String Dim ninthViolation As String Dim tenthViolation As String Dim eleventhViolation As […]

运行时错误429; 无法创build对象（Excel 2007）: 我的应用程序如下所示：我正在使用Access 2007数据库进行数据存储，并使用Excel 2007作为前端。我正在使用Microsoft.ACE.OLEDB.12.0 ADODB连接并引用了所需的库（dll）。我的下面的代码是在一个Excel模块，并在12台机器中的9个。另一个是得到“运行时错误429”并且在尝试创buildADODB对象的代码的第25行失败。任何人都可以帮我解决计划，找出这些机器有什么问题吗？我认为这可能是一个registry问题，但是想看看你们要说什么。所有机器都安装了XP SP3操作系统和Office 2007。感谢您的任何帮助。交叉发布在http://www.mrexcel.com/forum/excel-questions/723189-runtime-error-429%3B-cant-create-object.html Public Sub AccessData() Dim UserID As String Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset Dim sSQL, ConnSQL As String Dim IDName As String On Error GoTo err_handler 10: UserID = Environ("USERNAME") 20: pwd = Worksheets(2).Cells(8, 2).Value 25: Set adoConn = […]

运行时错误76找不到path: 我有这个错误消息，我完全失去了… 我想我查了一切可能是错误的，也许你们中的一个人可以看到一个错误或什么的。我的大脑现在完全被阻塞了。提前致谢 Option Explicit Public newestFile As Object Sub Scan_Click() Dim path As String Dim row As Integer: row = 2 Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("ETA File Server") With ws Do If .Cells(row, 1).Value = "" Then Exit Do path = .Cells(row, 1).Value Application.StatusBar = "Processing folder " & path […]

对象工作表的方法范围在插入列时失败: 我一直在为客户做一个macros。需要根据单元格值插入列。我为每个值使用相同的代码： ws.range(getcolumn(currentColumn + 1) & ":" & getcolumn(currentcolumn + 3)).EntireColumn.Insert 这工作正常，直到我打到50列，然后我得到一个1004的运行时错误，说：“对象工作表的方法范围失败” 为什么我得到这个错误？这里是getColumn（）函数： Function getColumn(columnNumber As Integer) As String Dim alphaNumber As Integer Dim iRemainder As Integer alphaNumber = Int(columnNumber / 27) iRemainder = columnNumber – (alphaNumber * 26) If alphaNumber > 0 Then getColumn = Chr(alphaNumber + 64) End If If iRemainder […]