如何将 Excel 工作表保存为名称与其工作簿名称相同的 Unicode 文本文件？

Question

我有一个 VBA 脚本，用于将 Excel 中的工作表转换为带有工作簿名称的 Unicode 文本文件。 假设我有一个名为 zahid-21-12-2020.xlsm 的 excel 文件。有一个名为 SERVER 的工作表。我想将工作表 SERVER 转换为 Unicode 文本文件，并具有自己的工作簿名称，例如 zahid-21-12-2020.txt 以下是代码： >

  Sub Macro1()
'
' Macro1 Macro
'

'
  Dim wb As String
  wb = ThisWorkbook.Name
  
  ChDir "D:\MCR\MKT SCHEDULE\UNICODE TEXT"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\MCR\MKT SCHEDULE\UNICODE TEXT\SERVER-" & wb & ".txt", _
         FileFormat:=xlUnicodeText, CreateBackup:=False
  End Sub

每当我运行宏时，我第一次得到 SERVER-zahid-21-12-2020.xlsm.txt，当我第二次点击运行时，我得到 SERVER-zahid- 21-12-2020.xlsm.txt.txt 等。 现在我只希望它在每次点击宏时都不会在文件后添加另一个扩展名，例如“zahid-21-12-2020.txt”。 谢谢