[Devils0411]

Теперь выдает следующую ошибку: Член группы не найден. (Исключение из HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND)) в данной части кода Exc.sheets(1).range("A" & i).value = Me.EIDText
Сам код:

Код:

Imports System
Imports System.IO
Imports System.Text

Public Class Form1

    Dim CExc, CExcs, xlCenter As Object
    Dim Exc As Object = CreateObject("Excel.Application")

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'Открыть новую книгу Excel
        CExc = Exc.Workbooks.Add(1)
        CExcs = CExc.Worksheets(1).Activate
        Exc.visible = True 'Видимость книги Эксель - False - Невидима и выполняется все в срытном режиме

        'Добавить данные в ячейки первого листа новой книги
        Exc.sheets(1).range("A1").value = "Таб. №"
        Exc.sheets(1).range("B1").value = "Ф.И.О."
        Exc.sheets(1).range("C1").value = "Должность"
        Exc.sheets(1).range("D1").value = "Логин"
        Exc.sheets(1).range("E1").value = "Пароль"
        Exc.sheets(1).range("A1:E1").Font.Bold = True
        Exc.sheets(1).range("A1:E1").Font.Size = 11
        Exc.sheets(1).range("A1:E1").Interior.ColorIndex = 6
        Exc.sheets(1).range("A1:E1").HorizontalAlignment = xlCenter
        Exc.sheets(1).range("A1:E1").VerticalAlignment = xlCenter
        Exc.sheets(1).range("A1:E1").WrapText = False
        Exc.sheets(1).range("A1:E1").Orientation = 0
        Exc.sheets(1).range("A1:E1").MergeCells = False

    End Sub

    Private Sub Commit_Click(sender As System.Object, e As System.EventArgs) Handles Commit.Click

        For i = 2 To 10
            Exc.sheets(1).range("A" & i).value = Me.EIDText
            Exc.sheets(1).range("B" & i).value = Me.LFMText
            Exc.sheets(1).range("C" & i).value = Me.TitleText
            Exc.sheets(1).range("D" & i).value = Me.LoginText
            Exc.sheets(1).range("E" & i).value = Me.PwdText
        Next i

        'Сохранить книгу и закрыть Excel
        If Not File.Exists("C:\Users\dmitry.palega\Desktop\EmployeeList.xlsx") Then
            CExc.SaveAs("C:\Users\dmitry.palega\Desktop\EmployeeList.xlsx")
            Exc.Quit()
        Else
            My.Computer.FileSystem.DeleteFile("C:\Users\dmitry.palega\Desktop\EmployeeList.xlsx")
            CExc.SaveAs("C:\Users\dmitry.palega\Desktop\EmployeeList.xlsx")
            Exc.Quit()
        End If
    End Sub
End Class

Devils0411, покажите Ваш проект VB.Net. Чтобы можно было рассуждать предметно. »

Вы имеете ввиду окно, где вводятся данные7