Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: данные из листа Excel в ListView записать Добавлено: 21.12.03 11:56  

Автор вопроса:  starmen

как можно данные из листа Excel  в ListView записать (массив)

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Ворон



ICQ: 178095693 

Вопросов: 6
Ответов: 24
  Профиль | | #1 Добавлено: 22.12.03 21:54

1. Подключи библиотеку типов Экселя в Tools/References. (Microsoft Excel 9.0 Object Library)

2. Создай связывание:

Sub TestExcel()

Dim objXL as Excel.Application

Set objXL = GetObject(C:\ExcelFile.xls)

End Sub

3. Считывай данные и записывай их в ListView, и в массив (если надо):

Sub DataRead()

Dim arrMassiv() as String

Do While Len(objXL.Worksheets("List1").Cells(i, 1).Value) > 0

i = i + 1

ReDim Preserve arrMassiv(i)

arrMassiv(i) = objXL.Worksheets("List1").Cells(i, 1).Value

LV.AddItem , , arrMassiv(i)

Loop

End Sub

Проверь написание, т.к. писал сразу в форум а в бейсике не проверял.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам