请帮忙改写一下代码，让它可以在麒麟系统中的WPS中可以使用

chenshiyyb

Sub 按钮1_单击()

   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量

   myFile = Dir(myPath & "*.*")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count
         aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1

            'AK.Sheets(i).Select
         AK.Sheets(i).Range("a3:ai" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop

   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！

chenshiyyb

在WINDOWS系统中的WPS中可用，在麒麟中显示语法错误，请高手指教

zpy2

chenshiyyb 发表于 2024-1-22 10:32
在WINDOWS系统中的WPS中可用，在麒麟中显示语法错误，请高手指教

vba不能用linux的。。。

zpy2

zpy2 发表于 2024-1-22 13:50
vba不能用linux的。。。

https://club.excelhome.net/forum.php?mod=viewthread&tid=1679471&page=1&mobile&_dsign=772c0d77在线工具手机版的多表合并

chenshiyyb

第一行的Dim myPath$就提示语法错误