vba - 在 Worksheets() 中设置变量

Question

我想从文本框中获取一个字符串，用字符串名称制作一个工作表，然后设置变量WS并使用它将工作表的名称放在第一个单元格中。

Dim WS As Worksheet
Dim nazov As String

nazov = Me.NazovReceptu
Sheets.Add.Name = nazov

Set WS = Worksheets(nazov)

With WS
.Cells(lRow, 1).Value = nazov
End With

'find first empty row in database
lRow = WS.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
...

我设法从文本框中获取字符串，以字符串为名称制作一张工作表，但其余部分不起作用。我知道那Set WS = Worksheets("nazov")很糟糕。我想制作更多不同名称的工作表并使用变量 WS。我怎样才能做到这一点？

Answer 1

尝试这样的事情 - 添加工作表时定义 WS ：

Dim ws As Worksheet
Dim nazov As String
Dim lRow as integer

nazov = "testsheet"
lRow = 1    
Set ws = Worksheets.Add
ws.Name = nazov
ws.Cells(lrow, 1).Value = nazov

[...]