Imports System.Data.OleDb
Imports System.IO
Imports Excel = Microsoft.office.interop.excel
 
 Private Sub Excel2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
   e As System.EventArgs) Handles Excel2ToolStripMenuItem.Click
 
        Dim exapp As New Microsoft.Office.Interop.Excel.Application
        Dim exwb As Microsoft.Office.Interop.Excel.Workbook
        Dim exsh As Microsoft.Office.Interop.Excel.Worksheet
        Dim exrng As Microsoft.Office.Interop.Excel.Range
 
 
        Dim i As Integer, n As Integer, far As Integer
 
 
            exapp.Visible = True
 
            exwb = exapp.Workbooks.Open("C:\test1.xls")
            exsh = exwb.ActiveSheet           
 
            exsh.PageSetup.LeftHeaderPicture.Filename = _
              "C:\gev071\Logo\Rheurdt.JPG"
            exsh.PageSetup.LeftHeaderPicture.height=70.5
            exsh.PageSetup.LockAspectRatio = _
              Microsoft.Office.Core.MsoTriState.msoFalse
            exsh.PageSetup.Width = 70.5
 
            With exsh.PageSetup
                .LeftHeader = "&G"
                .CenterHeader = ""
                .RightHeader = ""
                .LeftFooter = ""
                .CenterFooter = ""
                .RightFooter = ""
                .LeftMargin = exapp.InchesToPoints(0.787401575)
                .RightMargin = exapp.InchesToPoints(0.787401575)
                .TopMargin = exapp.InchesToPoints(0.984251969)
                .BottomMargin = exapp.InchesToPoints(0.984251969)
                .HeaderMargin = exapp.InchesToPoints(0.4921259845)
                .FooterMargin = exapp.InchesToPoints(0.4921259845)
                .PrintHeadings = False
                .PrintGridlines = False
                .PrintComments = Excel.XlPrintLocation.xlPrintNoComments
                .PrintQuality = 600
                .CenterHorizontally = False
                .CenterVertically = False
                .Orientation = Excel.XlPageOrientation.xlPortrait
                .Draft = False
                .PaperSize = Excel.XlPaperSize.xlPaperA4
                .Order = Excel.XlOrder.xlDownThenOver
                .BlackAndWhite = False
                .Zoom = 100
                .PrintErrors = Excel.XlPrintErrors.xlPrintErrorsDisplayed
            End With           
 
            exrng = exsh.Range("a1", "j100")
            exrng.EntireRow.WrapText = True
 
 
            far = 0
            For n = 1 To 50
                If far = 15 Then
                    far = 0
                Else
                    far = 15
                End If
                For i = 1 To 10
                    exsh.Cells(n, i) = "Daten"
                    exsh.Cells(n, i).interior.colorindex = far
                Next
            Next
 
 
            Try
                exsh.SaveAs("C:\test1.xls")
            Catch ex As Exception
            End Try
 
    End Sub