- 求EXCELVBA宏一个文件存储结构F盘\月报\08年10月月报
- 文件存储结构
F盘\月报\08年10月月报\月报下报\辽宁\售磬收集
售磬收集 文件夹里有三个文件夹 华龙、金州、普兰店 实际上要比这多很多
,为了方便就拿这三个举例 除了文件夹之外还有一个EXCEL 名字为:售磬收集表
华龙、金州、普兰店 文件夹里各有六个EXCEL文件 名字为 aaaa bbbb cccc dddd eeee ffff
具体结构关系详见附件。
要求:售磬收集表 文件夹为打开状态,然后打开 EXCEL售磬收集表 文档 以后,运行宏,达到如下目的:
在当前打
- 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