Экспортировать данные из MSHFlexGrid в Excel - VB
Формулировка задачи:
Люди, помогите пожалуйста!!! Пишу программу на VB 6.0. Осталось совсем немного и вот загвоздка.
1) Нужно экспортировать данные из MSHFlexGrid в Excel при нажатии на кнопку, так чтобы каждое значение в таблице MSHFlexGrid было в отдельной ячейке в Excel. Т.е. получилась такая же структура, таблица.
2) И как можно упорядочить файлы в FileListBox в порядке их создания.
Вот ссылка на шаблон программы. Все лишнее убрал. Это форма для визуального представления, что есть на ней есть и как должно работать. http://ifolder.ru/8037872
Помогите, люди добрые)) Очень срочно надо.
Решение задачи: «Экспортировать данные из MSHFlexGrid в Excel»
textual
Листинг программы
Private Sub Command1_Click() Const filePath As String = "C:\" 'здесь путь с папке в которой содержатся файлы из ListBox-а Dim fileCreated() As Date, i As Integer, j As Integer, buff For i = 0 To List1.ListCount - 1 ReDim Preserve fileCreated(i) fileCreated(i) = FileDateTime(filePath & List1.List(i)) Next i For i = 0 To List1.ListCount - 1 For j = i To List1.ListCount - 1 If fileCreated(i) > fileCreated(j) Then buff = fileCreated(i) fileCreated(i) = fileCreated(j) fileCreated(j) = buff buff = List1.List(i) List1.List(i) = List1.List(j) List1.List(j) = buff End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д