这几句代码错在哪？

1635967374

sub 查找已经打开的工作簿名()
dim wbk as workbook, wba as workbook, zc as string
For Each wbk In Workbooks
    If wbk.Name <> "定额" Then '除了这张工作簿名之外
    zc = wbk.Name
    zc = Split(zc, ".")(0)
        Set wba = Workbooks(zc) '这地方赋值之后没有变化，可以运行
        wba.activate '不能激活工作簿
next
end sub
有时能运行，有时候就不可以，包括其它宏也经常这样

1635967374

帮忙高手们

liulang0808

楼主以上代码运行测试了吗，不报错的吗？
If wbk.Name <> "定额" Then
这个地方不需要扩展名吗？
包括后面的，建议楼主考虑下扩展名
后面的激活工作薄是否步骤冗余太多了

建议楼主先保证代码不报错吧

microyip

不知道原码意欲何为，修改看看你要干嘛

1. Sub 查找已经打开的工作簿名()
   
2.     Dim wbk As Workbook, wba As Workbook, zc As String
   
3.     For Each wbk In Workbooks
   
4.         If Not wbk.Name Like "定额.*" Then '除了这张工作簿名之外
   
5.             wbk.Activate
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

1635967374

liulang0808 发表于 2019-10-4 15:14
楼主以上代码运行测试了吗，不报错的吗？
If wbk.Name  "定额" Then
这个地方不需要扩展名吗？

代码可以运行，有时可以激活，有时就不能了；其它宏有时好好的，过几天中间的一些代码又不执行，但可以看到运行到不执行代码之处

liulang0808

1635967374 发表于 2019-10-4 15:35
代码可以运行，有时可以激活，有时就不能了；其它宏有时好好的，过几天中间的一些代码又不执行，但可以看 ...

楼主的代码真能运行？
if 语句 then 后面没有代码，
后面也没有end if

1635967374

liulang0808 发表于 2019-10-4 15:54
楼主的代码真能运行？
if 语句 then 后面没有代码，
后面也没有end if

上面少写了,不好意思，修复了Excel，然后将你所说的后缀全加上了。但是用Set wba = Workbooks(zc)，这句这样设的是没有用处，因为打开的文件变成WINDOWN(ZC)，对后面的操作，只能用activate或select;不知道Set wba = Workbooks.WINDOWN(ZC)    这样不知道行不行？