VBA停止，错误代码为1004切片器和循环类型中的->综合值不兼容
VBA停止，错误代码为1004是指在VBA编程语言中发生了一个运行时错误，错误代码1004表示"应用程序或对象定义错误"。具体来说，这个错误通常出现在使用切片器（Slicer）和循环类型中遇到不兼容的综合值。
切片器是一种用于数据分析和可视化的工具，它可以通过筛选数据集中的特定维度或者属性来实现数据的交互式浏览。循环类型则是指在程序中执行重复任务时使用的循环结构，例如For循环、While循环等。
当错误代码为1004时，可能是由于以下原因导致的：
- 切片器和数据源不兼容：切片器通常是基于特定数据源创建的，如果数据源发生变化或者不兼容，就会导致错误。解决办法是检查切片器所依赖的数据源是否正确，并进行相应的调整。
- 循环类型中的综合值不兼容：综合值是指在循环类型中使用的变量或者表达式，如果综合值的类型不匹配，就会导致错误。解决办法是检查循环中的变量类型是否正确，并确保在循环过程中进行适当的类型转换。
为了解决这个问题，你可以采取以下步骤：
- 检查切片器和数据源的兼容性，确保切片器所依赖的数据源正确无误。
- 检查循环类型中的综合值是否一致，确保变量类型匹配。
- 如果问题仍然存在，可以尝试使用调试工具来定位错误的具体位置，并进行逐步调试。
腾讯云相关产品中，腾讯云计算平台（Tencent Cloud）提供了丰富的云服务和解决方案，包括但不限于云服务器、数据库、人工智能、物联网等。对于VBA开发和云计算领域的用户，可以使用腾讯云的云服务器实例（CVM）来搭建开发环境，并结合云数据库（CDB）等服务来支持应用程序的数据存储和管理。此外，腾讯云还提供了AI开放平台、物联网开发平台等产品，可以支持相关领域的开发和应用。
具体的产品介绍和链接地址可以参考腾讯云官方网站（https://cloud.tencent.com/）上的相关文档和页面，以获取更详细的信息和技术支持。
相关·内容
2回答
我在VBA中尝试使用以下命令将公式赋值给单元格时遇到1004错误代码：
=IF(ISERROR(LEFT(C4,FIND(" ",C4)-1)),C4,LEFT(C4,FIND(" ",C4)-1))
我的VBA代码：
Range("U4:U" & lrow).Formula = "=IF(ISERROR(LEFT(C4,FIND('" & "',C4)-
1)),C4,LEFT(C4,FIND('" & "',C4)-1))"
这将给出错误1
浏览 1提问于2015-10-19得票数 0
我试图用VBA代码更改excel文档中的切片器。到目前为止，我已经尝试了几乎所有的东西，最后总是犯同样的错误：
Run-time error '1004':
Application-defined or object-defined error
这是我当前的VBA代码。
Sub SelectSlicerValue(ByVal SlicerName As String, ByVal slicerVal As String, ByVal isSelected As Boolean)
ActiveWorkbook.SlicerCaches(SlicerName).Slice
浏览 2提问于2016-04-11得票数 1
我遇到错误代码1004的问题。我正在尝试在我的VBA代码中使用SUMIF公式。我的目标是将列F从F2求和到最后一行。该列具有包含"#N/A“的VLOOKUP值。不使用VBA的公式为 =SUMIF(F2:F3509, "> 0") 我在VBA中尝试的公式是 lastRow = Range ("A1048576").End(xlup).Row
Range("D" & lastrow) = "=SUMIF(F2:F, ""> 0""" & lastrow &
浏览 16提问于2019-02-21得票数 1
回答已采纳
我正在尝试从access 2016运行一个excel宏。这有很多的例子，但他们都是老的。我收到的确切错误代码是运行时错误'1004'：无法运行宏"TestScript()“。该宏可能在此工作簿中不可用，也可能显示所有宏。我只是在为考试做些简单的事情。我已经确保在excel中启用宏。excel代码如下所示
Public Sub TestScript()
MsgBox "IT WORKED"
End Sub
考试很简单。Access正在打开excel电子表格，但是它会以错误代码停止。
我的访问代码非常简单，如下所示。我还注意到了代码停止的地方。虽然我是
浏览 2提问于2020-01-23得票数 0
回答已采纳
我使用了一个旧的Excel文档与VBA，它很好地工作在IE 11在Windows 7，但在IE 11在Windows 10，它不工作。IE11启动到请求的URL，但仅此而已。每当我尝试访问事件、方法或属性时，它都会停止。没有错误代码，没有崩溃，只是停止。
我已经确认了我对Microsoft Internet控件和Microsoft HTML对象库的引用(它们不是，但现在是)。
Dim ie As Object
If ie Is Nothing Then
Set ie = CreateObject("InternetExplorer.Application")
ie
浏览 9提问于2017-01-09得票数 2
回答已采纳
1回答
我有一个excel工作表，其中A列包含日期，B列包含各自的日期。例如：A2=01/01/14，B2=Wed等。
我试图用一个示例vba代码检索B2中的时间，但是我一直收到一个错误，即“运行时错误'1004‘无法获得worksheetFunction类的Vlookup属性”。
请看我的代码，并建议什么是错误的。谢谢。
Sub Button1_Click()
Dim lookup_value As String
Dim lookup_table As Range
Let lookup_value = "1/1/2014"
Set lookup_table = Ran
浏览 2提问于2014-01-07得票数 4
回答已采纳
请帮助我知道我在哪里提交错误在以下命令:我试图将30多个excel文件合并到工作簿与多个工作表。错误发生在下面共享的VBA代码的第8行。我赞同这一点，因为我不擅长使用VBA。谢谢!
正在使用的VBA代码如下：
Option Explicit
Sub CombineMultipleExcelWorkbookIntoOne_OneSheet()
Dim Path As String, Filename As String
Path = "C:\Users\user\Desktop\desktop test\"
Filename = Dir(Path & "*.xls
浏览 1提问于2021-01-15得票数 0
回答已采纳
我一直在从事Excel和VBA的工作，我正在努力弄清楚如何从我的切割机中取消选择各种字段，而只选择了少数几个字段。我试着读取切片缓存，然后遍历切片器中的各个项。我能够读取切片器中项目的值，但我无法取消它们的选择。它继续抛出一个错误代码1004的“应用程序定义的或对象定义的错误”。
我正在分享我正面临困难的代码片段。
Sub SelectFiscalWeeks()
Dim slcCache As SlicerCache
Dim slcItem As SlicerItem
FalseVar = False
Application.StatusBar = "Filtering out l
浏览 3提问于2016-12-01得票数 0
回答已采纳
在VBA的引用中添加Microsoft之后，我突然无法在我的计算机中运行我的代码。
我试过在另一台电脑上运行，运行正常。回到我的计算机上，我尝试删除引用中的Microsoft，它仍然不能工作，所以我不太确定。
总是得到错误代码1004。WorksheetFunction.Match似乎根本不起作用，这是调试模式中错误的原因。
任何帮助都是非常感谢的！谢谢。
浏览 5提问于2022-06-07得票数 -2
1回答
我有3个枢轴表使用相同的源数据。我有一个月的预算和实际数字(3列-月，预算，实际)。
我已经为一个月创建了一个切片器，并且只想显示有实际数字的月份(例如，一月到六月)。现在，它显示了所有的月份，因为全年的预算数字都在出现。如何使用VBA代码实现这一点？
作为第一步，我在透视表上尝试了一个值筛选器，但是我得到了一个错误。我的计划是先过滤实际不等于零月的枢轴表，然后将月的选择应用到切割机上。
Sub filtermonth()
'
' filtermonth Macro
'
ActiveSheet.PivotTables("Piv
浏览 0提问于2019-07-13得票数 1
1回答
在AIX6.1下编译Vim7.4时遇到了问题。配置脚本的选项是：“-前缀/opt/freeware/bin”和“-启用-pythoninterp”。
在那里，在运行配置脚本时没有错误，但是当我试图运行"make“时，我得到了错误消息：
cc && make first cc -qlanglvl=extc89 -c -I.-Iproto -DHAVE_CONFIG_H -DFEAT_GUI_ATHENA -DFUNCPROTO=15 -g -o objects/regexp.o regexp.c "regexp_nfa.c“行4410.1: 1506-046 (
浏览 4提问于2014-09-15得票数 0
2回答
我使用VBA创建Excel文档的副本(Excel和PDF)。
我保存在OneDrive文件夹中(C:\Users\XXX\OneDrive)，以便以后可以从每个设备访问文档。我使用此文件夹，以便在连接到或不连接到internet时保存。
当我连接到互联网和OneDrive时，一切都正常。
当我没有上网的时候
错误1004方法保存对象_workbook失败
宏停止，但当我转到文件夹时，文件就在那里。
我从以下几个方面得知错误：
ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlOpenXMLWorkbookMacroEnabled,
浏览 4提问于2020-07-04得票数 1
2回答
我有一个VBA代码，它根据单元格来更改枢轴表报告筛选器。
所有的输入都是字母数字的。当输入是一个数字时，我会得到一个错误。
以下是代码：
Sub ProjSelect_PivotsUpdate()
Dim Selected_Proj
Selected_Proj = Worksheets("Parameters").Range("SelectedProj")
ActiveSheet.PivotTables("PivotTable1").PivotFields("Project").ClearAllFilte
浏览 3提问于2013-09-24得票数 0
我在尝试将4个表从MySQL源代码复制到Server 2008时出错。
这里有一张数据流的照片，如你所见，其中两个没问题(较小的)
使用OnError事件处理程序，我能够看到错误。他们来了。
SSIS错误代码DTS_E_OLEDBERROR。发生了OLE DB错误。错误代码: 0x80040E21。OLE DB记录是可用的。来源："Microsoft SQL Server本机客户端10.0“H结果: 0x80040E21描述：”多步OLE DB操作生成错误。如果可用，请检查每个OLE DB状态值。没有完成任何工作。“
输入"OLE DB目标输入“(510)的输入列&
浏览 2提问于2012-05-09得票数 5
回答已采纳
我需要通过我的计算机上运行的宏创建xlPivotTableVersion10枢轴表(Excel2003兼容)，该宏上有Excel2007。我从源文件中运行这个宏。我有另一个文件(WkbVar)，它是.xls，在兼容模式下打开，其中我想创建几个枢轴表。我已经成功地创建了一个连接到我的外部访问数据库( V6)，从它获得我的数据源，以及一个带有这个连接的枢轴缓存(pc)。
Set pc = WkbVar.PivotCaches.Create(SourceType:=xlExternal,
SourceData:=WkbVar.Connections("DOH Location invento
浏览 4提问于2013-02-25得票数 3
如何在VBA宏到达Excel的最后一行时停止它。下面是我写的代码。它可以很好地执行，但在到达excel电子表格的最后一行时会给出error# 1004。 Sub Macro1()
'
' Macro1 Macro
'
'
Range("a1048570").Select
Do
ActiveCell.Offset(1).Select
Loop
End Sub
浏览 52提问于2019-09-16得票数 1
1回答
我试图使用SQL导入/导出向导的.net将一个表从Oracle2008导入到server 2008，该表包含200万条记录，当达到35000时，该表失败并生成以下错误：
错误0xc0209029:数据流任务1: SSIS错误代码DTS_E_INDUCEDTRANSFORMFAILUREONERROR。由于出现错误代码0x80004003，“组件”源-纵向“(1)”失败，而“输出列”(IMAGE_DATA)(70)上的错误行处理“指定错误失败。指定组件的指定对象上发生错误。在此之前可能会发布错误消息，并提供有关故障的更多信息。
( Server导入和导出向导)
错误0xc02090f5:数据流任
浏览 5提问于2011-11-10得票数 0
当使用.xla()方法关闭“外接程序”工作簿(Workbook.Close)时，我会收到此错误：
error 1004:
"This workbook is currently referenced by another workbook and cannot be closed."
我关闭了从VBA编辑器中可见的所有其他工作簿。现在，“外接程序”工作簿是唯一打开的工作簿，但我仍然收到ThisWorkbook.Close()的错误。用“停止按钮”重置VBA编辑器中的项目没有帮助。
为什么Excel认为此工作簿当前由另一个工作簿引用？(编辑:没有其他工作簿，我全部关闭了。此时，只
浏览 1提问于2016-11-17得票数 1
我对VBA相当陌生，很难调试下面的代码块。我的目标是根据第7列中单元格的内容对活动工作表中的某些行(比如其中5% )进行颜色编码。错误代码是运行时错误'1004'：应用程序定义的或对象定义的错误。任何帮助或指示都将不胜感激。
编辑: lastRow在其他代码块中运行良好，而且它是在程序的前面声明和分配的，所以我目前并不怀疑它是问题所在。
' Color code data based on strings or numbers found in column 7
Dim lastRow as Integer
lastRow = 9,000
Dim block
浏览 3提问于2017-01-02得票数 0
回答已采纳
1回答
Range("A1:C7").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
End Sub
这是用于删除空行的录制VBA宏的一部分，但它在Selection.EntireRow.Delete行中显示错误Run time error "1004" - "cannot use that command on overlapping selecti
浏览 7提问于2014-09-01得票数 1
2回答
我希望选择从活动单元格开始到下一个非空白单元格的范围，但在底部之前停止三个单元格。
如果我记录了一个带有键盘顺序的宏-结束，移-下，移位-向上记录的VBA是
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A32").Select
问题是范围的长度是硬编码的。
如果我试着
Range(Selection, Selection.End(xlDown)).Select
Selection.Resize(numRows - 3, numColumns).Select
VBA在Resize行抛出一个
浏览 4提问于2020-07-02得票数 0
回答已采纳
1回答
长时间的google搜索并没有告诉我这个错误代码是什么。这是我在iphone上运行的remoteIO音频设备上调用AudioUnitRender()后得到的。我在Core Audio文档中也找不到此错误代码。
浏览 0提问于2016-02-10得票数 0
我在一个表单上有两个组合框。ComboID和ComboName
ComboID包含1001、1002、1003、1004等项...ComboName包含诸如约翰、马特、大卫、卢克等项目。
我有一个包含这些数据的表格: 1001，John 1002，Matt 1003，David 1004，Luke
当我从ComboID中选择John时，我希望ComboID显示1001。当我选择Matt时，我也想让ComboName显示'1002‘。
我需要能够在任何时候选择一个新的名称或ID，并在其他组合框中更新其相应的值。
我一直在尝试让它工作，它不可能像我所说的那样困难。我还在学习VBA代码。有什
浏览 2提问于2013-01-04得票数 0
回答已采纳
目前，我想知道是否可以删除一行vba，而不会出现错误1004。我不希望用户必须进入设置和信任访问vba项目对象模型。这个是可能的吗？当前代码(如果不信任未选中，则会发生错误)：ActiveWorkbook.Application.VBE.ActiveVBProject.VBComponents("Sheet1").CodeModule.DeleteLines 170, 1
浏览 5提问于2017-04-18得票数 0
回答已采纳
2回答
[数据转换2]错误：“将经度列(103)转换为”经度副本“列(39)时未能转换数据。此转换返回状态值2和状态文本”由于数据可能丢失而无法转换值。".“
[数据转换2]错误："SSIS错误代码DTS_E_INDUCEDTRANSFORMFAILUREONERROR。数据conversion.Output数据转换输出经度的.Columns副本“对象由于错误代码0xC020907F而失败。此外，”数据转换“上的错误行布局。“输出数据输出数据.Columns经度复制”指定错误失败。在指定组件的指定对象上发生错误。错误消息可以预先发送，并带有指示故障原因的信息。
我该怎么纠正呢。
浏览 1提问于2017-04-18得票数 0
我使用generate循环来实例化一个可参数化的模块数，并且我想根据循环迭代为模块分配一些输入。不幸的是，我遇到了综合问题，设计编译器说有错误，因为端口宽度不匹配。我想做的是：
genvar k;
generate
for(k = 0; k < `NUM/2; ++k) begin
cmp2 cmps(
.a (arr[k]),
.b (arr[k+1]),
.a_idx (k), //gives errors about port width mismatch
浏览 6提问于2017-03-13得票数 1
回答已采纳
我很难将内置的Excel函数传递给一个单元格。它一直在返回"Run-time error '1004': Application-defined or object-defined error".
基本上，我要做的是使用VBA创建一个平均/平均的动态演算。
With Sheets("TC7_DATA")
LastColumn = .Cells(4, Columns.Count).End(xlToLeft).Column
For i = 1 To Rows.Count
If (.Cells(i, 3).Value =
浏览 1提问于2018-06-20得票数 0
回答已采纳
1回答
我正在基于MySQL的DB中尝试以下查询：
SELECT
alert.name, alert.new_state_date, alert.prev_state_date
FROM
grafana.alert
WHERE
alert.id = 1
UNION SELECT
annotation.epoch
FROM
grafana.annotation
ORDER BY annotation.id DESC
LIMIT 1;
我的目的是让数据显示在同一个面板上，这样我就可以停止来回切换了。但是，我得到以下错误：
错误代码: 1250。来自其中一个选择
浏览 0提问于2018-07-05得票数 5
2回答
我试图从Oracle导入，我在源和destination.Its抛出错误上都有一个日期字段“输入OLE DB目的地上的输入列出现了错误，在处理输入"OLE DB目的地输入(3554)”时出现了错误代码oxco209029A。“试图通过数据转换将它插入到oracle查询中的字符，并将其更改回date..in SSIS，而且它也没有工作，可能是我做错了什么，你们能看看这个吗？
浏览 2提问于2012-11-28得票数 0
回答已采纳
我在平面文件连接管理器中得到了这些错误。
错误: SSIS.Pipeline错误: SSIS错误代码DTS_E_PRIMEOUTPUTFAILED。平面文件源上的PrimeOutput方法返回错误代码0xC0202091。当管道引擎名为PrimeOutput()时，组件返回一个失败代码。失败代码的含义由组件定义，但错误是致命的，管道停止执行。在此之前可能会发布错误消息，并提供有关故障的更多信息。
我对ssis比较陌生，我发现很难弄清楚这个问题。请告诉我你的看法。
浏览 12提问于2014-09-05得票数 8
1回答
一行代码导致我的应用程序停止工作-我认为问题出在撇号(可能是错误的转义)：
.Formula = "=IF(AND(" 'Criterion " & i & "'!" & cellAdress & ">=1;"'Criterion " & i & "'!" & cellAdress & "<=4);"'Criterion " & i & "'!&
浏览 0提问于2010-08-09得票数 2
回答已采纳
我需要你的帮助。我正在用VBA编写这段代码，以便在RPA过程中使用。我已经在Excel中测试了我的公式，它可以工作，但是每次我尝试从VBA运行它时，它都会出现错误代码1004，并告诉我问题是在代码.Range("C29").Formula =.Formula中。
将公式更改为简化公式，这样效果很好。还有谁知道这个问题吗？
Sub FillDown()
Dim strFormulas '(1 To 3) As Variant
With ThisWorkbook.Sheets("MainSheet")
.Range(
浏览 6提问于2021-03-26得票数 0
回答已采纳
2回答
VBA新手在这里，我已经寻找了2天，以找到一个脚本，我可以修改我的需要，但一直卡住或不能使任何工作，为我的特定情况。
我正在尝试编写一个简单但具体的宏来查找范围中的重复项并对其进行着色。
我的搜索条件在范围内(B5:B405)，要扫描和着色的数据位于范围内(D5:OM1004)
数据只是数字，需要与搜索条件完全匹配，如果发现数据中的单元格存在于搜索条件中，则数据单元格填充为红色。
我还需要在数据行1004处停止脚本，并在末尾显示一条总执行时间的消息。
我可以用条件格式在几秒钟内完成这一点，但我需要计算之后的彩色单元格，并且我找不到任何VBA宏可以让我计算条件格式的颜色，即使是在cpearson
浏览 1提问于2013-12-08得票数 0
回答已采纳
Hi，我在OLEDB转换中使用平面文件源文件执行多个DMLs。连接了平面文件连接管理器和OLE DB连接管理器，并使用派生列转换帮助从平面文件中获得与OLE DB列正确对齐的所有列，从而更改数据类型、长度和代码-1252。发生了这些错误。
[OLE DB命令60]错误: SSIS错误代码DTS_E_OLEDBERROR。发生了OLE DB错误。错误代码: 0x80040E21。OLE DB记录是可用的。来源："Microsoft本机客户端11.0“H结果: 0x80040E21描述：”强制转换规范的无效字符值“.
[OLE DB命令60]错误: OLE DB Command.Inpu
浏览 1提问于2016-06-08得票数 2
我正在尝试使用SSMS迁移工具到SQL服务器上一个新的数据库，并得到了一些我无法理解的错误。
有什么更好的方法吗，或者指导我解决这个问题？
谢谢
复制到dbo.消息错误0xc0202009:数据流任务1: SSIS错误代码DTS_E_OLEDBERROR。发生了OLE DB错误。错误代码: 0x80004005。OLE DB记录是可用的。资料来源："Microsoft本机客户端10.0“，结果: 0x80004005描述：”无效日期格式“。( Server导入和导出向导) error 0xc020901c:数据流任务1:输入“目标输入”(93)上输入列"CardExpireD
浏览 1提问于2012-04-12得票数 0
回答已采纳
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 0
为了验证用户输入，我在Access VBA中使用了不同的函数，这些函数都可能产生错误代码。主函数创建所有错误代码的和，并将其返回请求过程。作为错误代码，我使用一个二进制序列来创建一个唯一的返回代码(1,2,4,8,16,32,64,128等)，谁能帮助我使用一段简单的VBA代码来解码返回代码以查看哪些错误发生了，例如，提供数组中的所有错误代码？例如:错误274是2、16和256小时查找的结果，但是我能找到的任何东西都是用另一段代码编写的，比如C#、Perl等(我无法将这些代码转换为VBA) Thx！
浏览 7提问于2017-09-17得票数 2
回答已采纳
我正在尝试创建一个方法，该方法将附加已缓存的数据和从数据库中拉出的非缓存数据。理想情况下，执行类似以下内容的单个方法将是理想的。那么有没有办法追加两个都是切片的接口{}ref呢？
package main
import "fmt"
type foo struct {
Name string
}
func main() {
a := []*foo{
&foo{"bar"},
&foo{"boom"},
}
b := []*foo{
&fo
浏览 3提问于2016-08-19得票数 3
回答已采纳
我试图从API中获取所有信息，在API中，我不知道API可以获得的每个ID。因此，基本上，我是一个接一个的信息，而我增加ID：
<?php
$i = 0;
while ($i < 1000)
{
if ($api->traits()->get($i) == "Uncaught no such id")
{
echo "do something";
$i++;
}
else
{
echo "do something else";
浏览 2提问于2015-12-09得票数 1
回答已采纳
我使用ReplayKit的RPScreenRecorder.shared().startCapture方法记录屏幕和麦克风，但我面临一个问题。如果我在AVPlayer时播放ScreenRecording，麦克风就会停止录制音频。以下是两种情况。起初一切正常，但在第二次录音中不起作用。
启动AVPlayer，然后启动screenRecording，AVPlayer的音频停止和我的屏幕和麦克风开始录音
开始使用screenRecording，工作很好。然后启动AVPlayer，当AVPlayer播放音频时，语音记录就停止了。
浏览 0提问于2019-01-17得票数 3
回答已采纳
我想要完成一件非常简单的事情。实际上，它曾经正常运行，但当我更改为windows 7+ Office 2013时，它就停止工作了。
VBA中的以下一行不能工作：
Worksheets("Charts").Cells(2, 7) = "=" & "23,45" & "/PL!C" & 2
图表是我现有的表格，PL是另一张存在的表格。
如果我把手表添加到右边的方程中，我得到了下面的公式，当粘贴到单元格上(手动)时，这个公式是有效的。
=23,45/PL!C2
我得到的错误是：
Run-time error &#
浏览 3提问于2015-08-31得票数 2
回答已采纳
3回答
这是给我父亲的一个问题。20多年来，他一直在Excel中使用VBA，从Excel 5一直到现在，他一直在使用Excel 2002。
由于他已经在Excel中使用了很长时间，并广泛使用了记录宏的能力，所以他继续投资于Excel，因为它在每个版本中都相当稳定(就其VBA功能而言)。现在，他正在考虑升级到较新版本的Excel，但是我读到的评论说，微软在Excel 2007中完全搞砸了他们的VBA解释器，因为以前在Excel 2003或更早版本工作的脚本会变得非常缓慢或完全停止工作。然后看看Excel 2010，我读到了Excel 2007的许多问题“还没有解决”。由于我不确定这些评论的可信度，我读到
浏览 5提问于2010-09-29得票数 3
回答已采纳
1回答
我编写了一些函数来向Excel表中添加一些折线。我发现了奇怪的牙套行为。我声明并定义点数组如下：
Dim points As Variant
Dim sh As Shape
points = Array(Array(10.5, 10.5), Array(20.4, 20.4), Array(5.1, 30.3), Array(10.5, 10.5))
' These both do not work and I get error about wrong type (error 1004) in 2007
' and application defined error 10
浏览 0提问于2018-10-07得票数 6
回答已采纳
1回答
在执行提取表达式重构时，我偶然发现了Eclipse 4.4和Java 8 build 45中的一些奇怪行为。下面的示例显示了应用extract重构之前的原始代码和无错误代码：
import java.util.Map;
import java.util.Set;
public class MyMap<K, V> {
public void putAll(final Map<? extends K, ? extends V> mapToCopy) {
for (Map.Entry<? extends K, ? extends V> e
浏览 2提问于2015-07-03得票数 5
我使用了Rust代码，在将Option<&[u8; 32]>转换为Option<&[u8]>时遇到了问题。 一个(非常)简化的例子： pub type Foo = [u8; 32];
fn fun_one(inp: Option<&[u8]>) {
println!("{:?}", inp);
}
fn fun_two(x: Option<&Foo>) {
fun_one(x)
}
fn main() {
let x = [11u8; 32];
fun_two
浏览 61提问于2021-04-20得票数 2
回答已采纳
我的视频演播室代码看起来很好，突然之间它就崩溃了。搜索谷歌的错误代码没有找到解决方案。任何帮助都将不胜感激。错误代码= -536870904
浏览 4提问于2022-10-01得票数 0
我正在尝试在microsoft文档中使用VBA。我已经手动完成了，但也使用了evilClippy工具。我注意到，虽然最初的vba代码是隐藏的(换句话说，p代码保持不变)，但只要用户单击“启用宏”，如果用户导航到开发人员面板(其中存在vba代码)，他实际上可以看到原始的vba代码。
所以我想知道，在启用宏之后，有什么方法可以防止原来的vba代码重新出现吗？
附注：基本上，我希望有人分析宏的唯一选择是使用诸如pcodedmp之类的工具，而不是简单地在vm中运行word doc，在vm中他并不关心是否启用了宏。
浏览 0提问于2023-02-25得票数 0
我是VBA的新手，我知道也有人问过类似的问题，但我似乎找不到答案。我只想有一个变量范围，允许宏逐个遍历列表中的所有值，但是它总是给我同样的错误。此外，我希望比较某个范围内的所有数字，并选择比另一个值更多的第一个值(全部位于同一行)。我不知道我做得对不对，代码在这里：
Option Explicit
Private Sub CommandButton1_Click()
Dim buysignal As Variant
Dim OHLC As Variant
Dim ffdhigh As Variant
Dim i As Long
Sheets("sheet2").Activ
浏览 3提问于2016-10-03得票数 0
回答已采纳
我想通过VBA使用Excel中的“命名内置”对话框。我学会了像这样使用。
这对于许多名为内置盒的人来说是可行的，但对ApplyNames却不起作用。所有的参数都是可选的，所以这不是问题所在。我还试图定义一个boolean变量，并表示为variable = dialogbox，以便框(据我理解，结果是一个boolean )有一些东西可以写入结果。但这也没用。
我的代码如下所示：
Public Sub Box()
Application.Dialogs(xlDialogApplyNames).Show
End Sub
发生的错误是：
Laufzeitfehler 1004: Objekt
浏览 2提问于2018-01-09得票数 2
回答已采纳
我试图用一个按钮拍摄一个范围的屏幕截图，并将JPEG放在同一个文件夹中。定义的范围是“标头”。
它运行的很好一段时间，然后突然我得到以下错误之一。
Vba代码：
Sub CommandB_Click()
dt = Format(CStr(Now), "yy_mm_dd_hh_mm")
Const FName As String = "Screenshotzx.jpg"
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture
Applicatio
浏览 0提问于2018-06-07得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
