VBA - mygtukas dokumento failo pavadinimo įrašymui į langelį

Problema

Turiu sukurti mygtuką, kuris išsaugo modifikuotą dokumentą kaip numerį tam tikroje ląstelėje (pvz., A6).

Sprendimas

 Privatus Sub CommandButton1_Click () '.xlsm arba xls, priklausomai nuo to, ar norite išsaugoti makrokomandas. „ActiveWorkbook.SaveAs“ failo pavadinimas: = "c: archyvas" ir ląstelės (1, 6) & ".xlsm" Ląstelės (1, 5) = "Archyvuota" Jei ląstelės (1, 5) = "Archyvuota" Tada CommandButton1.Visible = False End Jei baigsite 

Dėl šio patarimo f894009.