pasting text into excel

Question

Hi I was wondering if Visual Basic .NET can write text to a specific Excel cell. What I wanted to do is print a report with a bunch of values from a database and was wondering if vb.net can incert those values into a specific cell in excel. Thank you

pioneerpauls · Answer

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..