excel lowest bid gets the job with good rating.
$2-8 AUD / год.
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
ID Проекту: #16310587
Про проект
Доручено:
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. :)
4 фрілансерів(-и) готові виконати цю роботу у середньому за $6/годину
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 Більше
MS Excel Expert | VBA Champion | Available Immediately | Assured quality of the work and timed delivery |