Print side | Luk vindue

Filnavn = værdi i celler

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1053
Udskrevet den: 06.Mar.2025 kl. 14:16


Emne: Filnavn = værdi i celler
Besked fra: filipen
Emne: Filnavn = værdi i celler
Posteringsdato: 24.Jan.2013 kl. 13:19
Hej med jer.

Jeg har en skabelon som jeg bruger til udførsel af arbejdsseddler til en mekaniker.

Når jeg så beder den om at gemme filen spørger den så hvad filen skal hedde. Her er det så mit store ønske kommer.

Jeg ville gerne have at filnavnnet hedder:
[værdi i B1]-[værdi i B2]-[værdi i B3]-[værdi i B4]


Er der nogen der kan hjælpe mig med det?

Hilsen Filip.



Svar:
Besked fra: EXCELGAARD
Posteringsdato: 24.Jan.2013 kl. 13:26
Hvis regnearksfilen blot skal ligge i samme mappe, som du har åbnet skabelonen fra, kan du klare det med en enkelt macro linje:

ThisWorkbook.SaveAs Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value

Hvis du ønsker mulighed for at vælge en mappe, når du gemmer, så hent først stien med .GetSaveAsFileName

Det hele kan læses i hjælpen til makroen i VB Editoren.


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 25.Jan.2013 kl. 06:54
Hej Excelgaard.

Mange tak for hjælpen. 

Da jeg er lidt på bar bund vil jeg spørge om du kan hjælpe med en lidt mere detaljeret beskrivelse om hvordan man gør. 

Det med macroer er jeg ikke så skrap til.


Besked fra: filipen
Posteringsdato: 29.Jan.2013 kl. 07:41
Citat: EXCELGAARD EXCELGAARD skrev:

Hvis regnearksfilen blot skal ligge i samme mappe, som du har åbnet skabelonen fra, kan du klare det med en enkelt macro linje:

ThisWorkbook.SaveAs Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value

Hvis du ønsker mulighed for at vælge en mappe, når du gemmer, så hent først stien med .GetSaveAsFileName

Det hele kan læses i hjælpen til makroen i VB Editoren.

Hej Excelgaard.

Kan du hjælpe mig med en mere detaljeret beskrivelse?



Besked fra: EXCELGAARD
Posteringsdato: 29.Jan.2013 kl. 08:50
Ups, denne tråd havde jeg lige glemt - sorry!

1) Tryk på [Alt] + [F11] for at gå ind i VBE (visual Basic Editor)
2) Højreklik på din regnearksfil i venstre liste over åbne regnearksfiler
3) Vælg <Insert module>
4) I modulet i det store højre vindue, indsætter du dette:

Sub GemFil()

ThisWorkbook.SaveAs Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value

End Sub

Fremover, når du vil gemme din fil, som du beskrev, så kører du blot denne lille makro.

Du kan kører makroen fra båndet 'Vis' (så vidt jeg husker - jeg benytter selv værktøjslinjer, og ikke bånd)



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 29.Jan.2013 kl. 10:02
Citat: EXCELGAARD EXCELGAARD skrev:

Hvis regnearksfilen blot skal ligge i samme mappe, som du har åbnet skabelonen fra, kan du klare det med en enkelt macro linje:

ThisWorkbook.SaveAs Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value

Hvis du ønsker mulighed for at vælge en mappe, når du gemmer, så hent først stien med .GetSaveAsFileName

Det hele kan læses i hjælpen til makroen i VB Editoren.

.GetSaveAsFileName, kan jeg ikke lige helt hitte.

Hvis stien nu skulle være F:\Hillerød\Reparationssedler - HI, hvad skal jeg så skrive?

Tak for hjælpen indtil videre.




Besked fra: EXCELGAARD
Posteringsdato: 29.Jan.2013 kl. 10:05
Så kan du blot skrive:

ThisWorkbook.SaveAs "F:\Hillerød\Reparationssedler - HI\" & Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 29.Jan.2013 kl. 11:23
Citat: EXCELGAARD EXCELGAARD skrev:

Så kan du blot skrive:

ThisWorkbook.SaveAs "F:\Hillerød\Reparationssedler - HI\" & Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value


Den kommer desværre med en fejl.

En anden ting.

Kunne man i selve regnearket lave et ikon der har den funktion? ville gøre det lidt lettere end at skulle afspille den i macro.


Besked fra: EXCELGAARD
Posteringsdato: 29.Jan.2013 kl. 11:28
Du kan da ikke bare skrive, at "den kommer med en fejl"!
Det gi'r mig ikke mange chancer for at hjælpe...

Hvilken fejl?  Fejl-nummer?  Fejl-tekst?  Fejl-opførsel?
Hvad har du selv gjort for at finde afhjælpefejlen???

Et eller andet, der gi'r mig bare en lille chance...

(Hos mig virker makroen, så jeg tror det er en fejl-40)


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 29.Jan.2013 kl. 13:32
Ja undskyld. Fejl fra mig.

Den kommer med en fejl 1004. Method 'SaveAa' of objekt'_workbook'failed
Når jeg så ser den i debug, så er koden markeret med gul.

Jeg har prøvet at gemme som alm. fil og som skabelon. med og uden macroer.

Det er muligt en fejl 40, men det kan jo så heldigvis rettes ;-)

Den funktion som vi laver her, kan den laves som et ikon på selveregnearket?


Er det muligt at uploade en fil hvor jeg har lavet printscreens af fejlmeddelelserne på.




Besked fra: EXCELGAARD
Posteringsdato: 29.Jan.2013 kl. 13:38
Fejlen, som du skriver tilbage om, kan skyldes:

- Den angive sti ("F:\Hillerød\Reparationssedler - HI\") ikke findes,
  Opret stien først.

- Filnavnet er tomt,
  Står der noget i cellerne B1 - B4

- Filsti opbygningen er forkert
  Løb den igennem en gang til og se om filstien overholder standarderne for Windows filstier.


Og, ja, du kan tildele makroen til en knap på selve arket.

blot indsæt en hvilken som helt autofigur, og højreklik på autofiguren og vælg <Tildel makro> og vælg derefter din makro i makrolisten, der dukker op.


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 30.Jan.2013 kl. 09:55
Hvor er det bare sejt!!!!!!!


Jeg takker MANGE GANGE!!!!!!!

Jeg nu har selv prøvet (hahaha) og finde ud af hvordan man evt. gemmer det som en PDF-fil, kan du evt. hjælpe mig med den kode?


Besked fra: EXCELGAARD
Posteringsdato: 30.Jan.2013 kl. 10:19
Ja, jeg kan godt lave en makro, der gemmer dit regneark som en PDF-fil, men...

Kunne du ikke oprette en ny tråd, der hedder noget i retning af "Gemme som PDF", da det flader lidt udenfor kategorien for denne tråd, og der kunne jo tænkes, at være andre, der gerne ville kende til dette, og måske leder forummet igennem efter "PDF".

Ved at oprette en særsklidt tråd til dette emne, opnår vi, at flest mulig får glæde af løsningen Smile

Samtidig skal jeg lige vide, hvilken version af Excel, du benytter, da der er lidt foreskel på koden, alt efter, hvilken version, du benytter.


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: filipen
Posteringsdato: 30.Jan.2013 kl. 10:31
Det gør jeg, mange tak.


Jeg er dog i mellemtiden kommet i problemer.

Når jeg gemmer filen som skabelon med macro, så kommer jeg i problemer når jeg kører macroen.

Så skriver den at den ikke kan gemme projektmappen uden macro

* VB-projekt

Hvis du vil gemme en fil med disse funktioner, skal du klikke på nej og derefter vælge en macrobaseret filtype på listen Filtype.

Klik ja, hvis du vil forsat gemme som en projektmappe uden macro.

Hvordan komme jeg det til livs. når jeg gerne vil gemme min fil som en skabelon?




Print side | Luk vindue