VBA SaveAs Dialog window

[assa]

Hoi,

Ik weet niet of onderstaande vraag al gesteld geweest is; een search op het forum leverde niet meteen resultaten op.

Bestaat er een mogelijkheid om vanuit een VBA-code het SaveAs dialoog venster te tonen en ook de voorgestelde locatie van de file te laten wijzigen? Het SaveAs venster tonen lukt nog, maar bij 'Save in' komt de huidige locatie van de file te staan terwijl dit een andere folder zou moeten zijn.

Heeft iemand een idee of dit kan opgegeven worden in de VBA code, en zo ja hoe ik dit klaarspeel?

Dank alvast.

Gr,
assa

 

[Kramer]

code

Heb je hier wat aan.

Sub OpslaanAls()
Dim Dialog As Dialog

Set Dialog = Application.Dialogs(wdDialogFileSaveAs)
With Dialog
    .Name = "G:\" 'hier kan je ook een andere map van maken.
    .Show
End With
End Sub

 

[Warme bakkertje]

Sub tst()
    Application.GetSaveAsFilename InitialFileName:="D:\mijn documenten\Test\"
End Sub

 

[Kramer]

scherm zien

Sub tst()
    Application.GetSaveAsFilename InitialFileName:="D:\mijn documenten\Test\"
End Sub

Laat hij hier ook het scherm zijn.

Zoja dan neem ik de code mee.

 

[Warme bakkertje]

Inderdaad. Je kan zelfs een filter toepassen zodat slechts bepaalde bestanden zichtbaar zijn

Sub tst()
    Application.GetSaveAsFilename "D:\mijn documenten\Test\", "Excel files(*.xls),*.xls"
End Sub

 

[Kramer]

Bedankt

 

[assa]

Hoi,

Alvast dank voor de reacties.
Kan het zijn dat onderstaande code niet werkt in Excel 2000? Lopen beetje achter qua versie I know, maar krijg onderstaande macro niet aan de praat (blijft hangen op de Set Dialog - regel).

Heb je hier wat aan.

Sub OpslaanAls()
Dim Dialog As Dialog

Set Dialog = Application.Dialogs(wdDialogFileSaveAs)
With Dialog
    .Name = "G:\" 'hier kan je ook een andere map van maken.
    .Show
End With
End Sub

Dank :thumb:,
assa

 

[Warme bakkertje]

Dit is voor Word, niet voor Excel.

Application.Dialogs(xlDialogSaveAs).Show

 

[assa]

Ow, ben geen expert dus niet gezien

Bedankt !