jacksetr.blogg.se

Implement ' yyyymmdd' within the File's Base Name and use the.

The problem is that ' yyyymmdd' is not a recognizable File Extension to be utilized with the TransferText() Method. MsgBox "All Files have Been Exported to: " & NewFldr, vbInformation, "Export Complete" MsgBox "All Files have Been Exported to: " & NewFolder, vbInformation, "Export Complete" Set fs = CreateObject("Scripting.FileSystemObject")ĭoCmd.TransferText acExportDelim, "BP_ATNDE_FILE Export Specification", "BP_ATNDE_FILE", NewFldr & "BP-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "CD_DS_FILE Export Specification", "CD_DS_FILE", NewFldr & "CD_DS-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "CUST_INPT_Vality Export Specification", "CUST_INPT_Vality", NewFldr & "CUST-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "EVNT_FILE Export Specification", "EVNT_FILE", NewFldr & "EVNT-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "EXP_FILE Export Specification", "EXP_FILE", NewFldr & "EXP-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "INSN_ORGZN_Vality Export Specification", "INSN_ORGZN_Vality", NewFldr & "INST-TEST." & DT_YR, False, ""ĭoCmd.TransferText acExportDelim, "PRD_FILE Export Specification", "PRD_FILE", NewFldr & "PRD-TEST." & DT_YR, False, ""