Just nu i M3-nätverket
Gå till innehåll
the_bear_58

Spara arbetsbok med makro.

Rekommendera Poster

Postad (redigerade)

Jag har ett makro i en arbetsbok.

Allt fungerar utmärkt, utom raden i slutet på koden som sparar arbetsboken innan den stängs.

Vad har jag missat??

 

Så här vill jag att det skall fungera:

1. Skriv ut arket "Följesedel".
2. Spara arket "Registrering_utskrift" med värdet i "I2" som namn i "C: \ Ekonomi"
3. Rensa några celler.
4. Spara hela arbetsboken i den aktuella mappen. OBS ej samma mapp som i punkt 2.
5. Stäng arbetsboken.

Det måste vara i den här sekvensen för att fungera för mig.

 

Jag har en liknande arbetsbok med samma kod som fungerar utmärkt.

Förstår inte varför denna inte fungerar.

 

Jag är långt ifrån expert så jag är tacksam för all hjälp jag kan få.

 

 

 

Packingslip_Eng_2.zip

Redigerad av the_bear_58

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Ojoj, se tråden

Bort med alla select och återkom..

 

Men men

 Vill du bara spara ett blad ur boken, då måste du kopiera ut det till en ny arbetsbok som du sparar. (du tappar då kod som inte finns på bladobjektet, kan spara utan makro

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Tack för ditt svar.

På din inrådan har jag efter bästa förmåga städat upp i makrot.

Är som sagt lång långt ifrån att vara expert.

Men något är fortfarande fel.

Som jag skrev tidigare så vill jag att det skall fungera så här:

 

1. Skriv ut arket "Följesedel". Detta fungerar.
2. Spara arket "Registrering_utskrift" med värdet i "I2" som namn i "C: \ Ekonomi" Detta fungerar inte fullt ut. Makrot sparar men alla celler är tomma.
3. Rensa några celler. Detta fungerar.
4. Spara hela arbetsboken i "C: \ Ekonomi\Följesedel" Detta fungerar inte.
5. Stäng arbetsboken. Detta fungerar.

 

Jag vet inte hur jag skall gå vidare för att få det att fungera.

Tacksam för all hjälp jag kan få.

Följesedel_TEST_3.1.zip

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Såhär brukar jag göra när jag ska spara ett blad:

 Dim newBook As Workbook
    Worksheets("Registrering_utskrift").Copy
    Set newBook = Workbooks(Workbooks.Count)
    newBook.SaveAs Filename:="c:\dev\test"
    newBook.Close saveChanges:=False

Notera dock att dom det finns formler som refererar till andra blad i boken eller liknande kan de bli lite galet. I de fallen, när  man bara vill spara värdena får man ett eller två steg till.

 

Dela upp koden i steg. Koden ovan kan exempelvis ligga i en rutin "SaveMyBook(filename, sheetname) "

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...