Saveas

[Jampie]

Ik wil graag dat de uitkomst van een cel (bv A1) gebruikt gaat worden als naam in het bestaande dialoogvenster 'saveas'

Mijn probleem is, hoe kan ik in VB de filenaam van het dialoogvenster vullen?

Ik gebruik nu:

Application.Dialogs(xsdialogsaveas).Show

 

[fihod]

Ik sla die stap over en bepaal tevens ook in welke map het bestand moet komen.

ActiveWorkbook.SaveAs Filename:="D:\EXCEL bestanden\" & Range("H7").Formula

 

[Jampie]

Dit is inderdaad een leuke mogelijkheid.

Ik wilde de gebruiker een voorstel voor de filenaam doen. Via dialoogvenster 'saveas' zou de gebruiker de filenaam nog kunnen veranderen.

In Word kan ik het als volgt oplossen:
With Dialogs(wdDialogFileSaveAs)
.Name = FileName
.Show
End With

In Excel is dit blijkbaar anders, maar hoe?

 

[Jan van Asseldonk]

Onderstaande macro geeft een voorbeeld.

JouwNaam is het voorstel dat gedaan wordt.

Sub Opslaan()
Dim bestandsnaam As String
bestandsnaam = "JouwNaam"
bestandsnaam = InputBox("Geef bestandsnaam voor opslaan: ", "Opslaan", bestandsnaam)
ActiveWorkbook.SaveAs FileName:="D:\EXCEL bestanden\" & bestandsnaam
End Sub

 

[Jampie]

Ook dit werkt prima, echter ik wilde de gebruiker graag het voorstel doen, de filenaam te gebruiken die in H7 is berekend. En dat lukt mij nog steeds niet.

Tevens heeft het dialoogvenster het voordeel dat de gebruiker nog kan kiezen de file in een andere subdir te plaatsen.

Waarom zijn in Word de dialogs objecten en in Excel niet? Of ik begrijp het verkeerd.

 

[Jan van Asseldonk]

De naam uit H7 gebruiken kan door
bestandsnaam = "JouwNaam"
te vervangen door
bestandsnaam = Range("H7").Value

Bij mij werkt jouw eerstgenoemde methode
Application.Dialogs(xlDialogSaveAs).Show
overigens ook prima. (Excel97)
Daar heb je wel een tikfout instaan (begint met xs i.p.v.xl), misschien dat ie daarom niet werkt.

 

[Jampie]

Het typefoutje is mij bekent.

Lukt het jou dan ook om in het dialoogvenster de waarde van H1 als bestandsnaam in te vullen?

 

[Jan van Asseldonk]

Dit werkt bij mij.
Application.Dialogs(xlDialogSaveAs).Show Range("H1").Value

 

[Jampie]

Het werkt inderdaad. Dit bedoel ik precies.
Het is te simpel voor woorden...

Toch is het jammer dat het bij Word anders is dan bij Excel. Het is niet anders.

Bedankt!