各表单独分配出来

学习vba2023 · 发表于 2023-5-18 11:05

本帖最后由学习vba2023 于 2023-5-18 11:09 编辑

各表单独分配出来：
1。生成同名新文件夹。

2.分配各表到同名文件夹（普通excel文件）。谢谢！

杨建营 · 发表于 2023-5-18 11:07

楼主请上传附件。

学习vba2023 · 发表于 2023-5-18 11:09

杨建营发表于 2023-5-18 11:07
楼主请上传附件。

老师已上传

3190496160 · 发表于 2023-5-18 11:34

把工作表拆分为多个工作簿，为啥还要放到不同的文件夹内？一个文件夹一个文件，岂不是多此一举？

3190496160 · 发表于 2023-5-18 11:39

Sub 拆分()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
wjj = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0)
If Not fso.folderexists(wjj) Then fso.CreateFolder wjj
For Each sh In Sheets
sh.Copy
ActiveWorkbook.SaveAs Filename:=wjj & "\" & sh.Name & ".xlsx"
ActiveWorkbook.Close
Next sh
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-5-18 11:40

3190496160 · 发表于 2023-5-18 11:41

XY.rar (30.57 KB, 下载次数: 4)

杨建营 · 发表于 2023-5-18 11:49

请楼主参考。

		自动登录	找回密码
密码			免费注册

[求助] 各表单独分配出来

评分

评分

评分