Question

Excel中Vb编程问题

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

Answer 1

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

Answer 2

Private Sub Command1_Click()
Open "D:\1.xls" For Append As #1 '这里是新建
Close #1
Shell ("D:\1.xls") '这里是打开
End Sub