Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Валерий (Cucumber) -

Visual Basic .NET - Microsoft Excel

Все примеры / Microsoft Office / Microsoft Excel

Вывод данных в Эксел. Форматирование.

Автор: Валерий (Cucumber) | добавлено: 06.03.2010, 14:11 | просмотров: 3873 (2+) | комментариев: 0 | рейтинг: *x1
Еще небольшой пример работы с экселем.
Создаем текстовый файл из коллекции fTab, кидаем в эксел и форматируем заголовки.

Код

Dim tFile As String
    tFile = ""
    tFile = Path.GetTempFileName()
    Dim myFileInfo As New FileInfo(tFile)
    myFileInfo.Attributes = FileAttributes.Temporary

    Using Wr As StreamWriter = New StreamWriter(tFile, False, Encoding.GetEncoding(1251))
      Wr.WriteLine("№ п.п." & vbTab & _
             "ФИО." & vbTab & _
             "Дата рожд." & vbTab & _
             "Место рождения" & vbTab & _
             "Пол" & vbTab & _
             "Примечание.")
      For i = 1 To fTab.GetUpperBound(0)
        Wr.WriteLine(i & vbTab & _
         fTab(i).FIO & vbTab & _
         fTab(i).DatR & vbTab & _
         fTab(i).Mest & vbTab & _
         fTab(i).Pol & vbTab & _
         fTab(i).Prim)
        My.Application.DoEvents()
      Next
      Wr.Close()
    End Using
    Dim oExcel As New Microsoft.Office.Interop.Excel.Application
    Dim oBook As Microsoft.Office.Interop.Excel.Workbook
    Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
    oExcel = New Microsoft.Office.Interop.Excel.Application
    oBook = oExcel.Workbooks.Open(tFile)
    oSheet = oBook.Sheets(1)
    oExcel.Visible = True
    oSheet.Rows("1:1").HorizontalAlignment = -4108
    oSheet.Rows("1:1").VerticalAlignment = -4108
    oSheet.Rows("1:1").Font.FontStyle = "полужирный"
    oSheet.Columns("A:A").HorizontalAlignment = -4108
    oSheet.Columns("A:A").VerticalAlignment = -4108
    oSheet.Columns("B:B").HorizontalAlignment = -4108
    oSheet.Columns("B:B").VerticalAlignment = -4108
    oSheet.Columns("C:C").HorizontalAlignment = -4108
    oSheet.Columns("C:C").VerticalAlignment = -4108
    oSheet.Columns("F:F").HorizontalAlignment = -4108
    oSheet.Columns("F:F").VerticalAlignment = -4108
    oSheet.Columns("C:C").Interior.ColorIndex = 35
    oSheet.Columns("E:E").Interior.ColorIndex = 35
    oSheet.Cells.EntireColumn.AutoFit()
    oSheet.Range("A2").Select()
    oExcel.ActiveWindow.FreezePanes = True
End Sub
Об авторе

Валерий (Cucumber)

Нет информации об авторе...

См. также:
Профиль автора
Валерий (Cucumber)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики