How to select rows randomly in MSFLexGrid and export them to excel?

[squrel]

Hello All,

I want to select few rows randomly in the MSFlexGrid and export them to excel using a button which i had made..
already i can send all the record in the grid using my export button bt wht if i want to select few rows randomly and not all and send them to excel sheet?
i knw selectionmode is thr in MSFlexGrid and i can set tht to flexselectionbyrow bt tht doesnt happen for random record...
does anyone can help me in that?
thank u

[Guido Geurs]

Is this a MSflexgrid in Excel?
Is it possible to attach your program in Bytes so we can work on the same structure and data?
If the data is confidential, please replace it with fictive but representative data.(not to much! ,+- 20 records just to see the structure)

[squrel]

Thank u very much for the reply and helping me here... this is my Grid and the next is my excel button..
once i press on the excel button i can export the whole grid to the excel sheet bt what if i dont want to export the whole data to excel and i want few rows in tht.. for eg. row1,row3 and row7..
how to do tht?
thank u very much in advance

 
Private Function LoadAddressGridData(FinYrCode As Integer)
 
Dim sqlQuery As String
sqlQuery = "select PoNo,AmendNo,Yy,Vendornm,convert(VarChar(20), PoDate, 6) As PoDate,UnitNm, adr1 as Address,adrcity as City,statenm as State,"
sqlQuery = sqlQuery & "adrpin as Pin,adrcontact as Contact,adrphone as Phone from msaddress adr,"
sqlQuery = sqlQuery & "txpohdr hdr, msunits unit,msstates state,"
sqlQuery = sqlQuery & "msvendors ven where adrof='U'and adrforid=hdr.unitid"
sqlQuery = sqlQuery & " and adrid = hdr.shiptoadrid And hdr.vendorid = Ven.vendorid"
sqlQuery = sqlQuery & " And hdr.unitId = unit.unitId And State.stateid = adrstate"
sqlQuery = sqlQuery & " And hdr.yy = '" & cmbYear.Text & "' And hdr.Ind = 1"
sqlQuery = sqlQuery & " and vendornm='" & cmbVendorNm.Text & "'"
 
 
On Error GoTo ChkErr
    Adodc1.ConnectionString = pStrConnectionString
    Adodc1.RecordSource = sqlQuery
    Adodc1.Refresh
    MSHFlexGrid1.ColWidth(1) = 600
    MSHFlexGrid1.ColWidth(2) = 800
    MSHFlexGrid1.ColWidth(3) = 600
    MSHFlexGrid1.ColWidth(4) = 2000
    MSHFlexGrid1.ColWidth(5) = 1000
    MSHFlexGrid1.ColWidth(6) = 2000
    MSHFlexGrid1.ColWidth(7) = 2500
    MSHFlexGrid1.ColWidth(8) = 1000
    MSHFlexGrid1.ColWidth(9) = 1500
    MSHFlexGrid1.ColWidth(10) = 1500
    MSHFlexGrid1.ColWidth(11) = 1500
    MSHFlexGrid1.ColWidth(11) = 1500
    MSHFlexGrid1.Refresh
    sortedBy = 1
 
Exit Function
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
           Call ErrHand("frmVendorWiseOrders", "LoadAddressGridData")
    'Resume Next
End If
End Function
 
 

My excel code:

 
Private Sub cmdExport_Click()
Dim q As Long
Dim p As Long
Dim newCell As String
Dim xl As Excel.Application
If MSHFlexGrid1.Text <> "" Then
Set xl = CreateObject("excel.application")
    xl.Workbooks.Open (App.Path & "\Book1")
    DoEvents
    xl.Visible = True
 
For p = 0 To MSHFlexGrid1.Rows - 1
    For q = 0 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.Col = q
        MSHFlexGrid1.Row = p
        newCell = Chr(q + 65) & p + 1
        xl.Worksheets("Sheet1").Range(newCell).Value = MSHFlexGrid1.Text
    Next
Next
End If
End Sub
 
 

[Guido Geurs]

Attached is an example how to randomize some rows in an MSflexgrid in VB6.
I'm working on an example in VBA for Excel 2003.

[Guido Geurs]

Attached is an example in Excel.

[squrel]

Thank u very much for ur help.. i got it..