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 |