fout in VBA formule

[Havana100]

Beste,

ik ben echt geen kenner maar zou iemand mij kunnen vertellen welke fout er in deze formule zit?

Sub PDF()
'
' PDF Macro
'Dim FName As String
'Dim FPath As String
'FPath = "C:\Dropbox (EVS)\CF"
'FName = Sheets("CFMMR").Range("A1").Text



'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FPath & " \ " & FName_,Quality:=
xlQualityStandard , IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub


De bedoeling is om een bepaalde excel file altijd standaard af te drukken in een welbepaalde directory met een welbepaalde naam als pdf.

Iemand enig idee?

Sowieso bedankt !

 

[edmoor]

Af te drukken? Je bedoelt op te slaan neem ik aan?
Doe het eens zo:

Sub PDF()
'
' PDF Macro
Dim FName As String
Dim FPath As String

FPath = "C:\Dropbox (EVS)\CF"
FName = Sheets("CFMMR").Range("A1").Value & ".pdf"

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & FName
End Sub

 

[Havana100]

Edmoor,

Bedankt hoor, is inderdaad om als pdf op te slaan. Ik heb de ' tekens voor Dim, FPath en Fname verwijderd maar krijg nog altijd :

Sub PDF()
'
' PDF Macro
Dim FName As String
Dim FPath As String
FPath = "C:\Dropbox (EVS)\CF"
FName = Sheets("CFMMR").Range("A1").Text



'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FPath & " \ " & FName_,Quality:=
xlQualityStandard , IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

de twee regels : ActiveWorkbook.Export .... en de regel FPath...... blijven in het rood staan.

als ik de macro probeer uit te voeren krijg ik de melding : comileerfout : syntaxisfout

 

[edmoor]

Omdat je hier "FName_,Quality" nog steeds dat _ teken op een verkeerde plek hebt staan.
Tevens moeten hier " \ " de spaties uit.
Kijk naar de code zoals ik net in het vorige bericht plaatste.

 

[Havana100]

beste,

Ik heb uw macro overgenomen maar de regel ActiveWorkbook..... en daaronde de regel Filename: ..... blijven geel gekleurd.


heb je enig idee?

Sub PDF()
'
' PDF Macro
Dim FName As String
Dim FPath As String

FPath = "C:\Dropbox (EVS)\CF"
FName = Sheets("CFMMR").Range("A1").Value

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=FPath & " \ " & FName
End Sub

 

[edmoor]

Kijk nog eens naar de code die ik plaatste. Daar staat het anders en kan je zo kopiëren en plakken.
Misschien dat je me net voor was.

 

[Havana100]

beste,

Ik heb uw macro overgenomen maar de regel ActiveWorkbook..... en daaronde de regel Filename: ..... blijven geel gekleurd.


heb je enig idee?

Sub PDF()
'
' PDF Macro
Dim FName As String
Dim FPath As String

FPath = "C:\Dropbox (EVS)\CF"
FName = Sheets("CFMMR").Range("A1").Value

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=FPath & " \ " & FName
End Sub

 

[Havana100]

Edmoor,

Je code werkt perfect hoor !!!! Toch nog iets fout gedaan !!!!!

Super bedankt !!!!!