Считывание(запись) Excel в(из) массив структур - Visual Basic .NET - Ответ 13816595

Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        'Открыть новую книгу Excel
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        'Добавить данные в ячейки первого листа новой книги
        oSheet = oBook.Worksheets(1)
        oSheet.Visible = True 'Это свойство таблицы, если True - то она будет видна, если False 
        Dim D As Object = CreateObject("Excel.Application") 'Объявляем переменную D как объект Excel.
        Dim D1 As String = InputBox("путь к файлу:", , put + "note1.xlsx")
        If IO.File.Exists(D1) Then MsgBox("Файл существует")
 
        D.Workbooks.open(D1) 'Открываем книгу по указанному адресу для чтения
 
        D.Sheets(4).Activate() 'Активируем первый лист в книге (Если необходимо)
 
        For i = 1 To 160
            For j = 15 To 26
record_date=D.Cells(i, j - 14).value()
                D.Cells(i, j - 14).value() = Convert.ToString(record_date)
            Next j
        Next i
        D.Quit() ' Выход