Экспортировать данные из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.615 из 5