[已解决]表格拆分问题

l3913229 · 发表于 2016-10-9 21:26

刚学VBA，现在遇到个问题。

现状如图，会出现下标越界，请大神帮忙看下问题

最佳答案

月排行榜 / 总排行榜

zjdh

2016-10-9 21:48

本帖最后由 zjdh 于 2016-10-9 21:53 编辑

1. .SaveAs ThisWorkbook.Path & "/3月/" & ThisWorkbook.Sheets(x).Name & ".xlsx"
2. 你只有14个工作表只可 For x=2 to 14 否则还会出现下标越界错误！
3. 既然已经保存了就没必要再保存了，所以：.Close False 或直接 .Close

跳转到最佳答案楼层

雨吧 · 发表于 2016-10-9 21:40

斜杠方向不对。

l3913229 · 发表于 2016-10-9 21:44

雨吧发表于 2016-10-9 21:40
斜杠方向不对。

换了方向，还是显示同样的问题

zjdh · 发表于 2016-10-9 21:48

本帖最后由 zjdh 于 2016-10-9 21:53 编辑

1. .SaveAs ThisWorkbook.Path & "/3月/" & ThisWorkbook.Sheets(x).Name & ".xlsx"
2. 你只有14个工作表只可 For x=2 to 14 否则还会出现下标越界错误！
3. 既然已经保存了就没必要再保存了，所以：.Close False 或直接 .Close

l3913229 · 发表于 2016-10-9 22:24

zjdh 发表于 2016-10-9 21:48
1. .SaveAs ThisWorkbook.Path & "/3月/" & ThisWorkbook.Sheets(x).Name & ".xlsx"
2. 你只有14个工作表 ...

谢谢老师

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