Tag: 运行时错误

“应用程序定义错误或对象定义错误” – 能够在某些电脑上运行脚本，但不能在其他电脑上运行: 我正在为客户编写一个VBA加载项。我testing了我的电脑和同事的电脑上的代码，并执行完美。但是，当在客户的计算机上进行testing时，我在这条线上出现错误 ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count – 1).Rows.Select 从我读过的内容来看，这可能是由于.select被使用的事实，但是，我不太清楚要替代什么。下面是整块： ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count – 1).Rows.Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$G2>30" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16751204 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 10284031 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = True 任何想法，为什么这个错误发生？整个Sub是相当长，但我很乐意提供，如果这将是有益的。

错误无法评估expression式，因为代码已经优化: 我想出口Excel与StreamWriter。但错误：无法评估expression式，因为代码已经优化，或者本地框架位于调用堆栈之上。代码C＃： private void ExportToExcel() { string filePath = string.Empty; try { if (fn.CheckRowOnDataTable(dtExport)) { string path = Server.MapPath(@"~/EXCEL/"); if (!Directory.Exists(path)) { Directory.CreateDirectory(path); } string fileName = string.Format("{0}_{1}.xls", this.PROGRAM_ID, DateTime.Now.ToString("yyyyMMdd_HHmmss")); filePath = string.Format("{0}{1}", path, fileName); if (File.Exists(filePath)) { File.Delete(filePath); } using (StreamWriter writer = new StreamWriter(filePath)) { writer.Write(GenerateExcel()); } HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"; HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("filename={0}", […]

运行时错误“1004”循环大量样本的行时: 为了实现最有效的方式来循环大量的行样本，我在Sheet3中创build了以下代码： Sub Testing_Data() Dim k As Long, S2 As Worksheet, VArray Application.ScreenUpdating = False Set S2 = ThisWorkbook.Sheets("Sheet2") VArray = Range("A:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value For k = 2 To UBound(VArray, 1) S2.Cells(k, "B") = VArray(k, 1) / 100 S2.Cells(k, "C") = VArray(k, 1) * S2.Cells(k, "B") Next End Sub 运行代码后，运行时错误“1004”：发生应用程序定义或对象定义的错误。如何解决它？

types不匹配错误超越VBA: 我的代码的目标是获取一个单元格的旧值，并检查它是否与一个新的值，如果它进入。如果旧值更改为新值，则更新指定单元格中的date。我的代码的问题是，我似乎无法find一种方法来解决这个错误，而不是我的代码中断，因此我无法修复这一行代码。我有两个工作表中的代码，这两个工作表的值都是针对不同的单元格而改变的。问题是，这个代码只适用于一个工作表，但是当我使用两个相同的代码时，它会抛出一个types不匹配的错误。这是我的代码： Dim oldValue As Variant Public Sub Worksheet_SelectionChange(ByVal Target As Range) 'My other worksheet is referencing cells E2:E100 oldValue = Me.Range("D4:D21").Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("D4:D21")) Is Nothing Then Dim c As Range For Each c In Intersect(Target, Me.Range("D4:D21")) 'Check value against what […]

“对象variables未设置”错误: 我试图实现下面的代码，其中代码search特定单元格的两个工作表，然后select整个列 – 为了以后将其包括到图表中。我的问题是，我不断收到以下错误：运行时错误“91”：对象variables或未设置块variables 我试图看看对于这个错误的可能修复的SO的各种解决scheme，但我没有试过的解决scheme似乎工作。错误发生在线上： Sensor.EntireColumn.Select 我认为解决scheme非常简单，但对我来说似乎有些遥不可及。 Sub Desperation() Dim Sensor As Range Dim RequiredSensor As String Dim SearchRange As Range Set SearchRange = ActiveSheet.Range("D1", Range("D1").End(xlToRight)) 'The RequiredSensor is a user input – What sensor the user wants to select RequiredSensor = Worksheets("Home").Range("F18") 'Essentially, the code should search through DAQ 1 for […]

Excel VBA-运行时错误1004打开工作簿: vba相当新颖，但是我写了一个代码，在列中取消合并，从而复制单元格，然后粘贴到不同的macros工作簿中。当我第一次运行代码时，代码运行良好。不过，我今天试图使用它，我很震惊，我有一个错误。这个错误说明它找不到目标文件名。这很奇怪，因为目标文件名没有改变或移动。这里是一个代码示例。错误显示在行：设置book2 = Workbooks.Open（“财政'17报告跨骑Fuel Usage.xlsm”）代码如下： Public Sub Button6_Click() 'Change name of button Worksheets("7500").Buttons("Button 6").Text = "Send" With Sheets("7500") 'Unmerge cells .Range("AI3:AI92").Select With Selection For Each rCell In Selection With rCell If .MergeCells Then .MergeArea.UnMerge End If End With Next rCell End With End With 'open destination workbook Dim […]

VBA（Excel）在每个循环上运行时错误13: 我在这个代码中find了这个奇怪的问题。我试图从Outlook中的所有子文件夹中列出Excel中的所有电子邮件：我已经search了几个星期，没有任何运气。 'Requires reference to Outlook library Option Explicit Public Sub ListOutlookFolders() Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim rngOutput As Range Dim lngCol As Long Dim olItem As Outlook.MailItem Dim rng As Excel.Range Dim strSheet As String Dim strPath As String Set rngOutput = ActiveSheet.Range("A1") Set olApp […]

运行时错误“424：Object Required”: 我对这个代码有困难。我正在试图做到这一点，根据单元格D25的值， F25的值将会改变。我在VBA中做了代码（不知道这是否是最好的方法），它给我一个424 runtime error: Object Required 。有人能指点我的方向吗？ Sub Storage_vesel_Controle() Sheets("NSR Form").Select If Range("D25") = "1" Then Range("F25").Select.Value = "0" If Range("D25") = "2" Then Range("F25").Select.Value = ".95" If Range("D25") = "3" Then Range("F25").Select.Paste = ".98" End Sub 另外，我需要添加什么来使代码“始终运行”…我想在循环中？

将div0错误更改为值（获得错误13）vba excel: 有单元格有div 0错误，因为有些值还没有更新，所以这里是我写的解决方法（试图改变数组内的值）： For a = 0 To cap Hoja9.Cells(a + 4, 3).Value = Empty array_visco(a, 0) = Hoja1.Range("C" & a + 2) If Hoja1.Range("C" & a + 2) = CVErr(xlErrDiv0) Then array_visco(a, 0) = 0 ' ^ ^ ^ ^ ^ ^ i get error 13 in this line ^ ^ ^ ^ ^ ^ […]

Windows（ThisWorkbook.Name）.Visible = True会导致Excel自动恢复的文件出错: 2个月前我已经问过这个问题：在启用macros的Excel文件上自动保存文件错误感谢@ YowE3K，当我尝试恢复（重新打开）文件时，他将Workbook_Open事件引荐给我，因为问题正在发生。今天我深深地关注它，发现我得到的原因： Run-time error '9' Subscript out of range 错误是： Windows(ThisWorkbook.Name).Visible = True 我不知道它是如何变成False的，但是当我试图打开自动恢复文件时，我意识到文件正常打开，我的表单正常打开，但是当表单消失时，错误会通过，文件的名称更改为Microsoft Excel，所有内容都从屏幕上消失，所有的Excelfunction区冻结，我只能进入开发人员选项卡，没有任何改变的情况。所以我认为，excel以某种方式不能将Windows（ThisWorkbook.Name）.Visible转换为True（我的Excel Splash Screen）消失后。我怎样才能避免这一点？我不想删除我喜欢的启animation面，但我有时也需要使用自动恢复文件。微软的页面和XL2003的类似问题：改变ThisWorkbook.Windows（）。Workbook_BeforeClose事件期间的Visible属性可以防止工作簿closures ，根本没有帮助我。