VBA Excel - 将用户表单文本框值添加到工作表答案

【问题标题】：VBA Excel - add userform textbox value to worksheetVBA Excel - 将用户表单文本框值添加到工作表
【发布时间】：2026-01-08 20:45:01
【问题描述】：

Private Sub Submit_Click()

'----------The Script below writes values to Word Doc ----------------------------------------

Dim wApp As Object
Dim wDoc As Object

'We need to continue through errors since if Word isn't
'open the GetObject line will give an error

'On Error Resume Next
Set wApp = GetObject(, "Word.Application")


'We've tried to get Word but if it's nothing then it isn't open
If wApp Is Nothing Then
    Set wApp = CreateObject("Word.Application")
End If

'It's good practice to reset error warnings
On Error GoTo 0

'Open your document and ensure its visible and activate after opening

Set wDoc = wApp.Documents.Open(Filename:="C:\Documents\example.docx ", ReadOnly:=False)
    With wDoc
    .Bookmarks("bookmark1").Range.Text = Me.TextBox1.Value 'how do I also insert the TextBox1.Value to the next empty row in worksheet?

'so far I got this to do it but everytime i click submit it puts it in the same cell instead of the next row

Sheet6.Range("H2").Value = Me.TextBox6.Value

    End With

wApp.Visible = True

'set default file name and file path

ProposedFileName = Format(Now(), "DDMMMYYYY") & TextBox1.Value & "-" & ".doc"
ProposedFilePath = "C:\Documents\"

    With wApp.FileDialog(msoFileDialogSaveAs)
    wDoc.SaveAs2 ProposedFilePath & ProposedFileName, _
    FilterIndex = 1, _
    FileFormat:=wdFormatDocument

End With
End Sub

大家好，

上面的代码只是我的脚本的一部分，当用户表单文本框值插入到 word doc 中的书签 1 时，它可以正常工作，但是我如何也将此文本框值插入到工作表行，例如在列标题“名称”下?

谢谢。

【问题讨论】：

此代码来自用户表单？
@NELMVN 是的
range.cells(C, 2).Value = Me.TextBox1.Value
@NELMVN 会是这样的代码吗？
你能发布你的整个代码

标签： excel vba userform bookmarks

【解决方案1】：

我终于设法通过添加代码来解决它

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets(2)

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row

ws.Range("A" & LastRow).Value = TextBox1.Value 'Adds the TextBox1 into Col A & Last Blank Row

【讨论】：