分类：电脑/网络-软件-办公软件
问题：求EXCELVBA宏一个文件存储结构F盘\月报\08年10月月报 
文件存储结构F盘\月报\08年10月月报\月报下报\辽宁\售磬收集售磬收集 文件夹里有三个文件夹  华龙、金州、普兰店 实际上要比这多很多，为了方便就拿这三个举例  除了文件夹之外还有一个EXCEL 名字为：售磬收集表华龙、金州、普兰店 文件夹里各有六个EXCEL文件 名字为 aaaa  bbbb  cccc   dddd  eeee  ffff  具体结构关系详见附件。要求：售磬收集表 文件夹为打开状态，然后打开 EXCEL售磬收集表 文档 以后，运行宏，达到如下目的：在当前打开的 售磬收集 文文件存储结构F盘\月报\08年10月月报\月报下报\辽宁\售磬收集售磬收集 文件夹里有三个文件夹  华龙、金州、普兰店 实际上要比这多很多，为了方便就拿这三个举例  除了文件夹之外还有一个EXCEL 名字为：售磬收集表华龙、金州、普兰店 文件夹里各有六个EXCEL文件 名字为 aaaa  bbbb  cccc   dddd  eeee  ffff  具体结构关系详见附件。要求：售磬收集表 文件夹为打开状态，然后打开 EXCEL售磬收集表 文档 以后，运行宏，达到如下目的：在当前打开的 售磬收集 文件夹里寻找名字为 华龙 的文件夹 找到以后 打 开华龙 文件夹 再寻找名字为aaaa的文件，找到后打开该文件，并运行另一个名字叫 SUB AAAA的宏，SUB AAAA 宏不用做 ，我已经做完了  SUB AAAA宏运行完 aaaa文件会自动关闭  第一步完成。 接着继续在  华龙  文件夹里寻找名字为 bbbb的文档 ，找到后打开，并运行另一个名字为SUB BBBB的宏（这个也不用做），再接着寻找名字为cccc的文件，打开并运行SUB CCCC的宏（不用做） 依此类推，一直查找完全部的六个文件之后，华龙 文件 夹关闭。之后继续在  售磬收集 文件夹里查找 名字为 金州 的文件夹，找到后打开，依次查找aaaa  bbbb cccc等六个文件，并运行相对应的SUB AAAA  SUB BBBB SUB CCCC宏  过程和华龙的一样。查找完成后关闭金州文件夹。继续查找名字为 普兰店 的文件夹，过程和 华龙一样。实际上售磬收集文件夹里大概有20多个像华龙一样的文件夹，每个文件夹里都会有aaaa  bbbb cccc dddd eeee ffff  六个文件.我只写了三个做例子，当全部查找完成后，宏结束。
回答：Sub xzm()Dim T As Workbook, Wb As WorkbookDim sDim fs As ObjectSet fs = Application.FileSearchSet Twb = ThisWorkbookWith fs.LookIn = Twb.Path.Filename = "*.xls".SearchSubFolders = True.Execute msoSortByFileName For Each s In .FoundFiles  If s <> Twb.FullName Then     Set Wb = Workbooks.Open(s)        Select Case Wb.Name        Case Is = "aaaa.xls"        Call aaaa        Case Is = "bbbb.xls"        Call bbbb        Case Is = "cccc.xls"        Call cccc        Case Is = "dddd.xls"        Call dddd        Case Is = "eeee.xls"        Call eeee        Case Is = "ffff.xls"        Call ffff        End Select    Wb.Close True    End IfNextEnd WithEnd SubSub aaaa()MsgBox "这是一个测试a"End SubSub bbbb()MsgBox "这是一个测试b"End SubSub cccc()MsgBox "这是一个测试c"End SubSub dddd()MsgBox "这是一个测试d"End SubSub eeee()MsgBox "这是一个测试e"End SubSub ffff()MsgBox "这是一个测试f"End Sub