VB与Excel结合：导出报表的VB代码示例

    Private Sub mF3_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles mF3.Click
        Dim rptExcel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        If rptExcel Is Nothing Then
            MessageBox.Show("无法打开Excel，请检查Excel是否可用或者是否安装好Excel", "系统提示")
            Return
        End If
        If CreateExcel1() Then

            MessageBox.Show("查询结果超出Excel最大行数或者没有资料，请重新过滤查询条件！", "出错信息")
            Return
        End If
    End Sub


 Public Function CreateExcel1() As Boolean


        Dim app As Excel.Application = New Excel.Application()
        Dim wbs As Excel.Workbooks = app.Workbooks
        Dim wb As Excel.Workbook = wbs.Add(True)
        Dim worksheet As Excel.Worksheet = wb.ActiveSheet

        worksheet.Name = ""

        worksheet.PageSetup.LeftMargin = 10
        worksheet.PageSetup.RightMargin = 10
        worksheet.PageSetup.TopMargin = 80
        worksheet.PageSetup.BottomMargin = 50
        worksheet.PageSetup.CenterHorizontally = True