Excelbestand als xls opslaan onder variabele celnaam

[Nicole0109]

Hallo,

Ik ben een beginner met het schrijven van macro's en ik probeer een macro te schrijven voor het opslaan van een Excelbestand onder de naam in cel B5.
Ik vond al iets over het opslaan als PDF maar ik wil een XLS.
Nu heb ik dit, maar het gaat nog net niet goed:

Sub Opslaan

  ActiveSheet.SaveAs Filename:= _
  "T:\Gb\Mengerij\" & Range("B5"), Quality:= _
  xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
 OpenAfterPublish:=True
End Sub

Kan iemand mij zeggen waar ik de mist in ga?

Alvast heel erg bedankt,
Nicole

 

[exhelp]

Sub opslaan()

Dim filename As String
Dim FileType As String

filename = "T:\Gb\Mengerij\" & ActiveWorkbook.ActiveSheet.Range("B5")
'FileType = xlWorkbook 'Gebruik deze voor een .xls


    If FileType <> "" Then
        Application.Dialogs(xlDialogSaveAs).Show filename, FileType
    Else
        Application.Dialogs(xlDialogSaveAs).Show filename
    End If


End Sub

 

[Nicole0109]

Dankjewel exhelp, ik zat er dus helemaal naast.

Het enige is dat ik nu het opslaan-scherm krijg, hij slaat hem dus niet op in T:\Gb\Mengerij\ (cel inhoud B5) maar vraagt waar hij hem moet opslaan. De naam van het bestand stelt hij wel voor als de inhoud van B5.

 

[exhelp]

Ik zat er ook naast. Hierbij de juiste code

Sub opslaan()

Dim filename As String


filename = "T:\Gb\Mengerij\" & ActiveWorkbook.ActiveSheet.Range("B5")

ActiveWorkbook.SaveAs Filename:=filename, FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False

'Mogelijkheden FileFormat
'51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
'52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
'50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
'56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)

End Sub