Автор:
Валерий (Cucumber) | добавлено: 06.03.2010, 14:11 | просмотров: 4300 (1+) | комментариев:
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