Private Sub WorkingWithExcel()
'Declaring variable for Excel sheet
Dim xlApp As New Microsoft.Office.Interop.Excel.ApplicationClass
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
'Set the File path
xlWorkBook = xlApp.Workbooks.Open("File Path")
xlWorkSheet = xlWorkBook.Worksheets("Sheet1$")
With xlWorkSheet
'ASSIGN VALUE TO A CELL. Here below the value is assigned to 8th Row 12th 'column
.Cells(8, 12).Value ="This is test sentence."
'Add Rows to the Excel sheet.Here it inserts the row at 10th position
.Range("A10").EntireRow.Insert()
'Delete Rows to the Excel sheet.Here it Deletes the 10th Row
.Range("A10").EntireRow.Delete()
'Below code Merges the Entire row
.Range("A" & RowNo).EntireRow.MergeCells = True
'If you want to Merge only Cells not rows then Below code does it.
'Below merges Cells from C to F of 10th ROW
.Range("C10:F10").MergeCells = True
End With
'Before Saving if you want to Protect the Excel sheet with Password then
'below code tells how to assign the password for Excel workbook
xlWorkBook.Password = "TEST"
'Save the WORKBOOK..
xlWorkBook.Save()
'Close the WorkBook
xlWorkBook.Close()
xlApp.Quit()
'Below Releases the Excel sheet from the system process.
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
End Sub
''' <summary>
''' Releases the excel from the system process
''' </summary>
''' <param name="obj">
</param>
''' <remarks></remarks>
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
Have a question about something in this article? You can receive help directly from the article author. Sign up for a free trial to get started.
Comments (1)
Author
Commented:Dear Readers
If any question or any errors please let me know so that i can correct it
Regards
Avinash Desai