Tag: 运行时错误

运行时错误438从一个工作簿复制到另一个时

我正在运行此代码将数据从一个工作簿复制到另一个主要工作簿，但不断得到运行时错误438在第12行。什么事？ 提前致谢！ 1 Sub copydata() 2 Dim wbk As Workbook 3 Dim wbk2 As Workbook 4 strFirstFile = Userform1.path.Text 5 Set wbk2 = ThisWorkbook 6 Set wbk = Workbooks.Open(strFirstFile) 7 With wbk.Sheets(1) 8 Cells(1, 1).Activate 9 ActiveCell.CurrentRegion.Select 10 Selection.Copy 11 End With 12 wbk2.Sheets("UAL").Range("G1").Paste 13 Application.CutCopyMode = False 14 wbk.Close 15 16 End Sub

Excel VBA中的长variables错误6

Sub Testing() Dim Ttt As Long Dim a As Variant Dim s As String s = "11:30:05.500" Ttt = (11 * 50 * 10 * 10) 'a = Split(StrConv(s, 64), Chr(0)) 'Ttt = TimeGet(a) End Sub 我只是想存储一个很大的数字，这个数字还没有那么大。 为什么这会抛出错误运行时错误6？我确定我正在做一些非常愚蠢的事情。

“运行时错误'13'只有当”填补“使用？

下面的代码被devise为只允许在单元格范围内input1，2或3。 如果input了其他内容，则popup错误消息，并且条目被撤消。 代码完美工作，除非用户填写他们的回应。 此时，出现“运行时错误”13。 我希望用户能够填写他们的条目，是否有解决这个错误的方法？ Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.Calculation = xlManual If Not Intersect(Target, [T7:AE61]) Is Nothing Then If (Target.Value Like "1") Then ElseIf (Target.Value Like "2") Then ElseIf (Target.Value Like "3") Then ElseIf (Not Target.Value Like "") Then MsgBox "Please enter a rating of 1, 2 or 3." […]

运行时1004解决方法 – 在Worksheet_Change中保护/取消保护

我读过一些其他部分解决了我的问题，但作为一个完整的VB业余爱好者，我不能得到这个工作。 问题中的工作表是受保护的，因此试图在代码中添加一个保护/取消保护命令。 它会在开始时保护好，但遇到问题。 任何帮助，将不胜感激。 Private Sub Worksheet_Change(ByVal Target As Range) Sheet1.Unprotect Password:="mypassword" If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B11")) Is Nothing Then Select Case Target.Value Case Is = "" Target.Value = "Product Name (IE Product123)" Target.Font.ColorIndex = 15 Case Else Target.Font.ColorIndex = 1 End Select End If If Not Intersect(Target, Range("B12")) […]

为什么运行时错误-2147417848（80010108）在Excel 2013大部分时间运行UserForm？

任务： 我在Excel2013工作。 我试图在VBA中写入一个用户表单来将参数添加到dynamic命名范围中。 所有命名的范围都保存在一张表中，并使用insert> table创build。 我select范围，显示现有的值，并获得新的价值。 一切都很顺利，直到我实际上增加了范围的价值。 问题： 当我尝试运行用户窗体大部分时间closuresExcel。 他说： “运行时错误”-2147417848（80010108）“对象的方法X”范围“失败” 用不同的方法（上次我检查'_Default'）在不同的阶段破解代码。 Symtoms： 之后，我发现我得到这个错误： Cells(y, x) = v 其中y和x是整数， v是从用户表单获得的string。 在debugging过程中，我检查了所有的值被定义和有值。 而且，手动input相同数字的立即窗口 （不作为variables），工作！ 它大多不起作用，虽然它通过做工作。 如果somone可以告诉它为什么打破它将不胜感激！ 一些标题和潜在的价值是在Unicode的情况下，尽pipe我试图把它全部用英文。 Private Sub UserForm_Initialize() ' Preparing all controls of UserForm Sheet2.Activate Me.LB_parameter.SetFocus Me.LB_parameter.value = "" Me.LB_elements.RowSource = "" Me.L_element.Enabled = False Me.TB_element.Enabled = False Me.TB_element.Locked = True Me.Btn_Add.Enabled = False […]

Excelmacros运行时错误1004

我想知道是什么导致运行时错误1004这个macros，当我运行它： Sub brand() ' ' brand Macro ' ' Keyboard Shortcut: Ctrl+Shift+B ' Range("M1").Select ActiveCell.FormulaR1C1 = "Brand" Range("M2").Select ActiveCell.FormulaR1C1 = _ "=IF(OR(ISNUMBER(SEARCH(""trident"", RC[-12]))), ""Trident"", IF(OR(ISNUMBER(SEARCH(""stride"", RC[-12]))),""Stride"", IF(OR(ISNUMBER(SEARCH(""mints"", RC[-12]))), ""Mints"", IF(OR(ISNUMBER(SEARCH(""gum bubb"", RC[-12]))), ""Gum Bubb"", IF(OR(ISNUMBER(SEARCH(""gum heritage"", RC[-12]))), ""Gum Heritage"", IF(OR(ISNUMBER(SEARCH(""dentyne"", RC[-12]))), ""Dentyne"", IF" & _ "MBER(SEARCH(""candy struble"", RC[-12]))), ""Candy Struble"", IF(OR(ISNUMBER(SEARCH(""halls struble"", RC[-12]))), ""Halls"", ""Other""))))))))" […]

在VBA中sorting多个键 运行时错误450：错误的参数数量或无效的属性分配

我一直在写这个VBA代码来帮助我对我有的信息（名称，发票＃，地址等）进行分类。 我最近学会了如何在VBA中进行sorting，而不是在工作表中select实际的范围，并尝试用多个键（key1，key2，key3）进行sorting，但没有运气。 我不断收到运行时错误450：运行此代码时参数的数量错误或无效的属性分配。 我希望能够多次对一系列数据进行sorting，例如按F列sorting一个范围（A：K），然后按Esorting，然后按Bsorting。 这里是我用来sorting我的列的代码： ActiveSheet.Range("A:K").Sort _ Key1:=ActiveSheet.Range("F2"), Order1:=xlAscending, HEADER:=xlYes, Ordercustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ Key2:=ActiveSheet.Range("E2"), Order2:=xlAscending, HEADER:=xlYes, Ordercustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption2:=xlSortNormal, _ Key3:=ActiveSheet.Range("D2"), Order3:=xlAscending, HEADER:=xlYes, Ordercustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption3:=xlSortNormal 这很奇怪，因为起初我试着运行前2个键（key1，key2），它工作得很好，然后我复制并粘贴下来创build下一个键（key3），并出现错误。 当我尝试debugging时，上面的所有代码都被突出显示。 我能想到的唯一方法是运行代码（A：K）在工作表中被选中，但我不想这样做。

更新：VBA错误6在字典中迭代键时溢出

早上好， 我必须在Excel工作簿中的工作表“数据”和“循环计数数据库”。 本质上，我用我们networking文件中的SQL查询刷新“数据”工作表（完美地工作）。 刷新后，我想将任何新值粘贴到“循环计数数据库”表中。 如果信息已经存在，我不想复制它; 我只想添加新的数据。 实际上，我想确保如果我们添加一个新的项目，我们正在执行该项目的周期数，但不删除旧项目的“周期盘点数据库”中的数据。 一般来说，不应该有很多新的项目。 但是，在第一次填充电子表格时，有23080个项目。 这是我的“数据”表的头： ABCD 1 Active Item Description ABC 2 A A-FUL "A" FULL SHIM KIT (2" X 2") B 3 A A-MINI "A" MINI SHIM KIT (2" X 2") C 4 A A-SHIMBOX BLACK BOX FOR 2X2 SHIM KIT X 5 A A-001 A (2" X 2").001" […]

运行时错误“7”：内存不足

我正在尝试在Word文档中编辑embedded的图表。 我的源代码如下。 它工作了很长时间，但最近两天没有。 我得到这个错误： 运行时错误“7”：内存不足 我搜查了很多，但我不明白这个问题。 当我关机后，打开它，然后它工作正常，但我得到错误后。 它在这部分给出错误： 'create range with Cell Set oChart = oInShapes.Chart oChart.ChartData.Activate ' ***Note: It gives error here*** 'Set oWorkbook = oChart.ChartData.Workbook Set oWorksheet = oChart.ChartData.Workbook.Worksheets("Tabelle1") Set oRange = oWorksheet.Range(Cell) Public Sub updatechart(Doc As word.Application, ChartName As String, ChartTitle As String, Cell As String, data As String)` Dim oInShapes As […]

在使用VBA从安全网站导入Excel中的数据时，运行时错误438

我试图从一个网站（loginID和密码已提供给我）使用以下VBA代码（从其他网站下载）MS Excel中导入一些数据， Sub GetTable() Dim ieApp As InternetExplorer Dim ieDoc As Object Dim ieTable As Object Dim clip As DataObject 'create a new instance of ie Set ieApp = New InternetExplorer 'you don't need this, but it's good for debugging ieApp.Visible = True 'assume we're not logged in and just go directly to the login […]