主题：[原创]能将CSV2XLS转为狐表代码吗？

    下面是VAB写的CSVtoXLS代码，能转为适用于狐表的代码？

‘-----

Sub CSV2XLS()

Dim FilePath, MyFile, iPath As String

iPath = ThisWorkbook.Path

MyFile = Dir(iPath & "\*.CSV")

If MyFile <> "" Then

Do

    On Error Resume Next

    If MyFile = ThisWorkbook.Name Then MyFile = Dir

    Workbooks.Open (iPath & "\" & MyFile)

    MyFile = Replace(MyFile, ".csv", ".xls")

    Name = "\" & MyFile

    FilePath = iPath & Name

    Application.ScreenUpdating = False

    ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _

        xlNormal, CreateBackup:=False

    Workbooks(MyFile).Close True

    Application.ScreenUpdating = True

    MyFile = Dir

Loop While MyFile <> ""

End If

End Sub

’-----

先行谢谢！