求用vba导出excel工作薄中的sheet1工作表别存为.xls

拆分工作簿？
我这里有段代码好用

sub tt()
Worksheets(1).SaveAs ("d:\test.xls")
end sub
至于存储的名称要动态的话 可以考虑在某个不用的单元格存个数字 开始为0 每次运行的时候将其值递增1 代码改成已下
i=worksheets(1).cells(1,100).value
Worksheets(1).SaveAs ("d:\test" & i & ".xls")
worksheets(1).cells(1,100).value = i + 1

太简单了。