在D盘根目录下新建一个名为1.xls的文件,并且打开它,这样的命令应该怎么写

jiejie33

Sub xinjian()
Dim NewWb As Workbook
Set NewWb = Workbooks.Add
NewWb.SaveAs Filename:="D:" & "\" & "1.XLS"
End Sub