Question

尝试使用此编码但没有运气：

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

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

我的列表框名称是listbox5。感谢您提供的任何帮助

belisarius编辑

只需添加作者评论中的文字

这是我试图用它的代码：

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

Answer 1

这是一个例子

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行。

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

1 个答案: