1: 2: 3: 4: 5: 6: 7:
Private SubExport_Button_Click () Schemerige export_file_name export_file_name = Application.GetSaveAsFilename (, „Enige Web-pagina Van het Dossier (*.mht), *.mht“) Bladen („meester“). Exemplaar ActiveWorkbook.SaveAs Filename: =export_file_name, FileFormat: =xlNormal ActiveWindow.Close Sub van het eind