将不同的扩展名转换为CSV并分隔

Question

我有来自数据记录器的以下文件。 因此，他们在奇怪的扩展下得救。这迫使我手动转换为CSV＆amp;用空格分隔A列。

我搜索了高和低低代码循环浏览文件夹中的所有文件并转换为csv。

但我能找到的只是代码

• CSV到Txt
• Txt to xml
• xlsx to Txt

这是我能找到的最接近的

Sub RenameFiles()
Dim StrFile As String, newName As String
Dim filePath As Variant
filePath = ActiveWorkbook.Path & "\"
StrFile = Dir(filePath & "*2")
Do While Len(StrFile) > 0
    newName = Replace(StrFile, "csv", "csv")
    Name filePath & StrFile As filePath & newName
    StrFile = Dir
Loop
End Sub

我需要转换文件的驱动器如下所示

C：\ Users \用户PC04 \桌面\重命名

我的文件名的扩展名如下图所示

如何将该文件夹中的所有文件转换为csv＆amp;用“空格”划定“A列”

更新

我的代码，用于分隔A列，完成宏录制。

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

扩展名如下所示