如何制作一个宏来将.txt文件保存为Excel上的.xls文件？

Question

我目前从我们使用的XSENS传感器中获取了很多.txt文件，我想将其转换为xls文件，以便MATLAB可以读取有组织的文件。

这些转换后的.xls文件有数十列和数千行数据。我尝试为此创建一个宏，这样我就没有按钮点击所有内容，但它不起作用。

Function GetFullNameXLS() As String
GetFullNameXLS = Replace(ActiveWorkbook.FullName, ".txt", ".xlsx")
End Function

Sub XLSB()
ActiveWorkbook.SaveCopyAs Type:=xlOpenXMLWorkbook, filename:= _
    GetFullNameXLS
End Sub

目前是VBA的新秀，所以任何建议都会受到赞赏！