(已由lb_bn 老师帮忙解决啦) 跨工作薄执行分表内的宏

china047

原帖由 lb_bn 于 2010-3-24 11:33 发表
application.run yourbookname & "!" yourmacro , x , y

不知是不是以下这样,但还是不行!!!

Sub 批量执行Macro1()
Dim mypath$, myFile$, AK As Workbook
    On Error Resume Next
    mypath = ThisWorkbook.Path & "\分表\"
    myFile = Dir(mypath & "*.xls")
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     Do While myFile <> ""
       Set AK = Workbooks.Open(mypath & myFile)
                Application.Run AK & "!" & macro1 ', x, y
      
               
         AK.Close True
        
        myFile = Dir      '找寻下一个*.xls文件
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "执行完毕，请查看！", 64, "提示"
End Sub

lb_bn

Application.Run AK.name & "!" & macro1

china047

原帖由 lb_bn 于 2010-3-24 12:18 发表
Application.Run AK.name & "!" & macro1

既没有出错,"分表"文件夹里面工作薄的宏macro1也没有被执行???

lb_bn

Sub 批量执行Macro1()
    Dim mypath$, myFile$, AK As Workbook
    On Error Resume Next
    mypath = ThisWorkbook.Path & "\分表\"
    myFile = Dir(mypath & "*.xls")
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     Do While myFile <> "" And Not myFile Like "*$*"
       Set AK = Workbooks.Open(mypath & myFile)
                Application.Run AK.Name & "!" & "macro1" ', x, y
      
               
         AK.Close True
        
        myFile = Dir      '找寻下一个*.xls文件
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "执行完毕，请查看！", 64, "提示"
End Sub

china047

lb_bn 老师以上的代码可以用了,多谢你的帮助!!
但有一点小问题,如果,"分表"文件夹里面工作薄名称含有空字符的话就不能执行.
再就是下面这句有点不理解.
And Not myFile Like "*$*"
在此再次谢过lb_bn 老师了!

lb_bn

可以用like来让它只打开你想打开的文件,相信楼主的文件会有一些规律吧.

$是在打开工作薄,操作完成保存时,excel会生成一个以$结尾的临时工作薄,如果不这样写,电脑速度不快的话,可能在第一个循环结束后再进入下一个循环.

china047

原帖由 lb_bn 于 2010-3-24 14:23 发表
可以用like来让它只打开你想打开的文件,相信楼主的文件会有一些规律吧.

$是在打开工作薄,操作完成保存时,excel会生成一个以$结尾的临时工作薄,如果不这样写,电脑速度不快的话,可能在第一个循环结束后再进入下一个 ...

明白了,多谢lb_bn老师的指教!!