求助：因工作需要，以前在win系统下，WPS编写了几个VBA宏，但在linux系统下，WPS只支持WPS js宏，大多数语句我能改写，但有一个宏的语句我学习了一天，也没找到改写的方法。通过百度查找，看到有如下的软件。有坛友有这个软件提供一下吗？

VBA-t*-Translator:VB*转换器

若不能，有高手能帮我处理一下如下VBA宏代码变成JS代码吗？

Sub 自动汇总()

'功能：合并某文件下所有Excel工作簿中的第一个工作表
'使用：将要合并的工作簿拷贝到某文件夹下，新建一个工作簿后执行该宏
Dim WBName As String '汇总工作簿名称
Dim WBCurrent As String '当前正在合并的工作簿
Dim i As Integer
Dim FileToOpen As Variant '选定的文件列表
'显示选择文件对话框，使用Ctrl或Shief键选取多个工作簿
FileToOpen = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择要合并的工作簿", , True)
'如果没有选择文件则退出
If IsArray(FileToOpen) = 0 Then
MsgBox "没有选择文件"
Exit Sub
End If
'不显示合并的过程
Application.ScreenUpdating = False
WBName = ActiveWorkbook.Name
'逐个合并工作簿

For i = 1 To UBound(FileToOpen)

  '打开一个工作簿
   Workbooks.Open Filename:=FileToOpen(i)
   WBCurrent = ActiveWorkbook.Name
   
   ActiveWorkbook.Sheets("汇总").Cells(6, 10).FormulaR1C1 = "='2通单丰'!R[2]C[4]"
   ActiveWorkbook.Sheets("汇总").Cells(6, 15).FormulaR1C1 = "='2通单丰'!R[11]C[-4]"

   
   
   
   '将该工作簿复制到汇总工作簿
  Workbooks(WBName).Sheets("汇总").Cells(i + 8, 2) = WBCurrent
  
  ''查找替换
  
  Workbooks(WBName).Sheets("汇总").Cells(i + 8, 2).Replace What:="s", Replacement:="s]汇总'!C6"
  
  Workbooks(WBName).Sheets("汇总").Cells(i + 8, 2).Replace What:="国地", Replacement:="='[国地"
  
  
  '查找替换结束
   
    
    '合并后关闭该工作簿
    ActiveWorkbook.Save
    Workbooks(WBCurrent).Close

Next i
End Sub