excel文件自动生成为多个文件

来源：百度知道 编辑：UC知道 时间：2024/06/21 11:59:47
有一张汇总表。里面有很多城市然后想把一个城市自动产生一个excel文件，怎么样操作才行。

'基本代码如下,产生10个excel文件，自动保存在d:\ ，文件名为test1.xls……test10.xls

sub CreateExcelFile()

dim wFile As Workbook
dim i as integer
for i=1 to 10

Set wFile = Workbooks.Add
wFile.Activate
ActiveWorkbook.SaveAs "d:\" & "test" & format(i) & ".xls"
Windows("test" & format(i) & ".xls").Close
next i

set wFile=nothing

end sub

用Excel的VBA编程实现，具体程序在这里不写了，但在这本书里有：

《Excel VBA技巧应用》 赵志东 人民邮电出版社 第69页（第45例）

用VBA，能发附件吗？

把表发上来一下