专栏名称: Excel之家ExcelHome
excel技巧原创教程每日推送,excel表格职场模板干货仓库,图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程,助您轻松提高办公效率!
目录
相关文章推荐
Excel之家ExcelHome  ·  Excel数据查询,换个思路更简单 ·  3 天前  
Excel之家ExcelHome  ·  动态合并多个Excel工作表,简单 ·  4 天前  
Excel之家ExcelHome  ·  学会这5个Excel公式,工作效率能翻倍 ·  2 天前  
Excel之家ExcelHome  ·  11个Excel打印技巧 ·  2 天前  
完美Excel  ·  使用deepseek帮助注册安全工程师考试复习 ·  4 天前  
51好读  ›  专栏  ›  Excel之家ExcelHome

批量创建指定名称的工作簿,这回不用伤脑筋了

Excel之家ExcelHome  · 公众号  · Excel  · 2017-07-10 07:04

正文

各位表亲,早上好。

今天和大家分享的技巧是 根据指定名称,批量创建Excel工作簿。

举个栗子,如下图,A列是创建工作簿的名称,需要在该工作薄所在的文件夹内批量创建相关名称的Excel工作薄。

按< Alt+F11>组合键 打开VBE界面,在代码窗口中输入以下内容:


Sub newbooks()

Dim i&, p$, temp$

On Error Resume Next

'忽略代码运行中的错误,避免存在异常名称工作簿等问题时,代码运行中断。

Application.ScreenUpdating = False

'关闭屏幕刷新

p = ThisWorkbook.Path & "\"

' 取得当前工作薄所在路径

For i = 1 To Cells(Rows.Count, 1).End(3).Row

'循环读取A列数据

temp = Cells(i, 1) & ".xlsx"

'temp是完整的含文件后缀的工作薄名称

With Workbooks.Add

'新建工作薄

.SaveAs p & temp

'保存工作薄,p & temp是要保存的文件的名称

.Close False

'关闭工作薄

End With

Next

Application.ScreenUpdating = True

'恢复屏幕刷新

End Sub



按一下 F5 键,就可以在当前工作簿的文件夹里,快速生出一堆工作簿小崽儿,不仅提高工作效率,还非常好玩儿哦。


知识点说明

Application.ScreenUpdating = False

意思是关闭屏幕刷新,如果你不想看到工作薄从创建到关闭的整个画面过程,就使用它;通常,关闭屏幕刷新有助于提高代码的运算效率。







请到「今天看啥」查看全文