Terminé

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

Compétences : Programmation C#, Programmation C++, Excel, Microsoft Access, Visual Basic

en voir plus : 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

Concernant l'employeur :
( 29 commentaires ) Perth, Australia

Nº du projet : #16310587

Décerné à:

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 / heure
(12 Commentaires)
4.0

4 freelance font une offre moyenne de $6/heure pour ce travail

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 Plus

$5 AUD / heure
(75 Commentaires)
4.9
hsingla85

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

$5 AUD / heure
(3 Commentaires)
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 Plus

$7 AUD / heure
(1 Évaluation)
1.0