vba为什么最后一句不好用
subhh（）DimaAsStringa=thisworkbook.worksheet.countDimbAsStringb=workbook(“123”).worksh...
sub hh（）
Dim a As String
a=thisworkbook.worksheet.count
Dim b As String
b=workbook(“123”).worksheet.count
Worksheet.Add before:=worksheets (worksheets.count), count:=b-a 展开
Dim a As String
a=thisworkbook.worksheet.count
Dim b As String
b=workbook(“123”).worksheet.count
Worksheet.Add before:=worksheets (worksheets.count), count:=b-a 展开
1个回答
展开全部
你最后语句没有问题，问题在于当123工作簿的表数量比当前工作簿少的时候，也就是b<a的时候，b-a为负数，此时就会错，你可以在之前添加下面语句看看：
MsgBox "即将增加工作表个数：" & (b-a)
MsgBox "即将增加工作表个数：" & (b-a)
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
