Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.83
prog13
Ефрейтор
176 / 147 / 6
Регистрация: 20.07.2009
Сообщений: 226
#1

Экспорт ListView в Excel - VB

24.11.2010, 17:35. Просмотров 1459. Ответов 0
Метки нет (Все метки)

При роботе с собственными разработками на VB с базой на MSSQL появилась потребность формирование отчетов не только на мониторе (Grid-ы и List-ы) но и бумаге. То есть, мы имеем формочку на ней ListView, некоторые контролы для указания каких диапазонов/условий ну и конечно же кнопочка "Выбрать". При нажатии "Выбрать" гриб или лист заполняется некоторой инфой.

Уважаемые форумчане, вашему вниманию представляю исходный код, который производит Експорт ListView в Excel.
На кнопочку на форме "Експорт в Excel" цепляем

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub cmdExToExcel_Click()
Dim myXL As Excel.Application, _
    myWB As Excel.Workbook, _
    myWS As Excel.Worksheet
    
Dim i As Long 'перебор строк в ListView
Dim Y As Integer 'перебор колонок в ListView. У меня их 3
Dim z As Long ' перебор строк в Excel
 
Set myXL = New Excel.Application
Set myWB = myXL.Workbooks.Add
Set myWS = myWB.Worksheets(1)
z = 2
myXL.Visible = True
 
For i = 1 To Me.ListView1.ListItems.Count
    For Y = 1 To 3
        myWS.Cells(1, Y + 1) = ListView1.ColumnHeaders(Y) ' пишем наименование колонок
        myWS.Cells(z, 1) = ListView1.ListItems(i).Index ' пишем нумерацию, используем индекс 
        myWS.Cells(z, 2) = ListView1.ListItems(i) ' пишем первую ячейку, остальные под-ячейки
        myWS.Cells(z, Y + 2) = ListView1.ListItems(i).SubItems(Y) ' пишем под-ячейки строки
    Next Y
z = z + 1
Next i
 
Set myXL = Nothing
Set myWB = Nothing
Set myWS = Nothing
End Sub
Принимаются пожелания по оптимизации кода и прочее.
Ну и пишем соображения по организации более лучших, изящный, быстродейственных способах формировать отчеты.(описываем технологию, коды, интеграция этого на других компах)
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2010, 17:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Экспорт ListView в Excel (VB):

Макрос. Экспорт в Excel
Здравствуйте, помогите пожалуйста. Пишу макрос, чтобы в программе QlikView...

Экспорт из DataGrid в Excel
Подскажите пожалуйста, как можно организовать автоматический вывод информации...

Экспорт из формы Access в Excel
Здравствуйте.Нужна помощь.Не могу разобраться.В этом коде ошибка 429(КОд для...

Экспорт данных из Access в Excel через VB 6.0
Есть программа на vb 6.0 c БД access, нужно передать данные в excel шаблон...

Как делается экспорт данных в Excel?
Экспорт данных в Excel... как это делается???

Как произвести экспорт данных из базы Access в Excel
Есть база данных access. Мне необходимо произвести экспорт всех или выбранных...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2010, 17:35
Привет! Вот еще темы с решениями:

Как програмно из VB сделать экспорт из таблицы Access в Excel
Пример, имеется база данных Data1. связано с таблицей базы данных Access и ее...

Экспорт из txt формата в ячейки Excel, с использованием String Grid
Привет всем) такая проблема( нужно написать в Visual Basic программу которая...

Какие Excel библиотеки необходимы для создания CreateObject('Excel.Application') ?
проблема в том что клиент не хочет пользоваться MS Excel. существуют ли...

Приложение для работы с Excel которое не зависит от версии Excel
Как сделать приложение для работы с Excel которое не зависит от версии Excel ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru