Tag: 运行时错误

使用Excel时，访问运行时错误“91”: 我知道这已经被提了很多次（通常在运行时错误'1004'），但我很难隔离我的代码中的错误 – 尽pipe在这里和其他网站广泛的研究。我的代码从Access窗体上的命令button运行，并在打开窗体后第一次成功运行，但在后续尝试中失败。我想我使用不足的引用和/或打开第二个Excel对象，但我不能解决如何。其他格式化进行，但我已尽可能删除，以保持短。 Private Sub cmdExport_Click（） Dim dbs As Database Dim rst As DAO.Recordset Dim appExcel As Excel.Application Dim wbk As Excel.Workbook Dim wks As Excel.Worksheet Dim lngCount As Long Dim lngDataRows As Long Dim intLoop As Integer Dim strSheetName As String Dim dteStart As Date Dim dteEnd As Date Dim curStartBal […]

Excel VBA – 分配单元格属性会抛出错误号1004: 伙计们，我正努力从Excel工作表（名为“Kalender”）获得这段代码作为macros运行： Public Function dcTest(s As String) As String Dim ws As Worksheet On Error GoTo dcTestExit Err.Clear Set ws = ActiveSheet ' Set ws = Worksheets("Kalender") '… same error (and yes, the sheet exists!) ' ws.Cells(2, 2).FormulaR1C1 = s ws.Cells(2, 2).Value = s dcTestExit: Set E = Err End Function 一旦我尝试写入Value或FormulaR1C2属性，就会发生错误。该函数被称为“用户自定义”function从一个Excel表格，如=dcTest("whatever") 。你能把我指向正确的方向吗？ RT（F）M欢迎只要细节… […]

VBA参数不可选错误userfrom列表框: 我为UserForm编写了下面的代码，但我一直得到一个argument not optional错误。 Option Explicit Private Sub CommandButton3_Click() Select Case LCase(Me.ListBox2.Text) Case "Analysis": Call macro1 Case "" MsgBox "nothing selected" Case Else MsgBox Me.ListBox2.Text End Select End Sub macros1代码： Sub macro1() ' ' Macro1 Macro Sheets.Add ActiveSheet.Name = "Analysis" Application.DisplayAlerts = False Application.ScreenUpdating = False ' Range("A13").Select ActiveCell.FormulaR1C1 = "Year" Range("B13").Select ActiveCell.FormulaR1C1 = "0" Range("C13").Select […]

VBA错误下标for循环用于复制/粘贴超出范围: 我不断收到我的for循环错误消息。它应该做的是比较一个给定的工作表的每一行的第一列variables，并复制它，如果匹配，然后将其粘贴到不同的工作簿中的工作表，但出于某种原因，我不断收到“运行时错误“9：下标超出范围”作为引用新工作簿/工作表的行。我到目前为止的循环： For i = 1 To Sheets(1).UsedRange.Rows.Count If Sheets(1).Cells(i, 1).Value Like dateRange & "*" Then Sheets(1).Rows(i).Copy Workbooks(destinationWorkbook).Worksheets("Sheet2").Rows(i).Paste 'Debug shows the error is here End If Next i 在前面的代码中，我将variables定义为： destinationWorkbook = "C:\Users\lbran\Desktop\Book1.xlsm" 我也尝试使用Workbooks（destinationWorkbook）.Worksheets（“Sheet2”）。Cells（i，1）.Paste 我对VBA非常陌生，所以我不确定是否正确引用了粘贴到工作表，但我知道它确实存在作为一个新的工作簿中的空表

VBA运行时错误：“9”: 我试图创build一个function，需要一些input的选定的位置和date，然后使用日input，扫描匹配的工作表数据。但是，将一个string传递给Sheets.Activate正在使我得到运行时错误9 我不确定为什么会发生这种情况，因为其他人在堆栈溢出的类似解决scheme中做了这个。这是我的代码 Sub GatherNames() Dim x As Integer Dim y As Integer Dim rowN As Integer Dim cell As String Dim day As String Dim position As String day = ThisWorkbook.Sheets("Coverage").Range("C3") Sheets(day).Activate Application.ScreenUpdating = False 'Acquire entire data range NumRows = Range("B3", Range("B3").End(xlDown)).Rows.Count NumRows = NumRows / 2 'Start at beginning of […]

使用VBA运行时错误13'types不匹配'，同时将修改的单元格值分配给单元格: 我的代码在下面，给出错误的行，types不匹配，运行时错误13是for循环内的行。这是怎么回事？我怎样才能避免呢？ Workbooks(theFile).Worksheets(1).Columns("G:G").EntireColumn.NumberFormat = "0.00" For Each myCell In Columns("G:G") myCell.Value = WorksheetFunction.Trim(WorksheetFunction.Clean(myCell.Value)) Next

运行时错误'13'VBAmacrosExcel: 我创build了这个macros，我得到了一个运行时错误“13”在线 Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name4")) 我的Excel文件有2727行。我testing了更less的行，它完美的作品，但2727它不起作用。我该如何解决这个问题？ Option Explicit Public Sub MakeXMLWithDom() Dim Q As String Q = Chr$(34) Dim objDomDoc As New MSXML2.DOMDocument60 objDomDoc.LoadXML ("<?xml version=" & Q & "1.0" & Q & "encoding=" & Q & "utf-8" & Q & "?>") Dim objDomElement As MSXML2.IXMLDOMElement Dim objDomAttribute As MSXML2.IXMLDOMAttribute Dim nodeSet As […]

在VBA中插入公式时，应用程序定义或对象定义的错误: 当我直接在Excel中添加它时，下面的公式很好用，但是当我将它添加到VBA时，我得到一个运行时错误：应用程序定义或对象定义的错误。这是我插入macros的公式： ActiveCell.FormulaR1C1 = "=VLOOKUP([[#This Row],[MATERIAL]],material!A$3:D$114,3)" 我究竟做错了什么？ TableName = ActiveSheet.Previous.Name & "_Spider" Range(TableName & "[RAWMATERIAL LENGTH]").Select ActiveCell.FormulaR1C1 = "=VLOOKUP([[#This Row],[MATERIAL]],material!A$3:D$114,3)"

Application.Evaluate运行时错误types不匹配: 我正在遇到这种运行时错误types不匹配在VBA下面的函数调用 Dim sTest As String sTest = "=Search(" & Chr(34) & "MyString" & Chr(34) & Chr(44) & "A2" & ")>0" ''the above evaluates to =Search("MyString",A2)>0 Application.Evaluate(sTest) 所以评估函数抛出一个运行时错误types不匹配我试过了 sTest = "=Search(" & Chr(34) & "MyString" & Chr(34) & Chr(44) & Chr(34) "Test MyString" & Chr(34) ")>0" 还是一样的错误当我在Excel的公式栏中使用上面的string，它的工作原理！我试过了 sTest = "=Search(""MyString"", ""Test MyString"")>0" 它在VBA中工作 […]

错误后，代码停止运行: 定期地，当我在Excel 2013的VBA中遇到运行时错误时，我的代码停止运行。例如，Worksheet_Change（BYVAL目标作为范围）子代码不再执行时，我做一个下拉select。我已经尝试点击在经常工作，但不是总是IDE的重置button，我必须closuresExcel并重新打开，然后代码将触发。必须有一种方法来重置，而不必通过所有这一切。