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

 

[Shi6oonz]

i traied to do

myFile = Application.SaveFilename _

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

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

But still not working
i want to save the file without ( SaveAs Dialog box)

 

[Fluff]

Why are you so against the SaveAs dialogue box?

 

[Fluff]

How about

myfile = "C:\Folder1\Folder2\filename_" & format(Now, "d_m_yy_h_m_s")

 

[Shi6oonz]

It Works perfect now
thanks a looooooooot Fluff

 

[Fluff]

Glad to help & thanks for the feedback

 

[Shi6oonz]

Glad to help & thanks for the feedback

This is the code i used and it work sharp & perfect

'STY 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\STY"
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
[B][U]myFile = "C:\Laboratory _Tracking _System\Reports\STY\" & Format(Now(), "yyyymmdd\_hhmmss")[/U][/B]


'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