我正在学习VBA,并尝试创建一个重复出现的电子邮件应用程序。
我从下面的eRow = Sheet1.Cells...
行下面的代码中收到错误1004。
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton4_Click()
End
End Sub
Private Sub CommandButton5_Click()
Dim eRow As Long
eRow = Sheet1.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row
If TextBox1.Text = "" Then
MsgBox "Missing Information"
End If
Cells(eRow, 1) = TextBox1.Text
End Sub
为什么会出现此错误,我该如何解决?