使用列表框中的项目填充Excel表格？

使用这种编码，但没有运气尝试：使用列表框中的项目填充Excel表格？

MsExcel.Range("B2").Value = List5.List(0) 

MsExcel.Range("c2").Value = List5.List(1)

我的列表框中的名称是listbox5。感谢您的帮助，您可以通过贝利萨留提供

编辑

只是增加从作者的评论

这里的文字是我试图与使用它的代码：

 
Private Sub mdofficecommandbutton_Click() 
    Workbooks.Open FileName:="C:\Documents and Settings\o075535\Desktop\Workstation- printer setup\Workstation blank template.xls" 
    Sheets("LWS NEW BUILD").Cells(3, 6) = txtdepartment.Text 
    Sheets("LWS NEW BUILD").Cells(3, 7) = 17012 
    Sheets("LWS NEW BUILD").Cells(3, 8) = txtprinter.Text 
    Sheets("LWS NEW BUILD").Cells(3, 7) = 17004 
    Sheets("LWS NEW BUILD").Cells(3, 8) = txtprinter.Text 
    MsExcel.Range("B2").Value = List5.List(0) 
    MsExcel.Range("c2").Value = List5.List(1) 
End Sub

来源

2010-11-05 Slinkey

这里是我试图与使用它的代码： – Slinkey 2010-11-05 18:00:14

私人小组mdofficecommandbutton_Click（） Workbooks.Open文件名：=“C：\ Documents和Settings \ o075535 \桌面\工作站 - 打印机设置\工作站空白模板。 XLS “ 表（ ”NEW LWS BUILD“）。将细胞（3,6）= txtdepartment.Text 表（ ”NEW LWS BUILD“）。将细胞（3,7）= 17012个表（” NEW LWS BUILD “）.Cells（3,8）= txtprinter.Text 表（”LWS NEW BUILD“）。Cells（3,7）= 17004 表（”LWS NEW BUILD“）。Cells（3,8）= txtprinter.Text MsExcel.Range（“B2”）。Value = List5.List（0） MsExcel.Range（“c2”）。Value = List5.List（1） End Sub – Slinkey 2010-11-05 18:00:41

不应该将“List5” listbox5" ？ – 2010-11-06 00:02:09

这里是一个例子

Sheet3.Range("E4").Value = Sheet3.ListObjects(1).ListRows(3).Range(1, 2).Value

取第1列，第3列，第2列的值，放入“E4”。您使用ListObjects成员引用列表。

这里是如何多值从列表复制到工作表

Dim n As Integer 
n = Sheet3.ListObjects(1).ListRows.Count 

Sheet3.Range("E5").Resize(n, 1).Value = _ 
    Sheet3.ListObjects(1).ListRows(1).Range(1, 2).Resize(n, 1).Value

变量n持有数量复制（在这里，n =＃行），然后用第2列（使用范围（1 ，2））与第n行。

来源

2010-11-09 19:41:56 ja72

使用列表框中的项目填充Excel表格？

回答

相关问题