Заполнить лист Excel с элементами из списка?

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-й столбец (с Range (1,2)) с n-ю строками.