VBA and Excel: save from .csv to .xls

[Nelson78]

I'm really sorry: error, please delete.

 

[Nelson78]

Hello everybody.

I'm in the following situation: after having found a .csv file in a folder (its length is always 98 and no others file could be 98), I've to save it in .xls

What instruction can I try?

Dim MyObj As Object, MySource As Object, File As Object
Dim MyFile As String
Set MyObj = CreateObject("Scripting.FileSystemObject")
Set MySource = MyObj.GetFolder("C:\Users\xxxxx.yyyy\Desktop\zzzzz\rrrr\")


For Each File In MySource.Files
    MyFile = File
        If Len(MyFile) = 98 Then 'length file is always 98 carachters
            Workbooks.Open (MyFile)  
            [COLOR="#FF0000"]'???????????????????????'[/COLOR]

            Exit For
        End If
Next File

Thank's.

 

[Fluff]

How about

            Workbooks.Open (MyFile)
            ActiveWorkbook.SaveAs Left(MyFile, Len(MyFile) - 4) & ".xls", 56

 

[Joe4]

I merged these two threads together, since you had deleted the question out of the one that had the reply.