Tag: 运行时错误

Excel VBA运行时错误1004：应用程序定义或对象定义的错误: 非常新手的用户，有一些困难得到这个代码启动和运行。我正在尝试计算一些基于其他单元格的值，并重复以最小化错误。运行时，我得到了单元格（i，17）=单元格（i，5）行的上述错误。思考？谢谢。 Private Sub CommandButton1_Click() Dim i As Long A = 6.112 B = 17.67 C = 243.5 epsilon = 0.622 G = B * C maxerror = 0.001 For i = 2 To Rows.Count Next i iter = 0 Cells(i, 17) = Cells(i, 5) Do While iter < 50 iter = […]

隐藏框架时无法设置可见属性错误: 我在Excel 2007 VBA中有一个问题，我试图在UserForm框架上将可见属性设置为false。 Userform1.Frame1.Visible = False 当试图设置属性时，Excel会抛出错误：运行时错误“-2147418113（8000ffff）”：无法设置Visible属性。意外的调用方法或属性访问。我已经研究过这个问题，唯一能够发现的地方就是没有掌握重点的问题。在我的情况下，这是不正确的，因为有一个button可以把焦点放在另一个框架上。另一个框架被设置为在Frame1被隐藏之前可见。有没有其他人遇到过这个问题，或者可以帮助我理解是什么导致这个错误？编辑 – 代码添加 Public Sub fOpenFrame(uf As UserForm, strName As String) Dim con As Control Dim i As Long i = 5 Application.ScreenUpdating = False With uf.Controls(strName) .Top = 38.15 .Left = 120 .Height = 400 .Width = 565 .Visible = […]

运行时错误5 VBA Excel中使用数组时: 我在Excel 2007，OS：windows vista上使用vba，用有限差分格式的运动波动方程进行计算。但是，当它运行运行时5（无效的过程调用或参数）消息出现。我真的没有什么问题。任何人都可以帮忙 Sub kwave() Dim u(500, 500), yy(500, 500), alpha, dt, dx, m, n, so, r, f, X, L, K As Single Dim i, j As Integer dx = 0.1 dt = 0.01 L = 10 m = 5 / 3 r = 1 f = 0.5 n = 0.025 so […]

VBA – 运行时错误1004 – 文档可能无法保存: 我得到的实际错误是 “运行时错误”1004“：文档没有保存。“ 然后当我点击debugging时，我需要线路 ActiveWorkbook.Save 我有一个巨大的VBAmacros，我有一些问题。这个macros开始于大约75页左右的大型工作簿。它从第一页开始，读取工作表的名称以确定在数据上运行哪个模型，创build新工作簿，进行计算并创buildgraphics，然后在移至下一个input工作表之前保存工作簿。所有这些工作正常，除了保存新的工作簿。有4个不同的模型，我正在运行，其中2个保存正确。但是，对于其他2我随时面临着这个错误，我试着保存它们。 OutputFolder = "location of output file" If Dir(OutputFolder, vbDirectory) = "" Then MkDir OutputFolder End If Workbooks.Open Filename:="location of input file" '(this is a path to the file) Workbooks.Open Filename:="location of lookup table" '(another path) number_of_reports = Workbooks(InputFile).Sheets.Count Workbooks(InputFile).Activate For i = 1 To […]

运行时错误1004当试图用文件名中的date保存文件时文档未保存: 所以我有一个macros，它的工作原理如下。它通过数据validation下拉菜单循环，并为每个国家的下拉菜单保存pdf。但是，当我尝试编辑macros，以便文件名包括date除了国家（D14）名称我遇到运行时错误1004文档无法保存。我对VBA很新，所以我不知道如何解决这个问题。我真的非常感谢你的帮助斯蒂芬 Sub Create_PDFs() ' ' Create_PDFS Macro ' ' Keyboard Shortcut: Ctrl+y ' Const sheetToExportName = "Graphs" Const sheetWithCountryList = "Master Sheet" Const CountryListAddress = "AQ6:AQ38" Const chosenCountryCell = "D14" Const sheetWithChosenCell = "Graphs" Dim CountryList As Range Dim anyCountry As Range Set CountryList = _ ThisWorkbook.Worksheets(sheetWithCountryList). _ Range(CountryListAddress) For Each […]

无法打开数据透视表源文件: 回答我logging了一个Excelmacros（并将其保存在我的个人macros工作簿）创build一个数据透视表，并希望我能够在多个工作表上使用它。当我在计算机上的电子表格上运行代码时，代码工作正常，但不会在其他计算机上运行，或者如果我尝试在VBA编辑器中运行该代码。它不断给出以下错误： http : //imgur.com/xNU1R2F （无法find数据透视表源文件）事情是，该文件保存在同一个确切名称的位置。我试图用电子表格的范围（这是不理想的，如果我想在其他电子表格上使用它）replacepath，但是这产生了应用程序定义或对象定义的错误。我也尝试把它放在不同的位置，无济于事。我正在使用的代码如下所示： Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "File_Name!R1C1:R1681C105", Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _ , DefaultVersion:=xlPivotTableVersion14 我认为问题是在“File_Name！R1C1：R1681C105”（如果我改变文件位置，path会改变，但是会产生相同的错误）我怎样才能让我的代码find源文件？答：振华的方法奏效了。必须在我的代码之前添加下面的代码，然后才能find源文件。 Set SrcWbk = Workbooks.Open("File_Name", , ReadOnly) 虽然在我的计算机上工作正常，但我发现为了使我的代码在其他计算机上运行，工作表不能在Excel中打开，只能在空白工作表上运行macros。可能只是一个侥幸，但要提及它，以防其他人遇到同样的问题。

运行时错误'1004'对象'_Global'的方法'范围'失败 – dynamic表名，循环，工作表间search: 我一直运行到Run-time error '1004' Method 'Range' of object '_Global' failed 。在一个名为“Receiving”的工作表中，我有一个表（表是工作表中的唯一一个），它具有一个dynamic名称（表名称会随时更改），所以我将名称更改为“invoiceTable”子程序的开始。基本上，我想遍历invoiceTable的行，并根据表中的数据修改其他工作表中的数据。 invoiceTable中的第一列叫做“Frame”，第五个叫做“Quantity Received”。我试图通过invoiceTable循环，并根据invoiceTable中列出的框架更新名为“库存pipe理”的工作表中的数据。对于invoiceTable中的每个框架，我想将'Quantity Received'添加到特定Frame的索引处的'Inventory Management'的列T中。同样，我想从“单价”标题下的invoiceTable中取值，并使用invoiceTable中每个框架的最近购买价格更新“库存pipe理”列F中的值。 ActiveSheet.ListObjects(1).Name = "invoiceTable" For row = 1 To Range("invoiceTable").Rows.Count If Range("invoiceTable[Frame]")(row).Value <> 0 Then Dim frame As String Dim purchQ As Integer Dim price As Long frame = Range("invoiceTable[Frame]")(row).Value price = Range("invoiceTable[Unit Price]")(row).Value purchQ = Range("invoiceTable[Quantity […]

多个运行时错误的问题：更新的代码 – 仍然有问题: 谢谢大家的帮助到目前为止 – 非常感谢！但是我仍然有问题我是一个非常新的Excel用户，我相信答案会非常简单。我经历了很多尝试，通过阅读现有的问题来解决这个问题，但是每次我只是得到一个不同的错误，并且无法解决问题。正因为如此，我已经经历了许多代码尝试修复这些问题的迭代，因此欢迎关于如何继续的build议。也道歉，如果我不格式/问我的问题适当。背景我有两个excel文件：wb1）一张带有公司名称和ID表的表（每周更改列表）wb2）带有多个选项卡的工作簿，其本质上就是模板。对于在wb1中列出的每个公司，我需要将公司名称和ID复制到wb2中的相应单元格中，并另存为公司名称和date。如上所述，我已经经历了许多迭代，并在下面得到了帮助，但是我仍然没有得到它的工作。我得到的各种错误取决于我如何修改代码是运行时错误5，运行时错误438，编译错误，可能还有一些我没有写下来。当前的问题：如果macros保存在wb1中 – macros运行并创build第一个工作簿，但是然后我得到“系统错误＆h800401a8（-2147221080）如果macros保存在个人macros工作簿 – “脚本超出范围”。它似乎打破了行Set tb1 = wb1.Sheets("Sheet1").ListObjects("Table1") 我会欢迎任何关于如何解决问题的build议，并提前致谢。这是我的代码，因为它代表： Option Explicit Sub CreateStat() Dim CompanyName As String Dim CompanyID As String Dim Z As Long Dim wb1 As Workbook Dim wb2 As Workbook Dim tb1 As ListObject Dim […]

在dynamic创build的工作表上运行代码时，运行时错误1004: 我正在使用Excel 2010，并在一个工作簿中编写了这些代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim flname As Variant, n As Variant If Selection.Count = 1 Then If Not Intersect(Target, Range("D5:H20")) Is Nothing Then flname = Application.GetOpenFilename If flname <> False Then If Right(flname, 3) = "jpg" Then Set n = ActiveSheet.Pictures.Insert(flname) n.Name = "Picture 1" ActiveSheet.Shapes("Picture 1").Left = ActiveSheet.Cells(5, 4).Left ActiveSheet.Shapes("Picture […]

VBA运行时错误“1004”: 我试图从SQL存储过程产生的数据附加到我的Excel电子表格中使用VBA的现有数据的末尾。我想把它粘贴到最后一列的右侧。每次运行它，我都会得到上面的错误：“_Global”对象的“方法范围”失败。我希望将新数据粘贴到现有数据右侧的第3行。以下是我的vba代码： Sub RefreshStatus() Dim db As DAO.Database Dim con As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim StoredProc As String Dim RWS As Worksheet Dim DWS As Worksheet Dim ServerName As String Dim DatabaseName As String Dim StoredProcedure As String Set con = New ADODB.Connection Set cmd = […]