Я работаю в Van 't Hek, голландской компании, которая специализируется на всевозможных фундаментных работах (буровые / сборные сваи, шпунтовые сваи и т.д.). Я на самом деле инженер AutoCAD, но у меня есть опыт написания сценариев на нескольких языках (html, java & lua).
Эта проблема:
- У наших кранов auguring есть IPC с gprs-модулем для отправки данных о производстве свай в формате zip на указанный вами адрес электронной почты. Оператор крана должен ввести номер проекта и кучу, IPC добавляет за номером проекта порядковый номер, чтобы увидеть порядок производства. Итак, zip-файл выглядит так:
16000_1_1.zip (проект # _incrementing # _pile #)
Раньше мне и моим коллегам приходилось вручную сохранять вложения в нужную папку. Почтовый отправитель - это идентификатор крана, а тема выглядит так: «Вложения электронной почты: 16000_1_1.zip»
В настоящее время мы используем небольшую программу под названием Outlook SaveAttachment, чтобы упростить поиск (отправить из /date /project #) и сохранить файлы в нужном месте. Ниже приведен пример, где их сохранить:
K:\3 Projects\16000-16050\16000 Projectlocation - Название проекта, Строительная компания \06 Productiondata
Обратите внимание, что иногда необходимо создать папку 06 Productiondata, если в нее ничего не было сохранено ранее. Все остальные части пути являются переменными, и единственной ссылкой является номер проекта (т. Е. 16000).
- Затем мы распаковываем zip-файл в csv с помощью 7zip.
- У нас есть Excel-лист от производителя кранов, чтобы импортировать выбранные файлы и распечатать их на стандартном принтере (pdf24) в этом случае. Это выводит все файлы в определенную папку на K: мы вручную перемещаем файлы в нужную папку.
Вы все можете себе представить, что этот процесс становится болезненным, особенно если учесть, что у нас +10 подъемных кранов, которые каждый рабочий день дают дюжину свай.
Я смог получить файлы в папку K: диск с правилом и сценарием, но не сделать какой-либо сценарий поиска / сравнения, чтобы поместить его в нужную папку или автоматизировать, чтобы открыть Excelsheet и обработать файл ( с). Я возился с программой DirListing для сканирования структуры папок и вывода ее в файл (txt / csv).
Мне бы очень помогло автоматическое сохранение файлов в нужную папку проекта и в конечном итоге автоматизировать импорт в Excel и вывод pdf-файлов в ту же папку, что и csv-файлы.
У кого-нибудь есть идеи, как этого добиться? Может быть, какой-то пакетный файл или решение PowerShell (я еще не знаком с)?
Мой код:
Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat dateFormat = Format(Now, "yyyy-mm-dd")
'Change this path to the your folder location
saveFolder = "c:\temp\"
objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"
Set objAtt = Nothing
End Sub