excel vba 脚本编程问题

比如把很多个excel表放在“c:\123”这个文件夹中，能不能在脚本中实现遍历123这个文件夹中的所有excel文件，并且遍历excel文件中所有的工作表，读出每个工作表中cells(1,1)的内容？

sub test()
dim mPath as string,f as string,wb as workbook,sh as worksheet,mAry(1 to 60000,1 to 1),k as long
mPath="C:\123\" '设置路径
k=0
f=dir(mPath & "*.xls*")  '遍历搜索.xls*类型文件
do while f<>""  '若f非空，则继续处理；否则终止do循环
    if f<>thisworkbook.name then  '非同名文件
        set wb=workbooks.open(mpath & f,,false)
            with wb
                  for each sh in .worksheets
                       k=k+1
                       mary(k,1)=sh.[a1]  '将内容装入数组
                  next
                  .close 0 '关闭文件
            end with
    end if
f=dir  '枚举一下，搜索下一个excel文件
loop
thisworkbook.worksheets(1).[a1].resize(k,1)=mary   '填充数据。
msgbox "处理完成"
end sub