用列表框中的项目填充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

---

私有子mdofficecommandbutton_Click（） 工作簿。打开的文件名：=“C:\Documents and Settings\o075535\Desktop\Workstation-printer setup\Workstation blank template.xls” 表格（“LWS新版本”）.Cells（3,6）=txtdepartment.Text 表（“LWS新建”）。单元格（3,7）=17012 工作表（“LWS新建”）.Cells（3,8）=txtprinter.Text 图纸（“LWS新建”）。单元（3,7）=17004 工作表（“LWS新建”）.Cells（3,8）=txtprinter.Text MsExcel.Range（“B2”）.Value=List5.List（0） MsExcel.Range（“c2”）.Value=List5.List（1） 端接头 这里有一个例子

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

它获取第一个列表、第三行、第二列的值并将其放入“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=#行），然后将第二列（范围为（1,2））与第n行一起使用。

以下是我试图将其用于的代码：Private Sub mdofficecommandbutton_Click（）工作簿。打开文件名：=“C:\Documents and Settings\o075535\Desktop\Workstation-printer setup\Workstation blank template.xls”表格（“LWS新版本”）。单元格（3,6）=TXT部门。文本表格（“LWS新版本”）。单元格（3,7）=17012张表格（“LWS新版本”）。单元格（3,8）=TXT打印机。文本表格（“LWS新版本”）。单元格（3,7）=17004张表格（“LWS新版本”）。单元格（3,8）=txtprinter.Text MsExcel.Range（“B2”）.Value=List5.List（0）MsExcel.Range（“c2”）.Value=List5.List（1）结束子项不应该是“listbox5”吗？