在新工作表中輸入用戶表單數據

Question

每次單擊命令按鈕並將工作表命名爲day1，day2，day3等時，我都會在新工作表中保存文本框的值。我嘗試了不同的方式，我不知道它是否是這樣是否有可能。如果有人指示我正確的方向，我會感激。

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 

希望這有助於

祝你好運 - 拾音