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