QuattroPro DOS (4 and 5)

Topic

New Reply

I have several thousand Quattro Pro (DOS) versions 4 and 5 spreadsheets that I would like to convert to Excel Spreadsheets. I know how to do this manually,
but is there a quick way to automate the process of converting *.wq1 files to .xls files. The reason for this request is that I am trying a Beta version of
Scopeware that will index Office files and text files, but not older spreadsheet files. The files are in many different Folders, but all folders are subfolders
of a master folder. Any thoughts appreciated. Note: The Scopeware program seems to be similar in concept to the old Lotus Magellan program.

Thomas Cox

Reply | Quote

Replies

This macro does what you describe:
(change the path)

All wq1 files in a folder (including subfolders) are opened and then saved as excel workbook to the same path the source file was opened from.

Option explicit
Sub OpenAndSaveAs()
    Dim lFileCount As Long
    Dim sFileName As String
    With Application.FileSearch
        .NewSearch
        .LookIn = "c:data"
        .SearchSubFolders = True
        .Filename = "*.wq1"
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
        If .Execute() > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
                " file(s) found."
            For lFileCount = 1 To .FoundFiles.Count
                sFileName = .FoundFiles(lFileCount)
                Workbooks.Open sFileName
                ActiveWorkbook.SaveAs Left(sFileName, Len(sFileName) - 4) & ".xls", xlNormal
                ActiveWorkbook.Close False
            Next
        Else
            MsgBox "There were no files found."
        End If
    End With
End Sub

Reply | Quote