Я працюю в Van 't Hek, голландській компанії, яка спеціалізується на всіляких фундаментальних роботах (бурінні / збірні палі, листові палі тощо). Я насправді інженер-автокад, але маю багато сценаріїв сценаріїв на декількох комп'ютерних мовах (html, java та lua).
Проблема:
- Наші шнекові крани мають IPC з gprs-модулем для надсилання даних про виробництво паль у zip-форматі на нашу вказану електронну адресу. Кран-оператор повинен ввести проект № і купу #, IPC додає за проектом № збільшення номера, щоб побачити порядок виробництва. Отже, поштовий файл виглядає так:
16000_1_1.zip (проект # _посилення # _піле #)
Раніше мені та моїм співробітникам доводилося вручну зберігати вкладення у потрібну папку. Поштовий відправник - це ідентифікатор крана, а тема виглядає так: "Вкладення електронної пошти: 16000_1_1.zip"
В даний час ми використовуємо невелику програму під назвою Outlook SaveAttachment для полегшення пошуку (надсилати з / дати / проекту №) та зберігати файли у потрібному місці. Нижче наведено приклад, де їх зберегти:
K: \ 3 Проекти \ 16000-16050 \ 16000 Розташування проекту - Назва проекту, Будівельна компанія \ 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
Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Формат (Зараз "yyyy-mm-dd") objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls" Встановити objAtt = Нічого кінця Sub