Results 1 to 2 of 2
  1. #1
    Join Date
    Jan 2001
    Easley, South Carolina, USA
    Thanked 0 Times in 0 Posts

    QuattroPro DOS (4 and 5)

    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

  2. #2
    Platinum Lounger
    Join Date
    Feb 2001
    Weert, Limburg, Netherlands
    Thanked 0 Times in 0 Posts

    Re: QuattroPro DOS (4 and 5)

    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.

    <pre>Option explicit
    Sub OpenAndSaveAs()
    Dim lFileCount As Long
    Dim sFileName As String
    With Application.FileSearch
    .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
    MsgBox "There were no files found."
    End If
    End With
    End Sub

    Jan Karel Pieterse
    Microsoft Excel MVP, WMVP
    Professional Office Developers Association

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts