Завершено

excel lowest bid gets the job with good rating.

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

Квалификация: Программирование на C#, Программирование на C++, Excel, Microsoft Access, Visual Basic

Показать больше excel save pdf macro, excel invoice save pdf vba, save pdf form saved, excel save pdf hyperlinks, excel save pdf hyperlink, excel save pdf keep hyperlink, excel hyperlinks save pdf, fpdf save pdf database, excel cpu save, php save pdf, document save pdf unique file name, save pdf 2007 vba, open save pdf file sql server, save pdf file asp

О работодателе:
( 29 отзыв(-а, -ов) ) Perth, Australia

ID проекта: #16310587

Поручен:

vmadhavan15

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. :)

$5 AUD / час
(12 отзывов(-а))
4.0

4 фрилансеров(-а) в среднем готовы выполнить эту работу за $6/час

beltran0404

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 Больше

$5 AUD / час
(75 отзывов(-а))
4.9
hsingla85

MS Excel Expert | VBA Champion | Available Immediately | Assured quality of the work and timed delivery |

$5 AUD / час
(3 отзывов(-а))
2.6
sloker18

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 Больше

$7 AUD / час
(1 отзыв)
1.0