如何使macros在Excel上将.txt文件保存为.xls文件？

我目前从XSENS传感器中得到很多.txt文件，我们使用它们来转换成xls文件，以便MATLAB可以读取一个有组织的文件。

这些转换后的.xls文件具有数十列和数千行数据。 我试图为此做一个macros，使我没有button点击一切，但它不工作。

Function GetFullNameXLS() As String GetFullNameXLS = Replace(ActiveWorkbook.FullName, ".txt", ".xlsx") End Function Sub XLSB() ActiveWorkbook.SaveCopyAs Type:=xlOpenXMLWorkbook, filename:= _ GetFullNameXLS End Sub 

目前VBA的菜鸟，所以任何意见将不胜感激！