想实现批量生成excel文件的功能

再见昨天

各位大神，想实现一个批处理功能，要求如下：生成多个文件，文件名 和site 的名称一致；同时一个文件中只保留前两列和 site列对应的内容。
大概有一千列数据，需要生成一千个excel在同一个文件夹下。

再见昨天

效果见附件

liulang0808

再见昨天 发表于 2019-10-6 01:40
效果见附件

楼主能模拟下生成结果吗？
附件内容看着很乱啊。
从哪里能获得这样的结果

liulang0808

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set Sh = Sheets(1)
   
5.     r = Sh.UsedRange.Rows.Count
   
6.     Sheets.Add after:=Sheets(1)
   
7.     Sheets(1).Columns("a:b").Copy Sheets(2).[a1]
   
8.     For j = 3 To Sh.Cells(1, Columns.Count).End(xlToLeft).Column
   
9.         Sh.Columns(j).Copy Sheets(2).[c1]
   
10.         Sheets(2).Name = Sheets(2).[c1]
    
11.         Sheets(2).Copy
    
12.         ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Sh.Cells(1, j) & ".xlsx"
    
13.         ActiveWorkbook.Close False
    
14.     Next j
    
15.     Sheets(2).Delete
    
16.     Application.ScreenUpdating = True
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

liulang0808

看看是不是这个意思吧。。。。。。。