Работа с excel: Открытие, чтение, запись, сохранение книги

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Exc As Object
        Exc = CreateObject("Excel.Application")
        Exc.Workbooks.Open("C:\1.xls").Activate()
        Exc.Cells(1, 1) = "ПРИВЕТ!"
        Exc.Rows(7).Insert(Shift:=-4121)
        Exc.ActiveWorkbook.Save()
        Exc.ActiveWorkbook.Close()
        Exc.Quit()
        Exc = Nothing
    End Sub
End Class

Dim _excel as new microsoft.office.interop.excel.application
Dim _workbook as microsoft.office.interop.excel.workbook
_excel.visible=true'отображаем пустой эксель на экране
_workbook=excel.worcbooks.add()'cjplftv новую книгу на основе шаблона по-умолчанию. Если нужен конкретный шаблон, то в скобках указать полный путь к файлу, который будет шаблоном

_workbook.sheets(2).activate

Dim _excel as object
Dim _workbook as object

_excel = getobject("Excel.Application")

_excel = createobject("Excel.Application")

Import ...

Dim книга As Workbook, book As _Workbook
Dim лст As Worksheet, lst As _Worksheet

xls.ActiveWorkbook.Close() :  xls.Quit()

xls.Dispose

Public Class Form1
    Dim appExcel As Object
    Dim I As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        appExcel = CreateObject("Excel.Application")
        appExcel.Workbooks.Open("C:\1.xls")
        appExcel.Visible = False
        With appExcel.ActiveSheet
            .Range("C" & I + 1).Value = "QWERTY" & I
        End With
        appExcel.Workbooks(1).Close(True)
        appExcel.Quit()
        I += 1
    End Sub
End Class

Imports System.Data
Imports System.IO
Imports Microsoft.Office.Interop.Excel
Public ind, x As Integer
    Dim xls As Application
    Dim книга As Workbook
    Dim лст As _Worksheet, c, b As Integer 
    Dim rng As Range
    Public table As Data.DataTable

        Dim _Excel As New Application 'Приложение Excel
        Dim Книга As Workbook = _Excel.Workbooks.Open("C:\Users\Stanislav\Desktop\test.xlsx", [ReadOnly]:=False) 'Открываем книгу
        Dim Лист As Worksheet = CType(Книга.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) 'Первый лист книги
        Try
            _Excel.Range("B1").Select()
        With _Excel.Application.FindFormat.Font
            .Name = "Calibri"
            .FontStyle = "обычный"
            .Size = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
 
            .Color = -1003520
            .TintAndShade = 0
        End With
        _Excel.Cells.Find(What:="", After:=_Excel.ActiveCell, LookIn:=_Excel.xlFormulas, LookAt:=
        _Excel.xlPart, SearchOrder:=_Excel.xlByColumns, SearchDirection:=_Excel.xlNext, MatchCase:=
        False, SearchFormat:=True).Activate()
        _Excel.ActiveCell.Value = "Привет"

Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim xlWb As Excel.Workbook
        Dim xlsheet As Excel.Worksheet
        Dim lRow As Long = 0
 
        With xlApp
            .Visible = True
 
            '~~> Open workbook
            xlWb = .Workbooks.Open("c:\Sample.xlsx")
 
            '~~> Set it to the relevant sheet
            xlsheet = xlWb.Sheets("Sheet1")
 
            With xlsheet
                '~~> Check if there is any data in the sheet
                If xlApp.WorksheetFunction.CountA(.Cells) <> 0 Then
                    lRow = .Cells.Find(What:="*", _
                                  After:=.Range("A1"), _
                                  LookAt:=Excel.XlLookAt.xlPart, _
                                  LookIn:=Excel.XlFindLookIn.xlFormulas, _
                                  SearchOrder:=Excel.XlSearchOrder.xlByRows, _
                                  SearchDirection:=Excel.XlSearchDirection.xlPrevious, _
                                  MatchCase:=False).Row
                Else
                    lRow = 1
                End If
            End With
 
            MessageBox.Show("The last row in Sheet1 which has data is " & lRow)
 
            '~~> Close workbook and quit Excel
            xlWb.Close(False)
            xlApp.Quit()
 
            '~~> Clean Up
            releaseObject(xlsheet)
            releaseObject(xlWb)
            releaseObject(xlApp)
 
        End With
    End Sub
 
    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
End Class

'~~> Clean Up
            releaseObject(xlsheet)
            releaseObject(xlWb)
            releaseObject(xlApp)
 
        End With
    End Sub
 
    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

xlApp.Quit()
xlApp=Nothing