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

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

例如，我已经在用户窗体列表框中存储并显示了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中的匹配结果。

对不起，以前没有添加。

来源

2016-11-18 Vancky

你能告诉我你到目前为止所尝试过的，也许提供一些示例代码？ –

请参阅我编辑的版本。干杯! – Vancky

你的问题涉及到一个文本框，但'ResultsList'似乎不是一个文本框（可能是一个列表框）。 –

下似乎是你正在尝试做的事：

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代码，没有任何理由会让人感到有些恼火 - 所以请确保您有充分的理由将其放在新工作表上，而不是放在当前工作表的某处（可能位于用户选择的位置）。

来源

2016-11-18 13:00:50

该代码完美适用于创建新工作表并显示列表中的信息。我猜你对新的方法是正确的，因为它每次都会添加一个新的表格，而不是在同一个表格上单击（单击按钮时）。不过，谢谢你，这段代码给了我一些想法来修改我的问题！对不起，因为我没有足够的声望，所以无法给出答案。 – Vancky

很高兴为您服务。如果你愿意，你可以随时接受答案。 –

我可以存储结果列表中的信息，并将其放入数组中，原因很简单，将更多信息放入数组中，但我不想在列表框中显示，但想要将其导出到工作表中？ – Vancky

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

回答

相关问题