如何解决VB中的424错误 [英] How do I resolve the 424 error in VB

问题描述

Private Sub CommandButton1_Click()
Dim FDate As Date
Dim Name As String
Dim Amount As Integer
Dim City As String
Dim mydata As Workbook
Worksheets("Form").Select
FDate = Range("J7")
Name = Range("J9")
Amount = Range("J11")
City = Range("J13")
Set mydata = Workbook.Open("E:\Data\Recieved Data.xlsx")
Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
If Worksheets("Data").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Data").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = FDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Amount
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = City
mydata.Save
End Sub

我尝试过：

What I have tried:

Private Sub CommandButton1_Click()
Dim FDate As Date
Dim Name As String
Dim Amount As Integer
Dim City As String
Dim mydata As Workbook
Worksheets("Form").Select
FDate = Range("J7")
Name = Range("J9")
Amount = Range("J11")
City = Range("J13")
Set mydata = Workbook.Open("E:\Data\Recieved Data.xlsx")
Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
If Worksheets("Data").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Data").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = FDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Amount
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = City
mydata.Save
End Sub

推荐答案

424错误是需要对象，并且可能是您的数据未按预期返回数据。我们无法访问您的数据，也不知道错误发生在哪一行，因此我们无法为您提供太多帮助。



所以，这取决于你。

幸运的是，你有一个工具可以帮助你找到正在发生的事情：调试器。你如何使用它取决于你的编译器系统，但快速谷歌的IDE名称和调试器应该为您提供所需的信息。 （它可能是早期的Visual工作室，或者这可能是VBA - 我们不知道）



在函数的第一行放置一个断点，然后运行你的代码通过调试器。然后查看您的代码，并查看您的数据并找出手动应该发生的事情。然后单步执行每一行检查您预期发生的情况正是如此。如果不是，那就是当你遇到问题时，你可以回溯（或者再次运行并仔细观察）以找出原因。


对不起，但我们不能为你做到这一点 - 时间让你学习一门新的（非常非常有用的）技能：调试！

A 424 error is "Object required" and the chances are that your data is not returning data where you expect it should. We don't have access to your data, or any idea what line the error is occurring on, so we can't really help you much, if at all.

So, it's going to be up to you.
Fortunately, you have a tool available to you which will help you find out what is going on: the debugger. How you use it depends on your compiler system, but a quick Google for the name of your IDE and "debugger" should give you the info you need. (it could be an early Visual studio, or this could be VBA - we don't know)

Put a breakpoint on the first line in the function, and run your code through the debugger. Then look at your code, and at your data and work out what should happen manually. Then single step each line checking that what you expected to happen is exactly what did. When it isn't, that's when you have a problem, and you can back-track (or run it again and look more closely) to find out why.

Sorry, but we can't do that for you - time for you to learn a new (and very, very useful) skill: debugging!

这篇关于如何解决VB中的424错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！