工作薄另存为操作
Sub 另存()If = "" Then
MsgBox "请输入工程名"
Else
Path = "D:\"
ActiveWorkbook.SaveAs Filename:=Path & .Value
ActiveWindow.Close
End If
End Sub
代码指定另存目录为D盘根目录
弹出另存对话框的话，
Sub 另存()
temp = .Value
If temp = "" Then
MsgBox "请输入工程名"
Else
Path = "D:\"
filesavename = Application.GetSaveAsFilename(temp)
If filesavename <> False Then
ActiveWorkbook.SaveAs Filename:=filesavename & "xls"
End If
ActiveWindow.Close
End If
End Sub
页:
[1]