• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Werblad via macro opslaan als nieuw excel bestand

Status
Niet open voor verdere reacties.

leend009

Gebruiker
Lid geworden
17 aug 2011
Berichten
27
Ik heb in een macro opgenomen dat het werkblad waarin ik sta opgeslagen moet worden als een pdf bestand. De naam van de pdf wordt gevormd door een celverwijzing. Hieronder de macro. Deze werkt prima.

Range("v5").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\administratie\facturen\verkoopfacturen\Vossenberg" & Sheets("Bestand").Range("n1").Value & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False





Nu wil ik dat de worksheet niet als pdf maar als een xls (Excel) bestand wordt opgeslagen.
Ik heb al van alles geprobeerd maar kom er niet uit. Wie weet een oplossing?

mvgr
Jan
 
probeer eens :

Code:
ActiveSheet.SaveAs Filename="G:\administratie\facturen\verkoopfacturen\Vossenberg" & Sheets("Bestand").Range("n1").Value & ".xls"
 
Waarom een .xls (XL-2003 of lager) terwijl je een hogere versie gebruikt? En als het met een macro-opnamen lukt om te exporteren naar pdf dan kan je toch ook een macro opnemen om het blad op te slaan?

Code:
Sub VenA()
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs "G:\administratie\facturen\verkoopfacturen\Vossenberg" & Thisworkbook.Sheets("Bestand").Range("n1").Value & ".xls", 56
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan