主题：[原创]能将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

’-----

先行谢谢！

参考代码

 

Dim App As New MSExcel.Application
try
    app.DisplayAlerts = False
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\test.csv")
    wb.SaveAs(Filename:="d:\test.xls", FileFormat:=MSExcel.XlFileFormat.xlAddIn8)
catch ex As exception
    msgbox(ex.message)
finally
    app.quit
End try

？？