Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница:

 

  Вопрос: Экспорт в Excel из DataGrid Добавлено: 23.11.13 16:33  

Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
Народ помогите, что то не пойму я почему экспорт в Excel из DataGrid переносится тольк видимая часть грида, хотя грид и прокручивается и листается в низ
Private Sub Command2_Click()
Dim Ex As Object
Dim r, c, j
c = TDBGrid1.Columns.Count
Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open App.Path & "\x.xls"
Ex.Visible = True
 
With Ex.Sheets(1)

        r = 0
        Do
            DoEvents
            TDBGrid1.Row = r
                For j = 0 To c - 1
                 .Cells(r + 1, j + 1) = TDBGrid1.Columns(j)
                Next j
            r = r + 1
        Loop While TDBGrid1.Columns(1) <> Empty
End With
 
End Sub

Ответить

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

Нет ответов

Страница:

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





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