excel lowest bid gets the job with good rating.
$2-8 AUD / saat
This is the current code, need you to edit it for
save file in PDF with file name from A1. it should overwrite if existing file. file should save to C:\Users\User\OneDrive\Invoice NAT\
Sub CreatePDF()
Dim wSheet As Worksheet
Dim vFile As Variant
Dim sFile As String
Set wSheet = ActiveSheet
sFile = Replace(Replace([url removed, login to view], " ", ""), ".", "_") _
& Range("A1") _
& ".pdf"
sFile = [url removed, login to view] & "" & sFile
vFile = [url removed, login to view] _
(InitialFileName:=sFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")
If Dir(vFile) > vbNullString Then _
If MsgBox("Overwrite File?", _
vbExclamation + vbYesNo, "Overwrite?") = vbNo Then Exit Sub
If vFile <> "False" Then
[url removed, login to view]("B2:J44").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "PDF file has been created."
End If
End Sub
Proje NO: #16310587
Proje hakkında
Seçilen:
Hi Roddy.. Just bid on this project with just $5 which is very very low on my hourly rate you know that.. Please ping me if you are ok with this bid. :)
Bu iş için 4 freelancer ortalamada $6/saat teklif veriyor
Hello, I am Luis from Venezuela and it will be my pleasure to help you with this project. I can add the routine missing to save your work as pdf. Please contact me by chat to clarify somethings. Looking forward t Daha Fazla
MS Excel Expert | VBA Champion | Available Immediately | Assured quality of the work and timed delivery |
I have read your proposal that you want to skip save confirm and save the file to another directory, I am proficient in using Microsoft Excel macro and visual basic, I can finish your requirement very quickly, I assure Daha Fazla