Hi All
I'm having a problem creating a csv file, I have been trying for over an hour now and cant see where I'm going wrong.
I can create the pdf's no problem, but I'm going around in circles with the csv file to finish the job.
I've bolded the troublesome part
Any help would be greatly appreciated,
Cheers
Paul
I'm having a problem creating a csv file, I have been trying for over an hour now and cant see where I'm going wrong.
I can create the pdf's no problem, but I'm going around in circles with the csv file to finish the job.
I've bolded the troublesome part
Any help would be greatly appreciated,
Cheers
Paul
VBA Code:
Sheet3.Activate
ChDir ActiveWorkbook.Path & "\"
fileSaveName = Sheet3.Range("B11") & " Customer Letter"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheet4.Activate
ChDir ActiveWorkbook.Path & "\"
fileSaveName = Sheet3.Range("B11") & " Service Schedule"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'save as csv
Sheet5.Activate
ChDir ActiveWorkbook.Path & "\"
fileSaveName = Sheet3.Range("B11") & " Import File"
[B]'this is the bit I'm having a problem with
ActiveSheet.ExportAsFixedFormat Type:=xlCSV, Filename:=fileSaveName
'I can't seem to get this correct[/B]
MsgBox Sheet3.Range("D11").Value & " " & "Customers Details Saved
"