如何用代码,生成以单元格A1命名的excel文件,并自动存放到当前目录
如题

[解决办法]
Dim sPath As String
Dim app As New Excel.Application
Dim Workbook As Excel.Workbook

Set Workbook = app.Workbooks.Add
'这时是获得当前Excel的路径
sPath = ThisWorkbook.Path
Workbook.SaveAs sPath + "\aba.xls "
Workbook.Close
Set Workbook = Nothing
Set app = Nothing