Question

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

求用vba导出excel工作薄中的sheet1工作表，别存为.xls格试。最好有别存为对话框！！求高手帮助

Answer 1

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

Answer 2

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

Answer 3

太简单了。