pasting text into excel

Dear Sir .. Certian reports do not support exporting or rendering its content to excel..Because most of the standardised reports support only PDF & HTML exporting.So it s better to transfer ur Data set which ur binding to ur report .U can extract every Property of the excel sheet thru VB.net coding.. Example to transfer data set values to excel Dim intColumn, intRow, intColumnValue As Integer Dim strExcelFile As String Dim strFileName As String Dim Excel As Object Excel = CreateObject("Excel.Application") With Excel .SheetsInNewWorkbook = 1 .Workbooks.Add() .Worksheets(1).Select() .Columns("A:A").ColumnWidth = 35.99 '''set ur excel sheets first column width .Columns("B:B").ColumnWidth = 45.99 .Columns("A:A").Select() .Selection.Font.Bold = True'''Sets ur column font to bold .Range("B2").Select() ''selects the second row cell in col B of ur Excel sheet .ActiveCell.FormulaR1C1 = dsLoginDetails.Tables("TblCompanyInfo").Rows(0).Item("vchCompName") ''Transfers a value from a data set to ur excel .Selection.Font.Bold = True .Selection.Font.Size = 14 .Range("A8").Select() .ActiveCell.FormulaR1C1 = "Schedule Name"''Sets a user desired value to a cell .Selection.Font.Bold = True .Selection.Font.Size = 12 'For displaying the column name in the the excel file. For intColumn = 0 To ds.Tables(0).Columns.Count - 2 .Cells(8, intColumn + 2).Value = ds.Tables(0).Columns intColumn).ColumnName.ToString Next 'For displaying the column value row-by-row in the the excel file. For intRow = 0 To ds.Tables(0).Rows.Count - 1 For intColumnValue = 0 To ds.Tables(0).Columns.Count - 2 .Cells(intRow + 10, intColumnValue + 1).Value = ds.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString Next''ie the comlete data set is transfered to excel field by field to corresponding excel cells Next strExcelFile = Application.StartupPath + "\" + file name''any name with path .ActiveWorkbook().SaveAs(strExcelFile) .ActiveWorkbook.Close() ''to open the excel sheet Excel.Workbooks.Open(Application.StartupPath + "\" + file name) ''Make Excel visible and give the user control of the application. Excel.Visible = True Excel.UserControl = True End With Use this code it will surely help u..

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

pioneerpauls21y ago
Dear Sir .. Certian reports do not support exporting or rendering its content to excel..Because most of the standardised reports support only PDF & HTML exporting.So it s better to transfer ur Data set which ur binding to ur report .U can extract every Property of the excel sheet thru VB.net coding.. Example to transfer data set values to excel Dim intColumn, intRow, intColumnValue As Integer Dim strExcelFile As String Dim strFileName As String Dim Excel As Object Excel = CreateObject("Excel.Application") With Excel .SheetsInNewWorkbook = 1 .Workbooks.Add() .Worksheets(1).Select() .Columns("A:A").ColumnWidth = 35.99 '''set ur excel sheets first column width .Columns("B:B").ColumnWidth = 45.99 .Columns("A:A").Select() .Selection.Font.Bold = True'''Sets ur column font to bold .Range("B2").Select() ''selects the second row cell in col B of ur Excel sheet .ActiveCell.FormulaR1C1 = dsLoginDetails.Tables("TblCompanyInfo").Rows(0).Item("vchCompName") ''Transfers a value from a data set to ur excel .Selection.Font.Bold = True .Selection.Font.Size = 14 .Range("A8").Select() .ActiveCell.FormulaR1C1 = "Schedule Name"''Sets a user desired value to a cell .Selection.Font.Bold = True .Selection.Font.Size = 12 'For displaying the column name in the the excel file. For intColumn = 0 To ds.Tables(0).Columns.Count - 2 .Cells(8, intColumn + 2).Value = ds.Tables(0).Columns intColumn).ColumnName.ToString Next 'For displaying the column value row-by-row in the the excel file. For intRow = 0 To ds.Tables(0).Rows.Count - 1 For intColumnValue = 0 To ds.Tables(0).Columns.Count - 2 .Cells(intRow + 10, intColumnValue + 1).Value = ds.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString Next''ie the comlete data set is transfered to excel field by field to corresponding excel cells Next strExcelFile = Application.StartupPath + "\" + file name''any name with path .ActiveWorkbook().SaveAs(strExcelFile) .ActiveWorkbook.Close() ''to open the excel sheet Excel.Workbooks.Open(Application.StartupPath + "\" + file name) ''Make Excel visible and give the user control of the application. Excel.Visible = True Excel.UserControl = True End With Use this code it will surely help u..