Private Okręt podwodny Export_Button_Click ()
Ciemnawy export_file_name
export_file_name = Application.GetSaveAsFilename (, "Przerzedzać Kartoteka Strona Internetowa (*.mht), *.mht")
Prześcieradło ("mistrz"). Kopia
ActiveWorkbook.SaveAs Filename: =export_file_name, FileFormat: =xlNormal
ActiveWindow.Close
Końcówka Okręt podwodny
|