How to extract the records from datagrid to excel

[edgara]

I have developed an application for extracting records from datagrid to excel. Unfortunately, when i run this application, no records were extracted. If anybody knows what is lacking in my script then please inform me. Below is my script. Thanks a lot!!!

Private Sub cmDExtract_Click()
 
    On Error GoTo ErrorLine
    Screen.MousePointer = vbHourglass
    Dim xl As Object
    Dim wb As Object
    Dim ws As Object
    Dim i  As Long
    Dim X  As Long
 
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Add()
    Set ws = xl.ActiveWindow.ActiveSheet
    ws.Columns().ColumnWidth = 10
 
    For X = 0 To DataGrid1.Row - 1
        DataGrid1.Row = X
        DataGrid1.Col = 1
            For i = 1 To DataGrid1.Col
                DataGrid1.Col = i
                If DataGrid1.Text <> "" Then
                    ws.Cells(X, i) = DataGrid1.Text
                    ws.Cells(X, i).HorizontalAlignment = -4131
 
                End If
            Next
    Next
    xl.Visible = True
ErrorLine:
    Screen.MousePointer = vbDefault
 
End Sub

[Dököll]

I have developed an application for extracting records from datagrid to excel. Unfortunately, when i run this application, no records were extracted. If anybody knows what is lacking in my script then please inform me. Below is my script. Thanks a lot!!!

 
Private Sub cmDExtract_Click()
 
    On Error GoTo ErrorLine
    Screen.MousePointer = vbHourglass
    Dim xl As Object
    Dim wb As Object
    Dim ws As Object
    Dim i  As Long
    Dim X  As Long
 
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Add()
    Set ws = xl.ActiveWindow.ActiveSheet
    ws.Columns().ColumnWidth = 10
 
    For X = 0 To DataGrid1.Row - 1
        DataGrid1.Row = X
        DataGrid1.Col = 1
            For i = 1 To DataGrid1.Col
                DataGrid1.Col = i
                If DataGrid1.Text <> "" Then
                    ws.Cells(X, i) = DataGrid1.Text
                    ws.Cells(X, i).HorizontalAlignment = -4131
 
                End If
            Next
    Next
    xl.Visible = True
ErrorLine:
    Screen.MousePointer = vbDefault
 
 
 
End Sub

Hey there, edgara!

Good of you to add your code in. It looks like you have not yet attempted to create a .xls file. If you have previously searched here and could not find anything, set your eyes on this:

http://www.developerfusion.co.uk/show/6072/

This should get you started. If not, please stay tuned. I cannot run anything from here just yet. Please stay tuned nonetheless, helpful members will likely see your information.

In a bit!

Dököll