excel file wegschrijven

[Justme47]

In excel heb ik een file gemaakt en deze wil ik wegschrijven onder een andere naam en naar een map naar keuze.
Graag wil ik dit doen door het openen van een verkennerscherm en dan te browsen naar de gewenste map.

Hoe kan ik dit in VBA doen?

Gerhard

 

[HSV]

Application.FileDialog(msoFileDialogSaveAs).Show

Bv. te gebruiken voor het sluiten.

 

[Justme47]

bedankt voor uw reactie.

Application.FileDialog(msoFileDialogSaveAs).Show

is inderdaad de eyeopener!

In het VBA Express forum vond ik de volgende routine:

Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog, strFile As String
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Show
On Error Resume Next
strFile = dlgSaveAs.SelectedItems(1)
If Err Then MsgBox "Cancel was pressed!": Exit Sub
ActivePresentation.SaveAs strFile
MsgBox "You saved the file to:" & vbNewLine & strFile
End Sub

Dit lijkt goed te werken maar slaat de file niet op.
Daarom heb ik er een opslagroutine ingezet (ingesprongen)

Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog, strFile As String
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Show
On Error Resume Next
strFile = dlgSaveAs.SelectedItems(1)
If Err Then MsgBox "Cancel was pressed!": Exit Sub
ActivePresentation.SaveAs strFile

        ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Save
        ActiveWorkbook.Close


MsgBox "You saved the file to:" & vbNewLine & strFile
End Sub

Nu werkt het wel maar het bezwaar is dat wanneer je een bestaande file probeert te overschrijven, je twee keer een waarschuwing krijgt.

Hoe kan deze routine worden verbeterd?
NB: De routine werkt in Excel2003 maar loopt vast in Excel 2000 (moet wel kunnen werken in Excel 2000)

Gerhard

 

[HSV]

Probeer het zo eens.

Sub ShowSaveAsDialog()
 Dim dlgSaveAs As FileDialog, strFile As String
   Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    dlgSaveAs.Show
On Error Resume Next
   strFile = dlgSaveAs.SelectedItems(1)
      If Err Then MsgBox "Cancel was pressed!": Exit Sub
Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlNormal, _
      Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
    MsgBox "You saved the file to:" & vbNewLine & strFile
  ActiveWorkbook.Close
End Sub

 

[Justme47]

Bovenstaande nieuwe routine werkt prima in excel2003.
In excel 2000 komt er bij de regel

Dim dlgSaveAs As FileDialog

de fout melding: "Een door de gebruiker gedefinieerd gegevenstype is niet gedefinieerd.

Kan dit worden omzeild of opgelost?

mgr. Gerhard

 

[Warme bakkertje]

FileDialog wordt niet ondersteund door XL2000. Schakel over op Application.GetSaveAsFilename

 

[Justme47]

met

Application.GetSaveAsFilename

werkt de onderstaande routine in excel2000:

Sub wegschrijf()
MsgBox "in het volgende scherm svp de wegschrijfnaam invoeren en de wegschrijfmap kiezen"
fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
End If
        ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Save
        ActiveWorkbook.Close
End Sub

bedankt Harry en Rudi

gr, Gerhard

 

[Warme bakkertje]

Graag gedaan.
Tip: Bij het programmeren voor verschillende versies neem je best de gewoonte aan om te programmeren in de oudste versie, aangezien er in de meeste gevallen een voorwaartse comptabiliteit bestaat tussen de verschillende versies. Uitzondering: Application.FileSearch dat om de een of andere reden niet meer bestaat in XL2007