用VBA批量新建工作簿

zy19880405

就是希望在D盘 经销商文件夹里 新建一个工作簿 把这个表的 “订单”这个表的 内容 粘贴为 数值放进去  以B1单元格命名  。。原本我是想另存为 但是如果用另存在的话 有些公式会错误。。

liulang0808

1. Sub aaa()
   
2.     Application.ScreenUpdating = False
   
3.     Sheets("订单").Copy
   
4.     ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
   
5.     With ActiveWorkbook
   
6.         .SaveAs ThisWorkbook.Path & "" & [b1] & ".xlsx"
   
7.         .Close False
   
8.     End With
   
9.     Application.ScreenUpdating = True
   
10. End Sub
    

复制代码

liulang0808

文件存储路径，可以自己修改的