使用列表框中的項目填充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表格？

回答

相關問題