将数据从用户表单输出导出到 Excel 电子表格

Question

我想问一下是否有人熟悉将数据从用户表单列表框导出到单独的工作表的方法。

例如，我在用户表单列表框中存储并显示了 3 列（“名称”、“公司”和“职位”）以及多行，我想将其传输到 Excel 工作表中（单击按钮）以及相应的列和行。

感谢任何可能提供任何建议的人！

'在结果列表的新行中显示所有参数的匹配结果

            Rownum = ResultsList.ListCount
            ResultsList.AddItem

            ResultsList.List(Rownum, 0) = Name.Value
            ResultsList.List(Rownum, 1) = Company.Value
            ResultsList.List(Rownum, 2) = Position.Value


    Else
    End If
 End Sub

 Private Sub CommandButton1_Click()

Sheets.Add = ResultsList.Value

 End Sub

我实际上是在尝试将运行正常的“ResultsList”中的结果放入 excel 中的新工作表中。

抱歉没有早点加入。

Answer 1

以下似乎是您正在尝试做的事情：

Private Sub CommandButton1_Click()
    Dim m As Long, n As Long
    Dim ws As Worksheet
    m = ResultsList.ListCount
    n = ResultsList.ColumnCount
    Set ws = Sheets.Add
    ws.Range(ws.Cells(1, 1), ws.Cells(m, n)).Value = ResultsList.List
End Sub

该代码假定它是一个多列列表，并且可能会因单列而失败（我尚未对此进行测试）。它创建一个新工作表，将值放在从 A1 开始的新工作表中。我不相信这实际上是一个好主意。我倾向于发现 VBA 代码在没有充分理由的情况下创建新工作表有点烦人 - 所以请确保您有充分的理由将其放在新工作表上，而不是当前工作表上的某个位置（可能在用户选择的位置）。