如何设置动态的保存路径呢，求大神解答

1242179374 · 发表于 2019-12-16 18:04

想将一个工作簿中的三个sheet:A、B、C，分别拆分并保存在这个工作薄所在路径下名称为的A、B、C三个文件夹中

1242179374 · 发表于 2019-12-16 18:13

嵿下，大神帮忙解答下呗

1242179374 · 发表于 2019-12-16 18:22

困惑很久，一直没想出解决办法

1242179374 · 发表于 2019-12-16 18:41

1242179374 · 发表于 2019-12-16 18:42

在线等，有大神解答下吗

1242179374 · 发表于 2019-12-16 19:02

有没有大神在，帮忙看下啊

wangqh8203 · 发表于 2019-12-16 20:39

Private Sub 分拆工作表()
On Error Resume Next
Application.ScreenUpdating = False
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
If sht.Visible = xlSheetVisible Then
      sht.Copy
      ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value

      ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为EXCEL默认格式
      ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
MsgBox "文件已经被分拆完毕!"
End Sub

IVYQQQQQ · 发表于 2019-12-16 21:05

1242179374 发表于 2019-12-16 19:02
有没有大神在，帮忙看下啊

附件测试一下！以后记得上附件，不然别人还要给你模拟建个附件，再给你写代码！这种情况很多人会也不愿意帮你。

1242179374 · 发表于 2019-12-17 12:07

IVYQQQQQ 发表于 2019-12-16 21:05
附件测试一下！以后记得上附件，不然别人还要给你模拟建个附件，再给你写代码！这种情况很多人会也不愿意 ...

好的，十分谢谢

1242179374 · 发表于 2019-12-17 12:26

wangqh8203 发表于 2019-12-16 20:39
Private Sub 分拆工作表()
On Error Resume Next
Application.ScreenUpdating = False

谢谢回复，8楼已帮忙解决

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

[求助] 如何设置动态的保存路径呢，求大神解答

评分

评分