hvorfor bliver dette dokument ikke gemt som .xls men bare som fil

Path og Name er reseverede or, dem bruger men ikke som variabler.

Er det noget i denne stil du mener ?.


Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim StrName As String
Dim StrPath As String
    Range("A2:G56").Select
        Selection.Copy
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
 
    Range("A1").Select
    StrPath = "V:\Orders\Requisition_2007\"
    StrName = Worksheets("Zapotrzebowanie").Range("F9")
    MsgBox StrPath & StrName & ActiveWorkbook.Name & ".txt"

    ActiveWorkbook.SaveAs Filename:= _
    StrPath & StrName & ActiveWorkbook.Name, FileFormat:=xlNormal, Password:="", WriteResPassword:="jl1195", _
        ReadOnlyRecommended:=True, CreateBackup:=False

 
    ActiveWindow.Zoom = 100
    ActiveWorkbook.Close (0)
  Application.Quit
End Sub

hej kabbak. det er en template jeg åbner på et drev i serveren og det bliver tildelt et numme når man trykker på den første commandbottom. det nummer bliver så en del af filnavnet og jeg vir gerne der står Requisition inden nummeret.jeg har lige prøvet den kode du sendte den gemmer hele dokumentet som en template det eneste jeg gerne vil er at gemme rekvisitionen altså det angivne celleområde som et almindeligt xls dokument som er skrivebeskyttet så der ikke er nogle der går ind og rettet i dokumentet senere

prøv at rette
FileFormat:=xlNormal
til
FileFormat:=xlWorkbookNormal

det hjalp ikke, ingen forskel

StrPath & StrName & ActiveWorkbook.Name &.xls", Password:="", WriteResPassword:="jl1195", _
        ReadOnlyRecommended:=True, CreateBackup:=False

der er en fejl i de linjer de bliver røde når jeg sætter dem ind

StrPath & StrName & ActiveWorkbook.Name & ".xls", Password:="", WriteResPassword:="jl1195", _
        ReadOnlyRecommended:=True, CreateBackup:=False

nu kører det, og du har svarret på mit spørgsmål så send bare et svar, så hvis du gider har jeg kun problemet med fil navnet sulle være det nummer som den henter i en celle og gerne være Requisition og de skidde commandbuttoms kan jeg undgå at få dem med over på det gemte ark, må lige smutte en tilbag om en time

commandbuttoms og programkode kan jeg undgå at få dem med over på det gemte ark,

StrName skulle indeholde det fra Worksheets("Zapotrzebowanie").Range("F9")
ActiveWorkbook.Name , er det navn den har inden den gemmer

så du skal fjerne / rette der

("Zapotrzebowanie") er ark navnet og ("F9") er nummeret hvor en del af filnavnet kommer fra

koden ser sådan ud nu og templaten virker efter hensigten men filnavet er nu
"Nr. 21Requisition1.xls" og det jeg kunne tænke mig er "Requisition Nr.21"

' Denne makro finder fil navnet
    Range("A1").Select
    StrPath = "V:\Orders\Requisition_2007\"
    StrName = Worksheets("Zapotrzebowanie").Range("F9")
    MsgBox StrPath & StrName & ActiveWorkbook.Name & ".Your documen will now be savet in V:\Orders\Requisition_2007"
   
  ' Denne makro tildeler navn og gemmer dokumentet som almindelig, skrivebeskyttet excel(troede jeg)
    ActiveWorkbook.SaveAs Filename:= _
    StrPath & StrName & ActiveWorkbook.Name & ".xls", Password:="", WriteResPassword:="jl1195", _
    ReadOnlyRecommended:=True, CreateBackup:=False

    ActiveWindow.Zoom = 100
    ActiveWorkbook.Close (0)
    Application.Quit
End Sub

byt denne del
StrPath & StrName & ActiveWorkbook.Name
til
StrPath & ActiveWorkbook.Name & " " & StrName

Hvor kommer1 tallet fra i "Requisition1.xls"

et af mine forsøg hed Requisition1.xlt og det har jeg rettet, men kunne man ikke bare sætte "Requisition" ind som en tekst og + teksten fra celle "F9"

StrPath &  "Requisition " & StrName