Hoe een exacte naam voor opslaan in vba

[davylenders123]

Heb een code die een range opslaat in een .cod bestand
Als naam wordt er bij deze code Map1 voorgesteld voor opslaan.
Wat moet aan de code worden aangepast om altijd "Phocus_Klanten" voorgesteld te krijgen bij opslaan ?

Sub ExportRangetoFile()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "COD Bestand aanmaken"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.cod), *.cod")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[SjonR]

zo?

Sub ExportRangetoFile()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "COD Bestand aanmaken"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename([COLOR="#FF0000"]InitialFileName:="Phocus_Klanten"[/COLOR], fileFilter:="Text Files (*.cod), *.cod")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[davylenders123]

SjonR

Bedankt voor je snelle oplossing :thumb: