From FlexGrid to Excell

[bayasaa]

Как передать данные из FlexGrid в Excell

[keks-n]

Руками скопировать каждую ячейку...

И Excel пишется с одной буквой l.

[GB826]

Ну может у Flex'a есть метод SaveGrid (у VideoSoftового точно, правда он в csv кидает)

А так лучше руками...

[Konst_One]

CopyFromRecordset - через поиск найдешь

[YaS]

я реализовал так:

экспортируется таблица, заголовки столбцов выделены жирным, а ячейки подсвечены

библу добавь microsoft exel ?? object library

Код: Выделить всё

Function fnExpExl()

Dim bstFileName As String

Dim WBObj As New Excel.Workbook
Dim i As Integer, j As Integer
Dim s As String
bstFileName = VB.App.Path & "\data_" & _
    VBA.Format$(Date, "dd_mm_yy") & _
    ".xls"
    Set WBObj = XLObj.Workbooks.Add
    With WBObj.ActiveSheet
' Вывод заголовков
    For i = 0 To MSFlexGrid1.Cols - 1
        Cells(1, i + 1).Font.Bold = True                      ' Жирным
        Cells(1, i + 1).Interior.ColorIndex = 17          ' Цвет ячейки
        Cells(1, i + 1).HorizontalAlignment = xlCenter ' По центру
        Cells(1, i + 1).ColumnWidth = 17.71               ' Ширина
        Cells(1, i + 1).Value = CStr(MSFlexGrid1.TextMatrix(0, i)) ' Здесь значения в строку преобразовываются
    Next
' Вывод остального
    For i = 0 To MSFlexGrid1.Cols - 1
            For j = 0 To MSFlexGrid1.Rows - 1
                Cells(1, i + 1).ColumnWidth = 12.14 ' -  Выставляется ширина столбца
                Cells(j + 1, i + 1).Value = CDbl(MSFlexGrid1.TextMatrix(j, i)) ' У меня числа были с фиг знает сколькими нулями и Эксель выдавал всяк фигню, поэтому в double
            Next
    Next
    End With
    XLObj.DisplayAlerts = False
    WBObj.SaveAs bstFileName ' Сохранение файла
    XLObj.Quit


MsgBox "Файл сохранен в " & bstFileName
End Function


собирал по форуму кто что писал
каждый по своему делает

а вообще... поиск рулит!

[GB826]

YaS А если в обычных ячейках строки (или даты, например), а не только в заголовках. И автосайзинг по колонкам :о)) Я не придираюсь, просто так хороший функций получицца!

Правда у меня такая уже есть :о) гыгыгы. минифлуд.



Так что лучше через CreateObject, и с обработкой ошибок!

[bayasaa]

Всем спасибо

[YaS]

А если в обычных ячейках строки (или даты, например), а не только в заголовках.

разница-то какая что экспортировать. можно, конечно, принудительно установить тот или иной формат в ячейке экселя

Так что лучше через CreateObject, и с обработкой ошибок!

может и лучше. напиши как, мож в моем случае твой вариант будет более приемлем.

а к придираниям отношусь ровно: не нравится - не смотри

[GB826]

Код: Выделить всё

.Cells(j + 1, i + 1).Value = CDbl(MSFlexGrid1.TextMatrix(j, i))

разница-то какая что экспортировать. можно, конечно, принудительно установить тот или иной формат в ячейке экселя

CDbl не пугает?

[YaS]

CDbl не пугает?

Я ж там в коде в комментарии подписал. Что иначе в екселе вместо, например, числа 1,64646474844 было типа такого 232 232 454 565 - фигня, не так ли? Может можно и в single - не пробовал.