Здравствуйте.
Подскажите, пожалуйста почему не считывается заданное имя файл fileR. Как видно из локального окна информации имя файла не определилось.
Суть макроса по дате выбрать необходимый файл, скопировать с заменой в нужную папку, разархивировать и произвести необходимые манипуляции с содержимым.
Подскажите, пожалуйста почему не считывается заданное имя файл fileR. Как видно из локального окна информации имя файла не определилось.
Суть макроса по дате выбрать необходимый файл, скопировать с заменой в нужную папку, разархивировать и произвести необходимые манипуляции с содержимым.
Код |
---|
Global ddate As Date Global sDay As String Global sDay2 As String Global sMonth As String Global sYear2 As String Global sDayMonth As String Global sYear2Month2 As String Sub unzip_pr() 'Reading date value ddate = Rdate + 1 'Setting date variables sDay = Format(ddate, "dd") sMonth = Format(ddate, "mm") sYear2 = Format(ddate, "yyyy") ' Setting vaiables sYear2Month2 = sYear2 + "_" + sMonth sYear3Month3 = sYear2Month2 + "_" + sDay fileR = CStr(mcr_path() + sYear3Month3 + "\" + sYear3Month3 + ".zip") fileRR = fileR sourceT = CStr(temp_dir & "\Grand.zip") FileCopy CStr(mcr_path() + "\" + sYear3Month3 + "\" + fileRR), sourceT ' Batch Shell "C:\Program Files\7-Zip\7z.exe e U:\DPT-GL\AUDITOR\CORRECTIONS\Grand\Grand.zip -y -o" & temp_dir & """" |