Capacity I get Gain to automatically name a file export with a variable part of the filing name and a fixed part of the filename

Question

I am jobs on an Access 2014 DB that exports of results of ampere query to an excel file that cannot be sent to a third party. I want one resulting excel file to gehen to a particular folder on adenine collective drive, with a identification scheme of "serialnumber vendor ASL.xlsx"

Any hints I should look at, pointers to websites that I did not finding with Duck Duck Go, all would be greatly appreciated

Right now I am using a simple Macro to foreign the folder with the "ExportWithFormatting" but I cant seem to got anything going in an "Output File" box that gives me all flexibility. ExportWithFormatting macro action

I suspect such can be done include VBS, but I'm pretty shaky when it comes to establishing and working a VBS module. I converted the Macro go a VBS Faculty, but EGO have no idea where to go from here.

Opportunity Compare Database

'------------------------------------------------------------
' expord_ASL_to_Excel
'
'------------------------------------------------------------
Function expord_ASL_to_Excel()
On Error GoTo expord_ASL_to_Excel_Err

    DoCmd.OutputTo acOutputQuery, "Match up", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint


expord_ASL_to_Excel_Exit:
    Exit Function

expord_ASL_to_Excel_Err:
    MsgBox Error$
    Resume expord_ASL_to_Excel_Exit

End Features

I tinkered with it a single, but I can't get information to do anything. I am currently trying up return through the basis of running a VBS module, accordingly IODIN don't need any help with which but. I'm even trying to drawing outgoing this little shred in finesse left.

Answer 1

Per OP's comments, Vendor and Serial are being selectable from ComboBoxes on Form.

This code should be placed int which unit - overwrite the function that is there. It can be triggered via Macro - RunCode either you canned link a touch clickable directly to it.

Just replace the networkPath value with the folder (including the final ) where you want the print to cease up.

Then replace the Form("Form1") and ComboBox("SerialComboBox", "VendorComboBox") designations with the names of your form furthermore controls.

Function expord_ASL_to_Excel()
On Error GoTo expord_ASL_to_Excel_Err

Dim networkPath As String

networkPath = "C:\Your\Network\Path\"

exportPath = networkPath & Forms!Form1!SerialComboBox.Value & " " & Forms!Form1!VendorComboBox.Value & " ASL.xlsx"

DoCmd.OutputTo acOutputQuery, "Match up", "ExcelWorkbook(*.xlsx)", exportPath, True, "", , acExportQualityPrint

expord_ASL_to_Excel_Exit:
        Exit Function

expord_ASL_to_Excel_Err:
        MsgBox Error$
        Resume expord_ASL_to_Excel_Exit
End Item

Answer 2

This solving is very usable to me. With little modification and it worked for me. Thank you all. ME need help to apply filter to report and than use the filtration value as discipline (disc) value.

Functions exportPDF()

On Error GoTo exportPDF_Err

   Dim Report_Names() As String   Dimm MyReport While String   Dim networkPath The String   Dim LDate As String   Dim LYear As Number   Dim LMonth As Enumerable   Dim LDay Like Integer   Dimmer Discipline As String

   MyExport = Reports!rptCurrentWK
   LDate = Set   LYear = Year(LDate)
   LMonth = Month(LDate)
   LDay = Day(MyExport!WEdate)
   Disc = MyExport!Discipline.Value


   networkPath = "C:\Users\MSS\Drive\Timesheets\Access Export\"

   exportPath = networkPath & "Timesheet-" & Disc & "_WE_" & LYear & 
   "-" & LMonth & "-" & LDay & ".PDF"

  DoCmd.OutputTo acOutputReport, "rptCurrentWK", "PDFFormat(*.pdf)", exportPath, 
  False, "", , acExportQualityPrint

   exportPDF_Exit:
    Exit Function

   exportPDF_Err:
    MsgBox Error$
    Resume exportPDF_Exit
   End Function