如何在Excel VBA中修复运行时错误424“需要对象”
在Excel VBA中，运行时错误424“需要对象”通常表示在代码中使用了无效的对象引用。这个错误通常发生在尝试引用一个不存在的对象或未正确声明的对象变量时。
为了修复这个错误，你可以采取以下步骤：
- 检查对象名称：确认你引用的对象名称正确无误。检查代码中所有使用对象的地方，确保对象名称与你所期望的一致。
- 确认对象已被声明：确保你已经正确地声明了所使用的对象变量。在代码的开头部分使用“Dim”语句声明对象变量，例如：Dim obj As Object。
- 初始化对象：在使用对象之前，确保已经对其进行了初始化。例如，对于Worksheet对象，可以使用“Set”语句进行初始化，如：Set obj = ThisWorkbook.Worksheets("Sheet1")。
- 检查对象是否存在：在使用对象之前，可以使用条件语句检查对象是否存在。例如，使用“If”语句检查Worksheet对象是否存在，如：If Not obj Is Nothing Then ... End If。
- 确保对象已经赋值：在使用对象之前，确保已经给对象变量赋予了有效的值。如果对象变量为空（Nothing），那么尝试使用该对象将导致运行时错误424。可以使用条件语句检查对象是否为空，如：If obj Is Nothing Then ... End If。
- 调试代码：如果以上步骤无法解决问题，可以使用调试工具来逐行检查代码并查找错误。可以使用VBA的调试功能，如设置断点、单步执行、观察变量值等。
这些步骤可以帮助你在Excel VBA中修复运行时错误424“需要对象”。请注意，以上答案仅供参考，并且没有提及腾讯云的相关产品，如腾讯云计算平台、腾讯云对象存储等。
相关·内容
1回答
我无法在下面列出的潜艇中找到我的错误。我收到一条“运行时错误424对象必需”消息。
我的意图是将我的excel公式转换成VBA代码。
Private Sub Workbook_INDEXMATCH()
Dim wb As Workbook, wb1 As Workbook
Dim LastRow As Long
Set wb = Workbooks("WORKBOOK.xlsm")
With Application.WorksheetFunction
SHEET1NAME.Range("E13") = _
浏览 1提问于2017-02-01得票数 0
回答已采纳
我真的需要一些帮助。近一个月来，我一直在寻找解决方案(不是不断地)，但我找不到办法让它发挥作用。
首先，我必须打开工作簿的代码，它工作得非常好：
Private Sub OpenExcelDatabase()
Dim oxl As Object
Set oxl = CreateObject("Excel.Application")
Dim xlPath As String
xlPath = "OSX:Users:" & GetUserName.GetUserName & ":Documents:Rech
浏览 4提问于2016-01-11得票数 0
回答已采纳
我正在尝试在Excel文档的宏中使用正则表达式。
这是我到目前为止所知道的：
dim regex
regex.pattern = "\s+"
for p = 3 to totalparamcount
if (regex.test(Worksheets("table").Cells(p,1)) then
msgbox ("blah blah")
end if
next
我尝试匹配的模式是一个或多个空格、制表符、换行符，我看到它们由"\s"表示。
行'if (regex.test(Workshe
浏览 0提问于2011-10-14得票数 3
回答已采纳
我想使用来自Excel表的数据，使用VBA代码在AutoCAD中绘制。
我找到了一个代码并勾选了引用：
AutoCAD库
AutoCAD对象/DBX
VBA的AutoCAD焦点
下面是绘制圆圈的代码：
Sub AddCircle()
' Define the center point
Dim ptCen(0 To 2) As Double
ptCen(0) = 2: ptCen(1) = 3: ptCen(2) = 0#
' Create a Circle object in model space
Dim circ
浏览 1提问于2018-04-26得票数 0
我有以下使用Excel2013复选框(ActiveX控件)的代码：
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
Else
CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If
E
浏览 5提问于2017-02-20得票数 0
回答已采纳
当在access中运行我的VBA代码时，我得到运行时错误424，“需要对象”。这是导致错误的代码(特别是第2行)
DoCmd.RunSQL "DELETE * From PF_PC_TOTAL; "
DmCmd.RunSQL "INSERT INTO Table![PF_PC_TOTAL] VALUES ('Andre', 5, 6 ) ;"
浏览 0提问于2015-05-13得票数 0
我正在尝试使用vba从word来计算我在excel中的列表的行数。问题是，我似乎无法在我通过vba打开的excel文件上使用exWb.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row函数，该文件位于usb驱动器上。
我试图找出我是否打开了excel文件错误，但是我能够使用exWb.Sheets("Sheet1").Cells(1, 1)从单个单元格中获得一个值。
我的代码：
Private Sub B_FillForm_Click()
Dim objExcel As Object
S
浏览 1提问于2019-07-05得票数 0
我使用Excel中的异步WinHTTP向网站发送请求。在收到答复后，调用一个模块将其写入工作表。
如果用户没有将焦点放在Excel上，它将在
“运行时错误'50290'：应用程序定义或对象定义的错误”。
在这条线上：
pcol = ThisWorkbook.Worksheets("WHA").Cells.Find("PRODUCTA").Column
我还尝试了以下语法：
pcol = Sheet3.Cells.Find("PRODUCTA").Column
pcol = Sheet3.Rows(5).Find("
浏览 4提问于2015-07-23得票数 4
回答已采纳
2回答
我在Excel中有一个命名的范围，它有一些我想在子程序或函数中处理的数据，但是我很难找到如何引用范围的各个部分。我正在尝试使用Cells函数，但它似乎不起作用。
下面是我的代码片段：
Sub sub1()
x = Range("Test")
For Each i In x
v = x.Cells(i, 1)
calculate(v)
Next i
End Sub
到目前为止，命名范围"Test“是为A1:A18命名的，计算函数尚未编写。使用VBA中的调试工具，程序将在v = x.Cells(i,1)行抛出一个错误：“运行时错误'424'
浏览 5提问于2013-09-16得票数 1
回答已采纳
2回答
我正在尝试让一些代码在Excel VBA和VB.Net之间工作。我在Visual Studio的VB.Net中有以下代码。
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
Public Function Multiplication()
Dim activeWorksheet As Excel.
浏览 7提问于2014-06-02得票数 3
我在Excel表格中创建了一个组合框，并将其命名为"GraphChoice“。它位于名为"Choose Graph“的工作表中
在VBA中，我尝试使用以下代码填充数据：
Sub Choose_graph_and_date()
Dim Graph As Worksheet
Dim FormInfo As Worksheet
Set Graph = Worksheets("Choose Graph")
Set FormInfo = Worksheets("Forminfo")
Graph.Activate
Graph.GraphChoice.Li
浏览 0提问于2020-04-13得票数 0
1回答
我是Powerpoint VBA的新手，它与excel VBA完全不同。我可以在excel中做，但不能用powerpoint，需要一些帮助。我需要在文本框中输入分数。按下按钮后，形状将根据分值填充颜色。分数越高，填充的形状越多。下面是我的代码：
Sub AddShape()
Dim counter As Integer
Dim TopValue As Integer
TopValue = 500
For counter = 1 To 5
Set myDocument = ActivePresentation.Slides(2)
With myDocument.Shap
浏览 0提问于2014-11-16得票数 0
我尝试在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
我希望从VBA启动/停止Excel中的“修订”功能。
通过网络搜索，我看到了一个名为TrackRevisions of ActiveDocument object的属性。假设在MS Word中编写ActiveDocument.TrackRevisions = True应该打开"Track changes“。
但在MS Excel中，此行显示424 Object required运行时错误。尝试使用ThisWorkbook时返回相同的错误。将其更改为ActiveSheet会带来438 Object doesn't support this property or method错误
浏览 1提问于2012-01-11得票数 2
回答已采纳
我在VBA和编码方面完全是新手，我试图从相同工作簿的单元格中获取数据(获取框架路径...)然后启动应用程序(QTP)并运行测试。
在尝试获取在excel单元格中输入的值时，出现以下错误：
Run Time Error '424' object required
我相信我遗漏了一些基本的规则，但我很感谢你的帮助。请参见下面的代码部分：
Option Explicit
Private Sub RunTest_Click()
Dim envFrmwrkPath As Range
Dim ApplicationName As Range
Dim TestIt
浏览 1提问于2014-01-26得票数 20
1回答
我在Microsoft中得到了这个错误：
运行时错误424对象
下面是我在按钮后端使用的VBA代码：
VBA码
Private Sub Command87_Click()
If Me.phase <> "" Then
Me.lst_caseItems.RowSource = " " & _
"SELECT tbl_master.fld_masterID, " & _
"tbl_master.fld_masterActionNo AS ActionNumbe
浏览 2提问于2015-05-03得票数 0
我只是想在Excel中使用下面的VBA代码遍历PowerPoint幻灯片。
Sub test()
Dim slide As Object
For Each slide In ActivePresentation.Slides
Debug.Print "test"
Next slide
End Sub
然而，我收到消息‘运行时错误'424’。对象所需的。有人知道为什么ActivePresentation.Slides可能不能正常工作吗？我也尝试过Dim slide as Slide。
在PowerPoint中是否有需要激活的设置或参数？
任何帮助都很感
浏览 0提问于2019-04-08得票数 0
回答已采纳
2回答
我对VBA编程或面向对象编程很陌生。我试图让这些代码在Rockwell自动化的Arena的VBA编译器中工作。
有时我会得到Error 424: 'Object required'，在调试之后，我会在最后被引用到XL.Quit。有时，我会遇到一个与使用ActiveEntity有关的错误。我不知道我是否错误地让Excel文件工作，或者它是否与访问Arena的实体属性有关。
你能发现错误吗？或者你对如何自己找到它有什么建议？
Public Sub ModelLogic_RunBeginSimulation()
Dim m As Model
Set m = ThisD
浏览 0提问于2018-02-27得票数 1
回答已采纳
我想做一个简单的搜索和替换功能在excel 2019年，我只是刚刚对vba，所以请帮助.我不知道为什么这个代码有一个错误，它没有突出显示任何东西
我不知道该怎么做
Sub One_Find()
Dim FieldRange As Range
Dim FirstAddress As String
Set FieldRange = Cells.Find(What:=ActiveCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
Set FirstAddress = FieldRange.Address
Do
浏览 1提问于2019-07-25得票数 0
回答已采纳
我打开一个Excel工作簿，其中包含一些VBA代码，包括其中一个工作表上的事件代码。我打开了第二个工作簿，该工作簿中根本没有VBA代码，但第二个工作簿一打开，就会触发VBA代码在第一个工作簿中运行。代码失败，因为第一个工作簿不是活动工作簿。有人知道为什么打开第二个工作簿会触发第一个工作簿中的事件代码吗？
浏览 22提问于2019-07-26得票数 1
回答已采纳
我有一个Excel VBA项目，它使用MSXML2.XMLHTTP将web内容引入到Excel中。一切都执行得很好，除了有时我在脚本运行时得到这个错误：
无论我单击哪个按钮(是或否)，脚本都会继续正常运行，一切正常(即所有内容都正确加载到Excel中)。但是，我想首先防止这个错误弹出，因为在宏运行时弹出这个错误是不好的用户体验。
VBA项目甚至没有344行，所以我不确定错误指的是哪一行。有没有人知道如何解决这个问题，或者至少防止这个错误对话框出现？
浏览 2提问于2011-11-01得票数 0
回答已采纳
我收到了一个错误：
“运行时错误91:对象变量或块变量未设置”。
调试用MsgBox()高亮显示一行
Sub CATMain()
Dim xlApp As Excel.Application
Set xlApp = VBA.GetObject("", "Excel.Application")
Dim exlBook As Excel.Workbook
Set exlBook = xlApp.ActiveWorkbook
MsgBox exlBook.Name
End Sub
有什么不对的
浏览 0提问于2018-07-23得票数 2
1回答
我想从excel vba导出docx文件到pdf文件。正确打开文档file.docx。但是，在调用方法ExportAsFixedFormat：运行时错误'5'：无效的过程调用或参数时发生了错误。我认为争论是可以的。
下一个小错误：ActiveDocument.Path不工作。有一个错误“运行时错误'424'：Object必需”，因此我使用了WordApp.Documents(myFileName).ExportAsFixedFormat而不是ActiveDocument.ExportAsFixedFormat。
此代码是从文件Macro.xlsm执行的。我使用M
浏览 14提问于2022-02-06得票数 1
回答已采纳
1回答
我有一个简单的代码来查找第一行和最后一行填充的excel。当我执行此命令时，我得到错误VBA运行时错误424:需要对象。我搜索了其他424: object required errors，但它没有给出这个特定逻辑的细节。我尝试了Lf作为整数和字符串。
Sub lastrow()
Dim Lf As Integer
Lf = sht.Cells(sht.Rows.Count, Range("Lastrow").Column).End(xlUp).Row
End Sub
有人能帮个忙吗？
浏览 2提问于2016-09-15得票数 1
1回答
我最近写了一些代码，从用户表单文本框中获取输入，并在我的数据库中进行搜索。如果找到，我希望它返回值并将其插入到单元格A1149中；我已经编写了以下代码，但它给出了错误#424 "Object Required“。我是一个非常新的VBA，所以任何和所有的帮助非常感谢。
Private Sub CMDSearch_Click()
Dim pesquisa As Range
Set pesquisa = Worksheets("Petrobras").Activate.Range("$W:$W") _
.Find(Wh
浏览 2提问于2019-10-30得票数 1
使用Interop将多个Excel文件呈现为XPS。许多.Open会失败，并显示错误消息VBA需要当前未安装的组件。如果我单击OK，它将继续。是否可以将其配置为跳过VBA？在Windows 2008 Server上使用64位Office 2010。
浏览 2提问于2012-05-12得票数 1
回答已采纳
我想知道在VBA中使用字典是否会给我的代码带来任何缺陷？类似于兼容性问题，因为它不是由VBA原生的。
我不是编程专家，但我习惯于Python及其字典。现在我正在学习VBA，因为我需要自动化一些岩土结构的设计(使用excel)和绘图(AutoCAD)。
我发现它们可以通过设置对MS脚本运行时的引用在VBA中使用。我应该对使用它们有什么顾虑吗？比如windows或office的未来版本中的兼容性问题？
浏览 4提问于2015-03-12得票数 2
1回答
选择图表VBA
、、、、
当我运行我的VBA代码时，我一直收到运行时错误424。
我的这一行代码被高亮显示。
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Angular Rate (deg/s)"
这是我在excel中的第二张图表，所以我认为VBA正在努力选择正确的图表，我只是在猜测。
任何关于如何处理这个问题的想法都将不胜感激。谢谢
浏览 7提问于2021-02-16得票数 1
我有一些坐标号(例如6356752,31424518)，我需要添加到Excel中。你能教我怎么做吗？
Excel将其添加为635675231424518或635,675,231,424,518
浏览 20提问于2019-10-31得票数 0
问题
如何访问在另一个Excel工作簿中定义的公共常量？
设置
Workbook.xls
我的VBA代码运行在当前名为"MyWorkbook.xls“的Excel工作簿中。它中有一些VBA代码，它从单元格"A1“中读取文件名--在本例中是”A1“。然后，代码应该读取另一个工作簿中定义的常量，并将其写入单元格"A2”。下面是我的代码：
Sub GetValueFromOtherWorkbook()
otherWorkbook = Range("A1").Value ' Value = "OtherWorkbook.xls"
浏览 2提问于2010-09-23得票数 0
回答已采纳
1回答
Excel/VBA编译器似乎不能在编译时捕获无效属性。这里有一个简单的例子：
Option Explicit
Sub CompileExample()
Application.Calculzzzzzzzzation = xlCalculationAutomatic
End Sub
当然，它会在运行时失败，但可以很好地编译。通常，这对我来说不是问题，但我正在尝试编译一些机器生成的代码，以避免明显的错误，而不是执行它。有没有办法强制编译器执行严格的检查？
浏览 4提问于2017-05-28得票数 2
我对VBA很陌生，在excel上使用VBA并编写宏来导出每一行的xml文件(参见打印屏幕中的示例)。
不幸的是，我获得了以下错误
运行时错误“2147024891(80070005)”：系统错误：-2147024891。
当我单击“调试”按钮时，它会跳到代码行doc.Save sFile。
我使用以下代码读取excel工作表(MicrosoftExcelforMac16.49版)并创建xml文件：
Sub CustomerOutToXML()
sTemplateXML = _
"<?xml version='1.0'?>"
浏览 0提问于2021-05-18得票数 2
回答已采纳
我有两个vba项目，一个是针对员工的，另一个是针对产品的。
第一个是它工作得很好，所以我从员工那里得到了用于产品的代码。
问题是，代码的这一部分在employees vba项目和产品中运行良好，我收到了424对象是必需的错误：
ThisWorkbook.Worksheets("Plan1").Activate
Dim ID As Long
With Plan1
ID = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & ID) =
浏览 1提问于2018-06-17得票数 0
回答已采纳
在MSAccess中，我正在创建和填充XLS工作表。一切都如期而至。作为最后一步，我想清理XLS，将"0“值替换为"”。
通过XLS建模，我尝试了以下步骤，但从MSAccess VBA生成了一个必需的错误消息对象：
Dim appXLS As Object
Dim wbk As Object
Dim wks1 As Object
Dim wks2 As Object
Dim wks3 As Object
Dim wks4 As Object
Set appXLS = CreateObject("Excel.Application")
Set wbk = app
浏览 1提问于2016-12-06得票数 0
回答已采纳
Excel工作簿由命令行调用，而命令行本身是从c# (3.5)启动的。工作簿已运行，但VBA中存在错误。例如，透视表中缺少一列，Excel会提示用户一条错误消息，并提供"debug“选项。
从C#中的进程中，我们可以检测到错误窗口是打开的，我们会截取错误消息的屏幕截图，然后关闭错误框。
如果这是一个交互式会话，Excel将在调试模式下显示VBA编辑器，并突出显示发生错误的行。
但是，由于这是在无人参与的终端会话中运行的，因此我们无法拍摄VBA编辑器的屏幕截图(屏幕截图为黑屏)。
然后，我们可以使用windows PID关闭excel程序。
问题是:我们如何获取VBA编辑器的屏幕截图，或
浏览 1提问于2012-10-16得票数 2
我现在的主要问题是，我想根据I5-35单元格中的内容填充一系列excel单元格(比如K5通过K35)。这个数字对应于RGB号(255中的数字)。
我只是进入VBA，所以我希望这里的任何投入。这是excel向我抛出一个424对象所需错误的代码.
Sub Colors()
Dim index As Integer
index = 5
While index <= 35
colorVar = Worksheets("Pivot").Cells(index, "I").Value
cellActive = "K" & inde
浏览 1提问于2014-07-01得票数 0
回答已采纳
2回答
强制COM服务器保持打开状态
、、、、
我有一个COM自动化服务器，由VB6 exe托管。
COM API来自Excel 。
Dim o as MyCOMAPI.MyCOMType
Set o = new MyCOMAPI.MyCOMType
o.DoSomething
当我在VBA中创建对象时，会启动exe和COM自动化，并且VBA可以使用API。
但是exe被Excel快速地“随机”关闭，我猜当Excel决定不再需要COM时。
这种行为造成了随机错误。
简单的解决方案是在运行VBA代码之前启动exe；在这种情况下，所有的执行程序都正常工作，因为在用户关闭之前，exe不会停止运行。
您有一些关于Excel如何管理对托管API的调用
浏览 1提问于2015-07-03得票数 1
回答已采纳
我正在为Word在VBA中编写一些代码，以便将用户重定向到链接，或者在不使用是/否框的情况下关闭窗口。问题是，如果用户不想继续链接，代码会给出一个错误424: Object required。
Set objShell = CreateObject("Wscript.Shell")
intMessage = MsgBox("Would you like to read about alternatives to these words?", vbYesNo, "Access Denied")
If intMessage = vbYes Then
浏览 142提问于2018-06-07得票数 0
回答已采纳
我有一个Word .dot文件，它适用于较早版本的Word，但在Word 2013中运行时出现错误432时会失败。
当我调试代码时，我有一行：
Load customerForm
而VBA显示了错误：
Run-time error '432': File name or class name not found during Automation operation
项目"pennyscode“包括"Module1”(包含正在调试的函数)、"ThisDocument“和一个名为"customerForm”的表单。
我尝试过将名称更改为"p
浏览 8提问于2015-11-23得票数 1
回答已采纳
在Access数据库中，有带有"t_customers“或"t_orders”命名约定的表。我有一个组合盒，可以让我从这些选项中挑选。为了看得更好，我希望在组合框中有没有"t_“的选项，所以其中一个选项就是"customers”。然后在VBA中，我可以访问组合框的"customers“值，然后将其作为参数传递给我的函数，该函数将关联表"t_customers”的内容导出到excel文件中。
这有可能做到吗？我可以考虑使用select case语句，对于每个组合框值，我手动分配相关的表值，但是必须有更好的方法。在使用关系或类似特性进行访问时，是否有
浏览 1提问于2016-06-03得票数 0
回答已采纳
我试着做以下几件事：
我想使用这个 (解决方案1)中描述的代码在excel和Python之间传递数据数组。这样做的原因是我找不到适用于VBA的枕方法，因此我就这样做了。为了捕获来自python的错误消息，我尝试实现类似于的东西。
我的VBA代码如下所示：
Sub Usage2()
Dim outputarr() As Double
Dim oShell As Object, oCmd As String
Dim oExec As Object, oOutput As Object
Dim arg As Variant
Dim s As String, sLine As String
Set
浏览 0提问于2018-08-21得票数 1
回答已采纳
我正在尝试在Excel的VBA中声明一个新变量。我有一个excel模型，它有9个模块和7个类模块。每个模块都非常大，平均每个模块中声明了60个变量，每个模块中最少几百行代码，最多几千行代码。每次我尝试输入一个新的变量时，我都会得到一个错误，提示“内存不足”。如何避免这个错误并继续声明更多的变量？
浏览 1提问于2015-03-31得票数 1
我正在尝试导入一个userform，并在初始启动时显示它。然而，当试图显示它时，我总是得到一个运行时错误'424‘对象。
这是我的代码：
Sub Workbook_Open()
Dim wkbTarget As Excel.Workbook
Dim szTargetWorkbook As String
Dim cmpComponents As VBIDE.VBComponents
Application.ScreenUpdating = False
szTargetWorkbook = ActiveWorkbook.Name
Set wkbTarget = Application.W
浏览 0提问于2018-09-05得票数 2
回答已采纳
我试图用Access查询的输出覆盖excel工作表，使用Access VBA。我从抓取并修改了一些很好的访问VBA代码。任务已经完成，但在最后我得到了一个运行时错误：
运行时错误“424”：所需对象
修正后的守则如下。对为什么会发生这种事有什么想法吗？
Option Compare Database
Option Explicit
Private Const strFilePath As String = "C:\Users\MyPC\Desktop\Test Tracker\APS_Timeline_Status.xlsm"
Private Const strTQN
浏览 1提问于2016-05-27得票数 0
回答已采纳
我正在做一个小项目，在Excel中制作一个带有YouTube视频的'memeplayer‘-这是电子表格的截图
我尝试使用的代码如下：
Option Explicit
Sub PlaySamsMemes()
Dim sChosenTitle As String
Dim rngVideoData As Range
Dim lFinalRow As Long
Dim sLookupValue As String
lFinalRow = Range("C65536").End(xlUp).Row
sChosenTitle = Range("F4"
浏览 0提问于2011-05-20得票数 1
回答已采纳
我有一个非常大的电子表格，我想做计算。为了加快速度，我想在vba中实现它们。我对vba有基本的了解，所以首先我尝试编写代码，简单地复制A列中的单元格并将它们分配到数组中，然后将所有值粘贴回另一列D。我定义了数字以获取行数，因为这将在每个月之间发生变化。我想，如果我能让它工作，我可以从那里建立起来-但不幸的是，我不能让这个工作。如果有人能告诉我我做错了什么，我会很感激的。
我尝试过很多不同的方法--目前我得到了错误运行时错误'424‘对象，所以我认为数组是空的。
Option Explicit
Option Compare Text
Option Base 1
Sub Macro1(
浏览 2提问于2016-06-25得票数 5
回答已采纳
我从来没有在VBA中为excel做过任何事情。当.accdb在C盘中时，我可以让整个仪表板正常工作，但现在我希望它与excel工作簿位于同一文件夹中。
对于下面的底线，我得到了“运行时错误'424:需要对象”
Dim DatabasePath As String
DatabasePath = CurrentProject.Path & "\SpreadSheetData.accdb"
为什么会这样呢？谢谢你的帮忙
浏览 5提问于2013-03-02得票数 3
回答已采纳
我试图在Excel 2013中计算VBA项目中使用过的行数，以便用用户表单填充它(每次按Save按钮时，它都会向工作表中添加一个新行)。工作表也有两个标题行，所以我不希望它们被覆盖。
这应该通过以下代码来实现，只要我一按Save按钮就会执行这些代码：
Private Sub Save_Click()
Dim totalRows As Long
totalRows = Daten.Cells(Rows.Count, "A").End(xlUp).Row
If totalRows < 2 Then
totalRows = 2
Else
totalRows = totalR
浏览 5提问于2014-02-04得票数 1
回答已采纳
我正在用Excel编写一个VBA代码，以便根据Excel文件中的一些信息发送Outlook邮件。一切都很好，它在我的电脑和其他人上运行得很好。但是当我为Outlook应用程序执行GetObject时，有一台计算机出现错误。
错误是"Automation error“
代码如下所示：
Dim olApp As Outlook.Application
Dim oltask As Outlook.taskitem
On Error Resume Next
'check if Outlook is running - **The code stopped here**
Set olA
浏览 11提问于2015-05-15得票数 0
7回答
我正在使用以下所有的解决方案：
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
或
Application.Calculate
或
Application.CalculateFull
其中没有一个在Excel 2010中工作。当我转到单元格并右击“刷新”时，它会工作。如何在VBA中刷新？
Sheets("Name_of_sheet").Range("D424").Refresh引发
例外438
问题：
如何使脚本支持Excel 2003、20
浏览 10提问于2012-11-22得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
