VBA80集第10集练习上交专贴（正确答案奖励20金币）

匿名 *发表于 2019-4-22 17:28* · 发表于 2019-4-22 17:28

学习

lyfls7 · 发表于 2019-4-23 21:00

看一下答案，参考学习。

wangyichen666 · 发表于 2019-4-24 04:17

本帖最后由 wangyichen666 于 2019-4-24 04:21 编辑

第二个练习，代码如下，总是出错，请教怎么回事？

Sub 另存报表()

Dim x As Integer, i As Integer

x = Worksheets.Count

For i = 2 To x - 1

Worksheets(i).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets(i).Name & ".xls"

Next i

End Sub出错语句是：
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets(i).Name & ".xls"

jiahe0 · 发表于 2019-4-24 11:51

学习学习

飞天篮球猪 · 发表于 2019-4-26 12:15

学习

qingboss · 发表于 2019-4-27 20:11

wangyichen666 发表于 2019-4-24 04:17
第二个练习，代码如下，总是出错，请教怎么回事？

Sub 另存报表()

跨表，就得把哪一个表的sheet说清楚

改成
ThisWorkbook.Sheets(i).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets(i).Name & ".xls"

匿名 *发表于 2019-5-1 17:09* · 发表于 2019-5-1 17:09

学习学习，谢谢!

匿名 *发表于 2019-5-1 17:10* · 发表于 2019-5-1 17:10

学习学习

匿名 *发表于 2019-5-2 23:30* · 发表于 2019-5-2 23:30

biaobiaodi · 发表于 2019-5-4 13:12

可否看一下

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