| Dim sfd As New SaveFileDialog |
| Dim exporter As ExportToExcelML = New ExportToExcelML(Me.gv_urzadzenia) |
| sfd.DefaultExt = ".xls" |
| sfd.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*" |
| If sfd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then |
| Try |
| exporter.SheetName = "urzadzenia" |
| exporter.SheetMaxRows = ExcelMaxRows._1048576 |
| exporter.ExportVisualSettings = True |
| exporter.RunExport(sfd.FileName) |
| MsgBox(lng.zwroc_napis_z_nazwy_elementu("usr_planowanie_zostalo_poprawnie_wyeksportowane"), MsgBoxStyle.Information, lng.zwroc_napis_z_nazwy_elementu("okno")) |
| Catch ex As Exception |
| MsgBox(lng.zwroc_napis_z_nazwy_elementu("usr_planowanie_niezostalo_wyeksportowane"), MsgBoxStyle.Critical, lng.zwroc_napis_z_nazwy_elementu("okno")) |
| End Try |
| End If |