请问WPS这个VBA代码哪里有错误问题吗？

Zensyboy · 发表于 2022-11-3 16:31

function 批量合并大量Excel文件(){
p = ThisWorkbook.Path + "\\"
p = p.replace(/\\g,'/')
f = Dir(p+'*.xls*')
Let tb = ThisWorkbook
Let tsh = tb.Sheets.Item(1)
nm = tb.Name
i = 1
t = 1
while(f!==""){
      if(f!==nm&&f.index0f('~$')==-1){
         Let wb = Workbooks.Open(p + f)
         Let wsh = wb.Sheets.Item(1)
         n = tsh.Range("a65535").End(3).Row + 1
         n1 = wsh.Range("a65535").End(3).Row
         if(i==1){
            wsh.Rows('1:'+n1).Copy(tsh.Range('al'))
         }else{
            wsh.Rows((t+1)+':'+n1).Copy(tsh.Range('a'+n))
         }
         wb.Close()
         i++
      }
      try{f = Dir()}
      catch{break}
}
}

如题，麻烦大家指正错误，谢谢！

孙森峰 · 发表于 2022-11-4 15:04

ThisWorkBook - > ActiveWorkbook

		自动登录	找回密码
密码			免费注册

[求助] 请问WPS这个VBA代码哪里有错误问题吗？