APPLICATION.GETSAVEASFILENAME Issue

[Shi6oonz]

Hello dears i have an issue witch is i am using code to SaveAs a specific Cell Range to Specific Folder and it works good, but i need to save direct to the folder without SaveAs method
please see the code below, thanks in advance

'DAIPHRAM SHEET PDFSub PDFActiveSheet()


Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
Dim WorkRng As Range
On Error GoTo errHandler


Set WorkRng = Application.Selection
Set WorkRng = Application.Range("A1: N19")
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")


'get active workbook folder, if saved
strPath = "C:\Laboratory _Tracking _System\Reports\CAUSTIC"
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"


'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")


'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile


'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    '(InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        'Title:="Select Folder and FileName to save")


'export to PDF if a folder was selected
If myFile <> "False" Then


    WorkRng.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If


exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

myFile = Application.GetSaveAsFilename _    '(InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        'Title:="Select Folder and FileName to save")

i need to change saveAs to Save only
help please

 

[Fluff]

Use

myfile = "C:\Folder1\Folder2\File.pdf"

changing folders & file name to suit

 

[Shi6oonz]

thanks for replay

i used this
Code:
myFile = "C:\Folder1\Folder2\File.pdf"
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")
Gives me errors

 

[Shi6oonz]

Use

myfile = "C:\Folder1\Folder2\File.pdf"

changing folders & file name to suit

It works but the file overwriting to the last one i saved
any idea ?

 

[Fluff]

Stick with the code you started with.
Failing that have the filename somewhere on the sheet & use something like

myfile = "C:\Folder1\Folder2\" & Range("A1").value

 

[Shi6oonz]

Stick with the code you started with.
Failing that have the filename somewhere on the sheet & use something like

myfile = "C:\Folder1\Folder2\" & Range("A1").value

Still Overwriting ...
any idea guys ?

 

[Fluff]

You need to change the value in the cell before saving

 

[Shi6oonz]

Yes i know but i need to avoid Overwriting automatically by Create new name of same selected RANGE

 

[Fluff]

Will you be doing once a day, or more than once a day?

 

[Shi6oonz]

More than Once a day ...