- Код: Выделить всё
Dim eLb As Object
eApp = CreateObject("Excel.Application")
eApp.Visible = True
eWb = eApp.Workbooks.Open("c:\list.xls")
eSh = eWb.Sheets("Лист1")
eLb = eWb.Worksheets("Лист1").listbox1
eLb.additem "KJKJK"
a = eLb.ListCount
Но при этом данные в листбоксе не отображаются, хотя ListCount значение показывает. И если книга сохраняется, потом при открытии эти данные на момент видны