excel vba 脚本编程问题

发布网友发布时间：2022-06-18 12:01

共1个回答

热心网友时间：2024-08-20 14:53

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