VBA出错9

Question

我的代码有一个小问题。 它一直遇到问题

Dim emptyRow As Long
Dim kSheet As Worksheet

Set kSheet = ActiveWorkbook.Sheets("customer")
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

kSheet.Cells(emptyRow, 2).Value = x.Text
kSheet.Cells(emptyRow, 3).Value = y.Text

我想要做的很简单：我在表单1上有2个按钮。此表还需要始终保持活动状态。使用按钮可以显示用户表单，您可以在其中输入数据。此数据将插入到“客户”表中。

编辑：它现在给我一个错误9设置kSheet

有人可以帮帮我吗？

亲切的问候

Answer 1

表单的（名称）是customer，但实际名称是sheet2。

正确的代码是：

Set kSheet = ActiveWorkbook.Sheets("Sheet2")