![]() 'Exits procedure if the date is left blankĭoCmd.TransferText acImportDelim, ("'"), "Contracts", \\Zbnawlfs002\Dept\AR-Collections\CashApplications\ContractLogReport\" & IIf(Month(SelectDate) < 10, Format(SelectDate, "mm"), Format(SelectDate, "m")) & "-" & IIf(Day(SelectDate) < 10, Format(SelectDate, "d"), Format(SelectDate, "dd")) & "-" & Format(SelectDate, "yyyy") & ".csv", True "The Date should be in the Format MM/DD/YYYY", "Report Import") Line572: SelectDate = InputBox("Enter the Date of the Report You Want to Import" & Chr(13) & Chr(10) & Chr(10) & _ ![]() ![]() 'Prompts user to select a date for the report to be imported Here is the code.ĪutoYesNo = MsgBox("Automatically Process Contract Report Update?", vbYesNo) I am trying to import a csv file once the user has selected a date.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |