如何切换到指定的工作簿为当前工作薄？

棋行天下黄

我的宏都是用快捷键的，把有宏的表打开，再把要操作的工作簿打开，按快捷键运行，结果添加按钮后，由于按钮在有宏的文件.XLSM上，由于当前工作薄是有宏的，不是要操作的工作簿，总是不能运行，如何切换到指定的工作簿为当前工作薄？
下面自己写的不行
Dim i As Integer, str As String
For i = 1 To Workbooks.Count
str = ActiveWorkbook(i).Name
If str Like "*.csv" Then
Workbooks(i).Activate
End If
Next i
已解决，发现要把
End If
Next i
写在执行语句的最后，而不是Next i完了再执行中间的程序。

hwc2ycy

Dim i As Integer, str As String
For i = 1 To Workbooks.Count
str = Workbooks(i).Name
If str Like "*.csv" Then
Workbooks(i).Activate
End If
Next i

Dj_soo

你需要了解加载宏的一些知识