Imports System.Reflection

Public Class ExcelExpress



    Dim UID = "Excel.Application"
    Dim oExcel As Object

    Dim WorkBooks, WorkBook, WorkSheets, WorkSheet, Range, Interior

    '//КОНСТРУКТОР КЛАССА
    Public Sub New()
        oExcel = Activator.CreateInstance(Type.GetTypeFromProgID(UID))
    End Sub




    ' //ОТКРЫТЬ ДОКУМЕНТ
    Public Function OpenDocument(name As String)

        WorkBooks = oExcel.GetType().InvokeMember("Workbooks", BindingFlags.GetProperty, Nothing, oExcel, Nothing)
        WorkBook = WorkBooks.GetType().InvokeMember("Open", BindingFlags.InvokeMethod, Nothing, WorkBooks, New Object() {name, True})
        WorkSheets = WorkBook.GetType().InvokeMember("Worksheets", BindingFlags.GetProperty, Nothing, WorkBook, Nothing)
        WorkSheet = WorkSheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, Nothing, WorkSheets, New Object() {1})
        '' // Range = WorkSheet.GetType().InvokeMember("Range",BindingFlags.GetProperty,null,WorkSheet,new object[1] { "A1" });
    End Function


    ' // НОВЫЙ ДОКУМЕНТ
    Public Function NewDocument()

        WorkBooks = oExcel.GetType().InvokeMember("Workbooks", BindingFlags.GetProperty, Nothing, oExcel, Nothing)
        WorkBook = WorkBooks.GetType().InvokeMember("Add", BindingFlags.InvokeMethod, Nothing, WorkBooks, Nothing)
        WorkSheets = WorkBook.GetType().InvokeMember("Worksheets", BindingFlags.GetProperty, Nothing, WorkBook, Nothing)
        WorkSheet = WorkSheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, Nothing, WorkSheets, New Object() {1})
        Range = WorkSheet.GetType().InvokeMember("Range", BindingFlags.GetProperty, Nothing, WorkSheet, New Object() {"A1"})
    End Function



    '// ЗАПИСАТЬ ЗНАЧЕНИЕ В ЯЧЕЙКУ
    Public Sub SetValue(range As String, value As String)

        Dim Rrange = WorkSheet.GetType().InvokeMember("Range", BindingFlags.GetProperty, Nothing, WorkSheet, New Object() {range})
        Rrange.GetType().InvokeMember("Value", BindingFlags.SetProperty, Nothing, Rrange, New Object() {value})
    End Sub


    Public WriteOnly Property Visible() As Boolean

        Set(ByVal value As Boolean)

            If False = value Then

                oExcel.GetType().InvokeMember("Visible", BindingFlags.SetProperty, Nothing, oExcel, New Object() {False})

            Else
                oExcel.GetType().InvokeMember("Visible", BindingFlags.SetProperty, Nothing, oExcel, New Object() {True})

            End If
        End Set
    End Property

      



End Class

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim currentEx As New ExcelExpress

        currentEx.NewDocument()

        currentEx.SetValue("A1", "erwerwerw")


        currentEx.Visible = True


    End Sub
End Class