[Devils0411]

Доброго времени суток. Подскажите пожалуйста, есть такой код:

Код:

Imports System
Imports System.IO
Imports System.Text

Public Class Form1

    Dim Exc, CExc, CExcs, xlCenter, Selection As Object

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Exc As Object = CreateObject("Excel.Application")

        'Открыть новую книгу Excel
        CExc = Exc.Workbooks.Add
        CExcs = CExc.Worksheets(1)
        CExcs = CExc.Worksheets(1).Activate
        'CExcs = CExc.Worksheets(2).Delete
        'CExcs = CExc.Worksheets(3).Delete
        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
        Exc.sheets(1).range("A2").value = Me.EIDText
        Exc.sheets(1).range("B2").value = Me.LFMText
        Exc.sheets(1).range("C2").value = Me.TitleText
        Exc.sheets(1).range("D2").value = Me.LoginText
        Exc.sheets(1).range("E2").value = Me.PwdText

        'Сохранить книгу и закрыть Excel
            CExc.SaveAs("C:\EmployeeList.xlsx")
            Exc.Quit()
    End Sub
End Class

Во-первых, почему не хочет заносится значения переменных Me.EIDText и т.д. в указанные ячейки? Хотя переменные заданы, при отладке данные в этих переменных есть. При отладке после выполнения Exc.sheets(1).range("A2").Text = Me.EIDText выдает сообщение: "Не задана переменная объекта или переменная блока With."
Во-вторых, где можно почитать про форматирование ячеек? Хотелось бы задать текст по центру, шрифт и.т.д.
В-третьих файл не *xlsx не сохраняется по указанному пути.
P.S. ссылку на Microsoft Office 14.0 Object Library делал... Но как ей воспользоваться - не знаю

P.S.S. С третьим вопросом разобрался.