将用户输出的数据导出到Excel电子表格中

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

例如，我已经存储并显示了3列（“名称”，“公司”和“位置”）与用户窗体中的多行，我想将它转移到一个Excel工作表（点击一个button）相应的列和行。

感谢任何人可能提供任何build议！

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

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 

我本质上是试图在“结果列表”，这是工作好的结果，在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 

该代码假定它是一个多列列表，并可能会失败，单列（我没有testing过）。 它创build一个新工作表，将值从A1开始放在新工作表中。 我不相信这实际上是一个好主意。 我倾向于find创build新工作表的VBA代码，没有什么理由让人感到有些恼火 – 所以确保你有一个很好的理由把它放在一个新的工作表上，而不是放在当前工作表的某处（可能在用户select的位置）。