Open Excel file and save as .xlsx using VB code

[Bisujaksha]

hello,

I want to implement a VB macro code in which Excel 2007 is set to open the Excel files and save all of them as .xslx files.
Does anybody have an information regarding this. How can I implement the required VB macro code ?
any ideas.....kindly suggest
thnx

[Modifier]

Consider the following code below. This code stores the filename the user returns in the public variable Fname. If the file is already open, then the sub will not open the file again and if the user cancels the filename procedure then the sub exits

Public Fname

Sub OpenF()
    Dim wb As Workbook
    Fname = Application.GetOpenFilename("Excel-files,*.xls", , "Please open your file")
    'no file selected
    If Fname = False Then Exit Sub
    For Each wb In Application.Workbooks
        If wb.Path & "\" & wb.Name = Fname Then
            MsgBox "File " & wb.Name & " is already open"
            Exit Sub
        End If
    Next
    Workbooks.Open (Fname)
End Sub

[Zecho]

Click Here -

Use VBA SaveAs in Excel 2007

You will find the useful vb macro code that will help you to serve the required purpose.

[Katty]

If you have Excel 2007, you could save the Excel file as xlsx format, which does not save macros. You can then re-save as xls for compatibility if you want to.