对象所需运行时错误'424'

Question

我在下面的代码行中得到了对象所需的运行时错误，我检查了它们的正确表名，但仍然显示相同的错误Sheet1.Range（“A1”）。Value = Date & “” &时间

Private Sub CommandButton1_Click() 
Dim username As String 
Dim password As String 

username = TextBox1.Text 
password = TextBox2.Text 


Dim info 
info = IsWorkBookOpen("D:\TMS_Project\username-password.xlsx") 

If info = False Then 
Workbooks.Open ("D:\TMS_Project\username-password.xlsx") 
End If 

Dim x As Integer 
x = 2 
Do While Cells(x, 1).Value <> "" 
If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then 
MsgBox "Welcome!" 
Sheet1.Range("A1").Value = Date & " " & Time 
Selection.NumberFormat = "m/d/yyyy h:mm AM/PM" 

UserForm1.Hide 
ActiveWorkbook.Close True 
End 
Else 
x = x + 1 
End If 

Loop 
MsgBox "Please check your username or password!" 
ActiveWorkbook.Close True 
TextBox1.Text = "" 
TextBox2.Text = "" 
TextBox1.SetFocus 


End Sub 

Answer 1

当您使用Sheet1.Range("A1").Value，Sheet1实际上是Worksheet.CodeName财产，这里阅读MSDN。

虽然我觉得你的意思是使用工作表，它的名字是“表Sheet1”，那么你需要使用Worksheets("Sheet1").Range("A1").Value。

如果您想定义并设置您的Worksheet对象，您将能够跟踪它。

我正在使用下面的代码段来验证没有人更改我的工作表名称（或删除它）。

Option Explicit 

' list of worksheet names inside Workbook - easy to modify here later 
Const ShtName    As String = "Sheet1" 

'==================================================================== 
Sub VerifySheetObject() 

Dim Sht As Worksheet 

On Error Resume Next 
Set Sht = ThisWorkbook.Worksheets(ShtName) 
On Error GoTo 0 
If Sht Is Nothing Then ' in case someone renamed the Sheet (or it doesn't exist) 
    MsgBox "Sheet has been renamed, it should be " & Chr(34) & ShtName & Chr(34), vbCritical 
    Exit Sub 
End If 

' your line here 
Sht.Range("A1").Value = Date & " " & Time 

End Sub 

Answer 2

使用变量为你的表使用：

Dim sht as Worksheet 
Set sht = Worksheets("Name") 

如果你是闯民宅很多工作表其必须使用，但也使得它更容易改变以后。