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