Excel宏将“另存为”设置为设置的驱动器位置为.xlsm

Question

我正在尝试编写一个宏来将excel文件保存在定义的位置，使用单元格中的值作为格式为.xlsm的标题，它似乎可以工作，但实际上并不保存文件？我不确定我做错了什么？这是宏：

Sub Savefileas()
ThisFile = Range("B4").Value
Dim varResult As Variant

varResult = Application.GetSaveAsFilename(FileFilter:= _
"Macro Enabled Workbook" & "(*.xlsm), *xlsm", Title:=Range("B4").Value &".xlsm", _
InitialFileName:="C:\Work\" & ThisFile & ".xlsm")

End Sub

感谢adavce

Answer 1

试一试。还添加了错误捕获。

SharedPreferences prefs = getSharedPreferences(MY_PREFS_NAME, MODE_PRIVATE); 
String restoredText = prefs.getString("text", null);
if (restoredText != null) {
  String name = prefs.getString("name", "No name defined");//"No name defined" is the default value.
  int idName = prefs.getInt("idName", 0); //0 is the default value.
}