打开saveas对话框并从特定单元格输入文件名，而excel doc强制文件类型为xlsm

Question

我正在寻找正确的VB代码来打开saveas对话框，并从excel doc中的特定单元格“A1”输入文件名，强制文件类型为xlsm