Введите данные формы пользователя в новом листе

Question

Я стараюсь сохранять значение текстового поля в новом листе каждый раз, когда нажимаю на кнопку команды и называю листы днем1, днем2, днем3 и т. Д. Я пытался по-другому, я не знаю, возможно это или нет.буду признателен, если кто-нибудь направит меня в правильном направлении.

Answer 1

Вот пример кода, демонстрирующий основные функции.

Private Sub CommandButton1_Click()
Dim WB As Workbook, SH As Worksheet, FN As String

    Set WB = Workbooks.Add                      ' create a new workbook
    Set SH = WB.Sheets(1)                       ' use first sheet
    FN = "SH " & Format(Now(), "YYYY-MM-DD")    ' construct a file name from current date
    SH.[A1] = Me.TextBox1                       ' write textbox value into cell A1
    WB.SaveAs FN, xlExcel7                      ' save new workbookas Excel7 format
    WB.Close                                    ' close workbook
    Me.Hide                                     ' close dialog window
End Sub

Надеюсь, это поможет

Удачи - MikeD