Tag: 运行时错误

VBA代码string到单元格不工作 – 运行时错误1004

我正在努力完成一些非常简单的事情。 实际上，它曾经运行正常，但当我改变到Windows 7 + Office 2013它刚刚停止工作。 VBA的以下行将不起作用： Worksheets("Charts").Cells(2, 7) = "=" & "23,45" & "/PL!C" & 2 图表是我现有的工作表，PL是另一个工作表。 如果我把手表添加到右边的公式，我得到下面的公式，当粘贴到单元格（手动）确实工作。 =23,45/PL!C2 我得到的错误是： Run-time error '1004': Application-defined or object-defined error 我已经看了几个运行时错误1004的问题，但没有一个似乎是相同的问题或为我工作。 有任何想法吗 ？ 谢谢

vba运行时错误13 – 当试图执行一个循环

我有这个代码 Sub fillinvalues() Dim interest As Double Dim rate As Double Dim payment As Double Dim period As Double Dim ws As Worksheet Dim i As Object Dim begbal As Double Set ws = Worksheets("Sheet1") payment = ws.Range("H3").Value rate = ws.Range("H4").Value begbal = ws.Range("E3").Value begbal = 80000 Worksheets("Sheet1").Range("A2").Value = "PaymentNumber" Worksheets("Sheet1").Range("B2").Value = "Payment/period" Worksheets("Sheet1").Range("C2").Value = […]

VBA错误代码对象要求 – 有三重检查，但仍然无法正常工作

下面的粗体和斜体行继续回到我的“运行时错误'424'：Object Required。我正在作为一个自学类的一部分，我已经检查了三倍，以确保我正确地input代码并且仍然返回这个错误，我试着在这里查看这个错误的其他例子，但是没有一个对这个实例有帮助，因为我还不知道代码。 谢谢！ Sub FirstArray() Dim Fruit(2) As String Fruit(0) = "Apple" Fruit(1) = "Banana" Fruit(2) = "Cherry" ***Range("A1").Text = "First Fruit: " & Fruit(1)*** Dim Veg(1 To 3) As String Veg(1) = "Artichoke" Veg(2) = "Broccoli" Veg(3) = "Cabbage" ***Range("B1").Text = "First Veg:" & Veg(1)*** Dim Flower() As String ReDim Flower(1 To 3) Flower(1) […]

崩溃发生在Java虚拟机之外的本地代码错误，同时编辑Excel文件

我正在尝试使用Apache POI和OPCPackage来编辑excel文件，而且由于某些奇怪的原因，这并不适合我。 这里是代码片段： File file = new File(basePath, fileName); int currentColNum=0, currentRowNum=0; OPCPackage pkg = null; Workbook wb = null; if(file.exists()) pkg = OPCPackage.open(file); wb = new XSSFWorkbook(pkg); else wb = new XSSFWorkbook(); Sheet sheet = wb.getSheet(sheetName); if(sheet==null) sheet = wb.createSheet(sheetName); else currentRowNum = lastWrittenRowCol.get(sheetName).getLeft(); for(Entry<?,?> entry : map.entrySet()) { //some code. This code uses […]

将一系列单元格复制到通过单元格命名的多个工作表中

感谢您花时间看我的VBAmacros。 我的这个macros的目标是将一行单元格（e7：i7）复制到一个复制的工作簿中，该工作簿的工作表中粘贴了一个模板，并通过一系列单元格命名（c7）。 然后使用（c8）作为其名称，用下一行单元格（e8：i8）重复该过程。 我有模板工作表重复工作，我有工作表命名工作。 我的问题是将单元格从“工作表”复制到使用（c7）系列作为其名称新命名的工作表。 我正进入（状态 “运行时错误'9'：下标超出范围 感谢您的帮助，因为这是我的第一个VBA项目。 Sub NEWSAVINGSTEST1() ' ' NEWSAVINGSTEST1 Macro ' Dim ws1 As Worksheet Set ws1 = ThisWorkbook.Worksheets("NEWSAVINGS") Dim MyCell As Range, MyRange As Range Set MyRange = Sheets("Master").Range("c7") Set MyRange = Range(MyRange, MyRange.End(xlDown)) For Each MyCell In MyRange Sheets("NEWSAVINGS").Select Sheets("NEWSAVINGS").Copy After:=Sheets(Sheets.Count) 'creates a new worksheet 'ws1.Copy ThisWorkbook.Sheets(Sheets.Count) Sheets(Sheets.Count).Name = […]

Excel 2013 VBA运行时错误13types不匹配

我目前正在处理Excel文件并添加了一些VBA。 我用下面的VBA在Sheet1上添加了一个button： Sub AddRow() Dim c, d As Range Set rng = ActiveSheet.Range("A1:A100") Set rng2 = Worksheets("Sheet2").Range("A1:A100") For dblCounter = rng.Cells.Count To 1 Step -1 Set c = rng(dblCounter) If c.Value Like "XXXXXX" Then c.EntireRow.Insert For dblCounter2 = rng2.Cells.Count To 1 Step -1 Set d = rng2(dblCounter2) If d.Value Like "YYYYYY" Then d.EntireRow.Insert End If […]

UserForm中的自动筛选范围会导致过早的函数无错地退出

Excel 15.0.4833.1001 Win 7 Pro 64位 更新： 我有一个邻近的原因：被筛选的数据范围也是我的UserForm上的列表框的RowSource 。 我修改了函数将所有的数据复制到一个临时表， 然后做所有的操作，现在它工作正常。 我有一个GetFileredDataRange函数采用providerName ，适当筛选rawDataRange ，并将筛选的结果复制到新的工作表。 function： Public Function GetFilteredDataRange(ByVal providerName As String) As Range '/ returns range containing filtered data Const PROVIDER_COLUMN As Long = 2 Dim rawFinalrow As Long rawFinalrow = wsInputs.Cells(1, 1).End(xlDown).Row Dim rawFinalColumn As Long rawFinalColumn = wsInputs.Cells(1, 1).End(xlToRight).Column Dim rawDataRange As Range […]

Java.lang.NoClassDefFoundError：org / apache / poi / ss / usermodel / Font

我正在使用Apache POI来读取一些Excel文件。 我已经创build了一个控制台应用程序来完成这个工作，之后，我试图将代码集成到Spring MVC webApp中（没有什么特别的，我知道）。 我已经包括相同的Jar文件到我的类path ，但每当我尝试运行代码，我得到这个错误： java.lang.NoClassDefFoundError : org/apache/poi/ss/usermodel/Font 我相信在编译期间，类Font是在运行时find的。 我很确定问题不在ClassPath中 ，但我无法弄清楚如何解决这个问题。 编辑：当我用main方法（在同一个web项目中）复制新类中的相同的代码，并作为控制台java应用程序运行我的web应用程序，它的工作原理。

尝试访问工作表范围时VBA运行时错误1004

我正在构build一个小的vba脚本，它将多个工作簿中的表合并到另一个工作簿的单个工作表中。 当我尝试设置目标范围的值时，会引发错误： wksPivotData.Range(wksPivotData.Cells(CurrentRow, 1)).Resize(tbl.ListRows.Count, tbl.ListColumns.Count).Value = _ tbl.Range.Value 错误：“运行时错误”1004“：应用程序定义或对象定义的错误” 我经历了类似的问题，一般的答案是我在这一个中find的：所选单元格属于另一个工作表，而不是所需的单元格。 虽然这是完全有道理的，但我仍然无法确定为什么我的代码中断，因为我只使用数字引用（ CurrentRow是一个Long）和Resize ，这应该阻止我做这样的错误。 另外，我在Immediate窗口中运行了几个快速testing，结果发现工作表wksPivotData存在，而我可以访问它的名字和单元格值，范围函数根本不起作用： Debug.Print wksPivotData.Name PivotData Debug.Print wksPivotData.Cells(1, 1).Value 123 这两个工作，但下一个不工作： Debug.Print wksPivotData.Range(1, 1).Value

错误：工作表类的粘贴方法失败

我被赋予了一个function，通过从网站下载文本文件来检索数据。 在gop子文件中，当我调用函数的时候文件会被打开，但是当我试图将数据复制到我的工作表“数据”时，会发生错误： 工作表类的粘贴方法失败。 有时候这是另一个错误。 有没有人碰巧知道解决scheme？ Sub gop() Dim oWsBDR As Excel.Workbook 'On Error Resume Next Set oWsBDR = WbBDR() If oWsBDR Is Nothing Then MsgBox "Le fichier n'a pas été extrait." Else 'Set Workbooks("Task2").Worksheets("Data") = oWsBDR.Sheets("downloadFile") oWsBDR.Worksheets("downloadFile").Cells.Copy 'Windows("Task2.xlsm").Cells(1, 1).Paste 'This doesn't work either Windows("Task2.xlsm").Cells(1, 1).PasteSpecial xlPasteValues 'Error Application.CutCopyMode = False With Worksheets("Data").Cells .HorizontalAlignment = xlCenter […]