Results 1 to 2 of 2
  1. #1
    3 Star Lounger
    Join Date
    Jan 2004
    Birmingham, West Midlands, United Kingdom
    Thanked 0 Times in 0 Posts

    xl2003 transalation? (xl2003 sp2)

    Some weeks ago Hans kindly improved some brute force code for me. The purpose was to shift some stuff from one workbook to a new one and leave the new workbook suggesting it be saved as, to a particular location, with a suggested file name.
    The code is below:
    With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "C:credit unionloanapps2005_2006" & _
    wshTarget.Range("F6") & wshTarget.Range("J6")
    If .Show = True Then
    ActiveWorkbook.SaveAs .SelectedItems(1)
    End If
    End With
    This seems only to work with Excel 2003, which some of my users haven't got.
    Is there a 'translation' to apply for earlier versions, or, even better, one which works on ALL recent(ish) versions?

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Thanked 28 Times in 28 Posts

    Re: xl2003 transalation? (xl2003 sp2)

    FileDialog was introduced in Office XP (2002), it was not available in Office 2000 and before. As an alternative, you can use the modules and class module from <post#=505,867>post 505,867</post#> (although they are in a Word document, they will work in any VBA dialect).

Posting Permissions

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