Blad Excel in PDF naar map

[Gijsbert1960]

Hallo allemaal

Ik heb een code die op 2 bladen wel werkt maar een 2 andere niet. Dan krijg ik dat het excel map niet meer reageerd. Maar hij slaat wel alle bladen op en niet alleen dus se actieve zoals moet. Ook ActieveSheet veranderd in naam van Sheet, zelfs dan heel werkbook als PDF.
Ik heb de volgende code

With ActiveSheet 'of specificeer de*sheet*als*Sheets("Factuur") ofzo
locatie = "D:\Melden"  'of "C:\Documents and Settings\Documenten\.."
naam = .Range("A1") & " " & .Range("D1") 'de cel met de bestandsnaam
With ActiveWorkbook
.ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
.Close False 'sluiten zonder*opslaan
End With
End With

M vr gr
Gijs

 

[edmoor]

Die code steekt nogal raar in elkaar en maakt niet duidelijk of je nou het werkboek of het werkblad als PDF wilt opslaan.
Tevens mist er een \ achter D:\Melden

 

[Gijsbert1960]

Hallo Edmoor

Hij moet het werkblad als PDF opslaan in de map melden op schijf D: en bij 1 blad liggend 2 andere die ik apart opsla staand. Hij is aangepast door mij vanaf een bestaande, en sloeg toen het excel bestand ook op in een aparte map en na aanpassen van dat doet hij nu de hele werkmap in PDF opslaan. Wel op D: maar niet in map melden.

M vr gr
Gijs

 

[HSV]

Om je een klein beetje op weg te helpen.

With ActiveSheet 'of specificeer de*sheet*als*Sheets("Factuur") ofzo
locatie = "D:\Melden[COLOR=#ff0000][SIZE=4]\[/SIZE][/COLOR]"  'of "C:\Documents and Settings\Documenten\.."
naam = .Range("A1") & " " & .Range("D1") 'de cel met de bestandsnaam
.ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
.Close False 'sluiten zonder*opslaan
End With

 

[Gijsbert1960]

Hallo HSV en Edmoor

Als ik Uw code gebruik krijg ik foutmelding met .Close False 'sluiten zonder*opslaan in geel. Als ik niet wil dat de werkmap van waaruit ik werk afgesloten wordt moet Close op False staan of wordt er de map melden mee bedoeld. Ik heb de onderstaande code gevonden op Help mij en ben die gaan aanpassen. Zodoende dat hij er raar uitzag.

With ActiveSheet 'of specificeer de*sheet*als*Sheets("Factuur") ofzo
locatie = "C:\Gebruikers\rafi\Dropbox\Recu\" 'of "C:\Documents and Settings\Documenten\.."
naam = .Range("A33") & " " & .Range("E18") 'de cel met de bestandsnaam
.PrintOut 'uitprinten
.Copy 'kopie naar nieuw werkboek
With ActiveWorkbook
.ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
.Close False 'sluiten zonder*opslaan
End With
End With
End Sub

M vr gr
Gijs

 

[HSV]

thisworkbook.close false 'of 0

betekent: bestand sluiten zonder het op te slaan (false).

 

[Gijsbert1960]

Hallo HSV

Ik heb de regel .Close False 'sluiten zonder*opslaan weggehaald en hij werkt nu perfect. Dank U beide voor de hulp.

M vr gr
Gijs