Microsoft VBA运行时1004错误，应用程序定义或对象定义错误，一次填充2列
Microsoft VBA运行时1004错误，应用程序定义或对象定义错误，一般是在使用VBA编程语言时出现的错误。这个错误通常表示在代码中引用了一个不存在的对象或者对象的属性、方法有误。
解决这个错误的方法有以下几种：
- 检查代码中的对象引用：确保代码中引用的对象存在，并且对象的属性、方法正确无误。可以通过调试工具逐行执行代码，查看具体出错的位置。
- 检查数据范围：如果代码中涉及到数据操作，例如填充2列数据，需要确保数据范围正确。可以通过查看数据源、目标范围等来确认数据范围是否正确。
- 检查变量类型：在VBA中，变量需要声明并指定类型。如果代码中使用了未声明的变量或者变量类型不正确，也可能导致1004错误。确保变量声明正确，并且类型与操作相符。
- 检查权限：某些操作可能需要特定的权限才能执行。如果代码中涉及到需要特定权限的操作，确保当前用户具备相应的权限。
- 更新软件版本：有时候1004错误可能是由于软件版本不兼容或者存在bug导致的。尝试更新VBA运行时或相关软件的最新版本，以修复可能存在的问题。
在解决这个错误的过程中，可以考虑使用腾讯云的云原生产品来提高开发效率和稳定性。腾讯云的云原生产品包括容器服务、Serverless云函数、云原生数据库等，可以帮助开发者快速构建、部署和管理应用程序。具体推荐的腾讯云产品和产品介绍链接如下：
- 腾讯云容器服务：提供高性能、高可靠的容器集群管理服务，支持快速部署和扩展应用程序。了解更多：https://cloud.tencent.com/product/tke
- 腾讯云Serverless云函数：无需管理服务器，按需运行代码，实现弹性扩展和高可用性。了解更多：https://cloud.tencent.com/product/scf
- 腾讯云云原生数据库TDSQL：基于开源数据库MySQL和PostgreSQL，提供高可用、高性能、弹性扩展的数据库服务。了解更多：https://cloud.tencent.com/product/tdsql
希望以上解答对您有帮助。如果您还有其他问题，请随时提问。
相关·内容
在excel VBA中，我似乎找不到这么简单的工作
我有关于手机A1的数据
Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(0, 0).Value)
End Sub
我想要输出这些数据，基本上使用一个msgBox
运行时错误：“1004”应用程序-defined或对象定义错误
浏览 0提问于2017-08-02得票数 1
当我使用以下vba代码时，我得到了一个运行时错误'1004‘应用程序定义的错误或对象定义的错误：
Private Sub CommandButton1_Click()
Dim formul as String
'Run Tercih14
formul = "=vlookup($c$15;'Şube Listesi'!$B:$J;9;FALSE)"
Sheet35.Range("F12").Formula = formul
End Sub
我可以更改F12 cell.assign的值，不同的公式，如=sum(A1:A2)
浏览 0提问于2015-05-26得票数 1
回答已采纳
根据微软的说法：https://docs.microsoft.com/en-us/office/vba/api/excel.filter.criteria2可以设置一个变量= .Criteria2。这会在Excel 2010-2019/365中抛出运行时1004错误。 注意:如果筛选的列是dates，则Criteria1和Criteria2是未定义的:应用程序定义的错误或对象定义的错误。注意:在筛选文本或数字列时，Excel将正确地记住Criteria1。 为了让审阅者简化这一过程，我只录制了一个宏来过滤一列日期，并添加了注释以显示结果。 Sub Macro2()
'
' M
浏览 41提问于2020-08-20得票数 0
1回答
我有一个VBA，我正在使用一个单独的工作表上的按钮运行。但是，由于某些原因，当我单击该按钮时VBA不工作，当我使用VBA应用程序运行VBA时，VBA运行时没有任何问题。正在运行的VBA Im如下所示。
Sub Fillit()
Worksheets("Sheet3").Range("B3").FormulaLocal = "=INDEKS(Sheet1!$N:$N;SAMMENLIGN(Sheet3!$A:$A&Sheet3!B$1;Sheet1!$R:$R;0))"
LastCol = Worksheets("Sheet3&
浏览 0提问于2017-09-06得票数 0
2回答
我试图使用Excel和Server检索不同的值。我已经建立了到DB的连接，并且可以运行其他查询；但是，以下SQL查询会导致我的VBA代码中断：
SQL语句：
Select DISTINCT ZoneName, IsoName From vDeal
Where PeriodMonth >= '2015-03-01'
Order by IsoName, ZoneName ASC
Excel VBA：
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Micr
浏览 1提问于2017-05-02得票数 0
1回答
在将Excel工作簿转换为CSV时，我的VBA脚本出现了错误。VBA脚本通过Microsoft脚本运行。
Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
Dim wb_xl As Excel.Workbook
Dim wb As Excel.Worksheet
Set wb_xl = objExcel.Workbooks.Open("O:\documents\folder.xlsx")
wb_xl.SaveAs FileName:="O:\documents\folde
浏览 1提问于2020-02-14得票数 1
为了加快代码速度，我试图避免在VBA中使用复制和粘贴。我在工作表上有一个范围，希望在同一个工作簿中填充来自另一个工作表的值。
理想情况下，我试图完成范围(x，Y).value = sheets("sheet2").range(a，b).value
我定义的两个矩阵都是相同大小(4x12)，以防出现问题.
Dim App_dates As Integer
App_dates = Sheets("Pipeline - Underwriting Data D").Range("G1").End(xlDown).Row - 1
Dim UW As
浏览 3提问于2016-11-18得票数 0
回答已采纳
1回答
为列中的最后一行定义整数
、、、、
我得到了运行时错误'1004'：应用程序定义的或对象定义的错误对下面的代码(在这里，我定义lr)，不能在我的生活中解决问题。
代码的目的是在定义为"ProjectDescriptionColumn“的列中搜索匹配的项目描述，并返回驻留在同一行单元格中但在定义为"ProjectCodeColumn”的列中的项目代码
任何帮助都非常感谢。
Dim ProjectDescriptionColumn As Long
Dim ProjectCodeColumn As Long
With Sheets("Completed")
If Cells(LastR
浏览 0提问于2018-12-04得票数 0
回答已采纳
所以我有下面的代码，但是我想留下任何一个单元
"#N/A“作为空白值。
Range("R2").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(Detail!C[-17]:C[-17],MATCH(C[-16]&""D&O"",Detail!C[-14]:C[-14],0),1)"
Range("R2").AutoFill Destination:=Range("R2:R" & lastrow)
我知道，当我直接输入单元格时
浏览 3提问于2016-06-07得票数 0
回答已采纳
我有这个Excel公式，我想通过VBA实现它，不幸的是它总是产生错误。
我的Excel公式：
IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50))
我的VBA尝试：
Range("B1:B50").Formula = _
"=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))"
浏览 10提问于2017-08-23得票数 0
回答已采纳
1回答
VBA / Excel - 2007
我希望创建一个(可能是多个) .xlam文件，以保存跨项目可访问的公共模块。在此过程中，我收到了许多错误，但通过创建“mickey-鼠标”场景，我将其归结为一个错误条件(如实际结果所示)：
我在这里看到了与此有关的几个问题，这些问题最终要么没有得到回答，要么解决方案还没有完全达到目的。
作为这方面的先驱，我能够将我的公共模块放入另一个.xlsm项目中，并通过使用对该项目的引用成功地执行它。然而，最好不要仅仅为了容纳公共模块的目的而创建工作簿。
‘'Caller (Caller.xlsm)：
Public Sub Caller()
Dim i
浏览 0提问于2019-02-01得票数 0
1回答
我经历了不同的线程，得到了一些关于验证的提示。但是我的代码仍然抛出了一个错误。这可能是一个愚蠢的错误，但我找不到它。
Set val1range = projInfo.Range(projInfo.Cells(2, 23), projInfo.Cells(m, 23))
With Cells(rowN, 3).Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=" & val1range
浏览 0提问于2013-11-05得票数 1
1回答
VBA数据透视表错误
、、、
我正在尝试通过编写用户定义的函数来使Excel工作表更具可读性，更易于使用。我正在尝试转换如下公式，
=If(IsErr(GetPivotData(Pivot Look up information here)),0,GetPivotData(Pivot Look up information here))
使用vba代码
pt.GetPivotData(Pivot Look up information here)
我在检测VBA中的查找查询时遇到问题。在上面的公式中，这是由IsErr函数处理的。我尝试过使用IsError(pt.GetPivotData(这里是透视查找信息))，但是程序崩溃
浏览 2提问于2012-10-19得票数 0
我有以下的VBA代码。
根据项目表中的值，必须在缴款表中自动填充。
在这里，当E_Count大于1时，它工作得很好。但是当E_Count为1时，它在下面的最后一行代码中抛出错误：运行时错误1004 Range Class的AutoFill方法失败了
'Autofill
Dim MaxRow As Integer
Dim E_Count As Integer
Dim ii As Integer
Dim jj As Integer
MaxRow = Worksheets("Contribution").UsedRange.Rows.Count
E_Count = Wor
浏览 0提问于2016-08-09得票数 0
回答已采纳
如何从Access VBA更新Excel工作簿中的.Application属性？
我正在使用Access VBA将数据导出到Excel，打开文件，并对文件进行格式化(添加公式等)。
代码很慢。我想禁用屏幕更新并将Excel计算更改为手动。
.ScreenUpdating = false不会产生运行时错误，但是屏幕会更新，就像代码被忽略一样。
.Application.Calculation产生运行时错误1004。
Dim Xl As Excel.Application
Dim XlBook As Excel.Workbook
Set Xl = CreateObject("Excel.
浏览 30提问于2019-11-08得票数 0
我正在尝试将excel文件(office 2010)导入到microsoft project中。当我手动执行此操作时，它工作得很好(以确认excel文件未损坏)。然而，当我在MS Project中使用宏(在启动MPP文件时)导入它时，我得到一个错误“运行时错误'1004‘。下面是我试图从MSProject执行的代码。
Private Sub Project_Open(ByVal pj As Project)
Dim strFilepath As String
'strFilepath = "C:\Temp\ExcelSrc.xlsx"
浏览 1提问于2013-07-08得票数 0
回答已采纳
我遇到了一个小问题。我想用VBA删除一些行，但我希望避免使用Activate或select语句。问题是，如果我不激活工作簿，我的代码在删除或复制行时会返回一个错误。
With Template.Worksheets("1").Range("A3").CurrentRegion
rCountS = .Rows(.Rows.Count).Row
.Range("A4", Cells(rCountS, 1)).EntireRow.Delete
End With
.Range部件在下面返回一个错误：
运行时错误“1004”：应用程序定义的或对象定义的
浏览 1提问于2020-10-01得票数 0
回答已采纳
1回答
我试图在VBA的帮助下将一个公式插入到一个单元格中，并且一直收到错误1004：“应用程序定义的或对象定义的错误”。问题出在哪里？
Worksheets("Sheet1").Range("L10").Formula = "=VLOOKUP(" & Cells(6, 15) & ", SQLTable, 2, 0)*" & Cells(6, 16)
浏览 1提问于2020-05-27得票数 0
回答已采纳
当我将数据从Sheet1复制到Sheet2时
运行时错误'1004'：应用程序定义的或对象定义的错误
我使用的是vba代码：
lnRow = 33
Sheets("Sheet1").Range("A3:C14").Copy Destination:=Sheets("Sheet2").Range(Cells(lnRow + 3, 1))
如何使用Sheet1编号将数据从Sheet2复制到Sheet2？
浏览 0提问于2020-01-17得票数 1
回答已采纳
我试图使用VBA循环一个DATEDIF公式，但我一直收到运行时错误'1004'：应用程序定义的错误或对象定义的错误。我不确定为什么代码一直踢出去。这个公式本身是有效的。 Sub DateandDaysFormula()
With ThisWorkbook.Sheets("HDT Pivot Table")
Dim lastRow As Long
lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
.Range(.Range("L2
浏览 26提问于2019-02-12得票数 0
回答已采纳
在VBA的引用中添加Microsoft之后，我突然无法在我的计算机中运行我的代码。
我试过在另一台电脑上运行，运行正常。回到我的计算机上，我尝试删除引用中的Microsoft，它仍然不能工作，所以我不太确定。
总是得到错误代码1004。WorksheetFunction.Match似乎根本不起作用，这是调试模式中错误的原因。
任何帮助都是非常感谢的！谢谢。
浏览 5提问于2022-06-07得票数 -2
我正在尝试编写一个excel子程序，它将从命名范围内的条目中填充数组。我对范围的代码是：
=OFFSET(Home!$B$5,1,0,COUNTA(Home!$B:$B)-1,1)
我正在尝试编写一个vba脚本，它将检查命名的范围在调用函数之前是否已填充，但无法看到任何东西可以工作。试着：
Debug.Print ActiveSheet.Range("NamedRange")
返回1004错误。并努力：
If (IsError(ActiveSheet.Names("NamedRange")) Then
返回相同的错误。谁能给我指明正确的方向？
浏览 2提问于2013-11-29得票数 2
回答已采纳
1回答
我在另一个答案中找到了这个
Sub UpdateQueryConnectionString(ConnectionString As String)
Dim cn As WorkbookConnection
Dim oledbCn As OLEDBConnection
Set cn = ThisWorkbook.Connections("database")
Set oledbCn = cn.OLEDBConnection
oledbCn.Connection = ConnectionString
End Sub
我似乎收到一个关于Set oledbCn =
浏览 0提问于2015-06-06得票数 0
我想在Excel电子表格上有一个按钮，并将数据复制到Access表中。该区域是来自同一工作簿中另一个工作表的自动填充的字段。 我尝试了几个代码来实现这一点，但我要么得到一个错误1004:应用程序定义或对象定义的错误，要么没有错误但数据没有被复制到Access DB中。 下面复制了我的代码。 Sub Export_Data()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dbPath
Dim x As Long, i As Long
dbPath = "H:\RFD\
浏览 48提问于2017-06-08得票数 0
回答已采纳
我们有另一家公司提供给我们的电子表格。VBAProject是受保护的，我不知道密码。在工作表"Main“上有一个指定了宏的RectangleRoundedCorners形状("CREATE SAP JOB RUN LIST")。
我们正在尝试使用VBA自动化我们的过程，但是我们在触发“创建SAP作业运行列表”宏时遇到了一个障碍。
我不知道宏在哪个模块中。我不能循环所有的VBA组件，因为VBAProject是受保护的。
由于我收到的错误消息(在尝试在我自己的工作簿中模拟调用之后)，我怀疑宏可能在"ThisWorkbook“模块中。
Application.Run
浏览 2提问于2018-10-16得票数 1
我用VBA编码已经有一段时间了，但是这次真的让我很困惑。
我正在创建一个工作簿，它为机器创建技术证书。我们有不同的模板，这取决于机器类型，我试图获得我的代码从用户输入中选择正确的工作表，然后填充工作表。这些模板将被隐藏，用户只能与用户表单交互。
下面是失败的代码：
Machine = MachineType.Text '<-- input from userform, for example Machine = "Vertex 251"
Set wsCopy = ThisWorkbook.Sheets(Machine) '<--- select t
浏览 4提问于2016-02-25得票数 1
回答已采纳
奇怪的是这个
我有一个枢轴表，通过power / OLAP连接到数据源。我已经创建了一个vba按钮，以添加一个字段到支点的行部分，然而，当我运行.
With ActiveSheet.PivotTables("PivotTable1")
.AddDataField ActiveSheet.PivotTables( _
"PivotTable1").CubeFields("[Measures].[Sum of Unique_Customers]"), "Unique Customers"
End With
我得到对象错误1004运
浏览 3提问于2016-04-19得票数 0
回答已采纳
目前，我想知道是否可以删除一行vba，而不会出现错误1004。我不希望用户必须进入设置和信任访问vba项目对象模型。这个是可能的吗？当前代码(如果不信任未选中，则会发生错误)：ActiveWorkbook.Application.VBE.ActiveVBProject.VBComponents("Sheet1").CodeModule.DeleteLines 170, 1
浏览 5提问于2017-04-18得票数 0
回答已采纳
我试图从一个公共变量在图表系列集合中设置一个范围。数据范围以下列格式存储在另一个工作表中。下面是我在VBA子程序中硬编码的代码，以验证范围是否正确地填充到变量中，然后转换为范围。无论哪种情况，我都会犯同样的错误。
Public dataRange As String
dataRange = "MyData!$F$2:$F$118,$H$2:$H$118"
Dim rgnY As Range
Set rngY = Range(dataRange)
但我知道这个错误：
Run-time error '1004' : Met
浏览 0提问于2017-03-27得票数 1
回答已采纳
我有一个运行正常的VBA代码，它运行如下：
wsEnd.Select
Range("A:AQ").Delete
strSQL = "Select *
strSQL = strSQL & " FROM [XXX].[ABCCustomer] As A"
strSQL = strSQL & " Left join"
strSQL = strSQL & " (Select * "
strSQL = strSQL & " From [XXX]..[AB
浏览 3提问于2014-11-27得票数 0
我需要帮助！我没有编程或任何经验，我已经被发送到这个excel文件来执行宏。但不知怎么的，它不起作用，而且它传达的信息
Excel VBA函数运行时错误1004:应用程序定义或对象定义错误
不断出现。我不知道出了什么问题，也不知道怎么解决。
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=Fals
浏览 4提问于2015-07-03得票数 0
我正在为Excel 2010使用VBA，并随机接收以下错误：
运行时错误'1004'：“排序引用无效。确保它在要排序的数据中，并且第一个排序框不是相同的或空白的。”
这是密码
'Sort the active rows
With ActiveWorkbook.Worksheets("Product Backlog").Sort
.SetRange Range("A4:F51")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
浏览 2提问于2011-12-30得票数 5
回答已采纳
下面的代码不工作
运行时错误1004
VlookSrc (在VBA中作为字符串)是我们在Range("KV5:KW105673")中查找的值。它是依赖于c和d的不同单元格的组合，以及中间的字符串/DIR/。在本地窗口中，可以看到Excel识别正确的字符串。我们使用IfError函数，因为不会总是找到值。运行错误1004附带工作表函数。
If Cells(3, d) = Cells(c, 33) Then
VlookSrc = Cells(c, 48).Value & "/DIR/" & Cells(4, d).Va
浏览 1提问于2017-11-08得票数 0
回答已采纳
因此，我遇到了可爱的运行时错误1004:应用程序定义或对象定义错误。
最糟糕的是，在VBA中，一半的时间代码可以正确运行而没有任何问题，而另一半的时间代码却一败涂地。第三行("Mgmt.List.....")通常在循环中运行，但在这个简单的宏中对我来说没有任何问题。
Sub whyyyy()
Dim Mgmt As Worksheet
Set Mgmt = Sheets("Mgmt MarginAnalysis")
Mgmt.ListObjects("Table4").ListRows.Add (3)
End Sub
这条
浏览 0提问于2013-06-01得票数 2
我尝试在VBA中为Excel2010编写程序，但错误不断
Public Sub SetClrIndex (rng as Range, ColorIndex as Integer)
rng.Cells(1,1).Interior.ColorIndex = ColorIndex 'here "Error 1004: application or object error"
End Sub
如果在rng.Cells(1,1).Interior put Set之前出现错误"Error 424: object required“
将用户指定的范围传输到过程
告诉我
浏览 3提问于2019-12-21得票数 0
在excel宏中，我有一个打开外部工作簿的命令：
Workbooks.Open (directory & filename), ReadOnly:=True
我希望在文件名不存在或与宏中指定的名称不同的情况下，向用户呈现带有自定义消息的消息框(即“文件名不存在或名称不同”)，而不是显示定义的应用程序错误：
“‘运行时错误1004…Microsoft Excel无法访问.”
我怎么能把这个归档？
浏览 4提问于2015-03-06得票数 2
回答已采纳
1回答
我对VBA非常陌生，我试图在工作簿中隐藏一些列。我必须在VBA中这样做，因为工作簿是Office工作簿的工作簿，所以我必须隐藏一些最终用户不需要看到的列。我的问题是，我不能指向列的特定字母，因为工作簿可以像枢轴一样修改，与打开的默认维度类似，如果我指向代码中的特定列，当用户添加新维度时，情况就不一样了。所以我必须找到这个列的名字和隐藏它。
所以现在我试了一下：
Sub Hide_Columns()
'Dim Sourcecell As Range
Dim wb As Workbook
Dim ws As Worksheet
'Set Sourcecell = Nothing
&
浏览 0提问于2018-11-15得票数 0
回答已采纳
1回答
我对VBA非常陌生，我不得不使用它来构建一个表单，该表单可以与您之前提交的表单进行预填充，其思想是某人可以每三个月提交一次表单(评估)，并随着时间的推移回顾他们的进度，并且通过预先填充之前提交的表单，他们不必每次都从头开始。
为此，我相信我需要使用vlookup来查看提交日期，并返回与最近(或最大)日期相对应的值。
到目前为止，我已经编写了这篇文章，但是我收到了一个错误:运行时错误'1004'：对象'VLookup‘的方法'WorksheetFunction’失败。
Sub vlookup1()
Set myrange = Range("
浏览 7提问于2022-09-08得票数 0
我在Excel单元格中有公式=趋势({4000,20000}，{0,32}，B15)。
在VBA函数中使用这种方法的正确方法是什么？
我一直得到运行时错误1004:无法获得WorksheetFunction类的Trend属性，每当我尝试使用以下方式的变化时：
WorksheetFunction.Trend("{4000,20000}"，"{0,32}"，"B15")
谢谢。
浏览 2提问于2014-11-11得票数 0
回答已采纳
当我将数据从Sheet1复制到Sheet2时
“运行时错误'1004'：应用程序定义或对象定义错误”
我使用以下vba代码：
Sheets("Sheet1").Range("D2:E14").Copy Destination:=Sheets("Sheet2").Cells(10, 2)
我没发现有什么不对劲的地方。为什么vba在此抛出错误？
浏览 2提问于2020-01-20得票数 0
回答已采纳
我在网上搜索了很多次解决方案，并对VBA进行了多次重新编码。最后，我手动填充了一个字符串(因为我总是错误地计算引号)：
PKHNTString = "=SUBSTITUTE(UPPER(AF:AF&AD:AD&AE:AE);"
PKHNTString = PKHNTString + """ "";"""
PKHNTString = PKHNTString + """)"
这导致一个字符串包含：=替换(AF:AF&AD:AD&AE:AE)；“"
浏览 2提问于2016-01-25得票数 4
回答已采纳
我正在尝试使用Excel宏重新格式化使用OLE-Automation导出的电子表格
下面的代码运行正常：
Application.FindFormat.NumberFormat = "#,##0.0000000"
Application.ReplaceFormat.NumberFormat = "#,##0.00"
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, Sear
浏览 10提问于2009-01-19得票数 3
回答已采纳
我在C列中有数据，我想使用VBA在公式IF(AND)的帮助下填充B列。代码行在下面，但我有“运行时错误1004-应用程序定义或对象定义的错误”。不知道问题出在哪里。
Range("B2").FormulaR1C1 = "=IF(RC[1]>180),""180+Days"",IF(AND(RC[1]>90,RC[1]=180),""091-180 days"",IF(AND(RC[1]>60,RC[1]<=90),""061-090 days"",IF
浏览 0提问于2018-04-27得票数 0
我在Access 2010中有一些VBA，可以运行查询并将结果导出到Excel的列中。这里的目标是，当用户按下所需的按钮时，将打开一个excel工作簿，如果它不存在，则创建它。创建新工作簿时，VBA会按预期执行。我遇到的问题是工作簿何时已经存在。
因此，在我创建了一个设置我的excel应用程序对象后，我尝试打开工作簿。当它不存在时，会发生1004错误，并且我有以下错误处理程序：
Select Case Err
Case 1004 'Workbook doesn't exist, make it
xl.Workbooks.Add
Set wb
浏览 1提问于2012-08-10得票数 1
回答已采纳
2回答
Microsoft Excel 2013 (15.0.4675.1000) 32位
在试图移动或复制我的工作表时，无论是在同一个工作簿中还是在其他工作簿中，我都会得到名为Sheet1、Sheet2等的空白工作表。
当尝试以编程方式使用VBA执行相同的操作时，如下所示：
Sheets("Invoice").Select
Sheets("Invoice").Copy Before:=Sheets(1)
我也得到了错误的Run time Error 1004: Method Copy of class Worksheet failed，这种情况经常发生，每次在
浏览 3提问于2015-03-18得票数 0
回答已采纳
是否有VBA代码可用于检查Excel文件是否正在积极保存？
我使用Excel文件(文件A)中的VBA宏来打开另一个Excel文件(文件B)。
DummyDirectory="C:\DummyFolder1\DummyFolder2\"
Workbooks.Open filename:=DummyDirectory & "DummyFile.xlsb", ReadOnly:=True
如果B文件是由其他人主动保存的，当我在文件A中运行宏时，我会收到一个运行时错误(1004)。在尝试用文件A中的宏打开文件B之前，我想检查B文件是否被其他人主动保存。
我倾向
浏览 1提问于2019-01-10得票数 1
回答已采纳
在Excel2002中，我有多个数据透视表，每个数据透视表都位于不同的工作表中。
当我尝试用VBA用下面的代码生成这些图表时：
Set cht = Charts.Add(After:=Worksheets("Setup"))
With cht
' we use named ranges here
.SetSourceData Source:=range(tblName)
.Name = chtName
……
其中tblName是刚刚创建了几行的命名范围，如果只有一个表和图表生成，代码运行正常，但给我一个运行时错误1004：“PivotChart报
浏览 4提问于2009-06-01得票数 0
回答已采纳
我有一个设置工作表的vba代码，其中一个功能是列"Y“的条件格式。当我尝试更改FormatCondition对象的Formula1时，我得到运行时'1004‘。 高尔夫球场使用的Excel模板，用于帮助对大群球员进行的比赛进行评分。我使用突出显示的单元格填充来提醒人们注意重要的值-在本例中-到"Total Game“中排名前三的玩家。范围为"Y8:Y127“的FormatConditions集合中存在三个FormatCondition对象。我已经编写了一些代码来部分枚举现有的FormatCondition对象，因此我知道它们就在那里，并且包含了预期的内容。这些
浏览 22提问于2019-05-29得票数 0
1回答
我有一个excel，它有超过100个HTML文本框，需要更新它们的控件值以匹配单元格引用。我得到一个运行时错误1004，应用程序或对象定义的错误。
我已经尝试了以下所有的组合，但都没有效果。
Tests 2的测试1和的3测试
子测试() 'test1 Dim TB As OLEObject 'test2 'Dim TB As TextBox 'test3 'Dim TB As msforms.TextBox Set TB = ActiveSheet.TextBoxes(HTMLText99) 'Set TB = ActiveSheet.OLEOb
浏览 1提问于2020-02-28得票数 0
下面的代码在Excel2016上运行良好，但在'If (Not Rng.Pivotcell)‘上给出了一个Object Defined 1004错误
Microsoft脚本运行时作为参考处于活动状态。这之前已经为我修复了1004错误，但在这个错误中，我感到困惑。
''Returns true if the column belongs to a pivot or not
Public Function ColumnBelongsToAPivot(ByVal ColumnLetter As String, ByVal RowIndex As Long, ByVal Use
浏览 12提问于2021-05-19得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
