Друзья, всем привет!
Столкнулся со след. проблемой: ежедневно приходят однотипные письма на почту с шаблонизированной информацией, данную информацию необходимо переносить в многоуважаемый Excel.
Решил написать макрос, которые бы перебирал скопированные письма с почты на диск в одну папку и забирал бы необходимую информацию.
но при запуске выдает ошибку, что msg. - не допустимый формат файла.
Есть ли способ вылечить данную проблему? Если нельзя, может пользовался кто-нибудь другим софтом для решения аналогичной задачи.
P.S. заранее спасибо
Столкнулся со след. проблемой: ежедневно приходят однотипные письма на почту с шаблонизированной информацией, данную информацию необходимо переносить в многоуважаемый Excel.
Решил написать макрос, которые бы перебирал скопированные письма с почты на диск в одну папку и забирал бы необходимую информацию.
Код |
---|
Sub qwe() Dim s As String, fldr As String fldr = "d:\письма\" s = Dir(fldr & "*.msg") Do While s <> "" With Workbooks.Open(fldr & s) 'копировать-вставить-сохранить .Close End With s = Dir Loop End Sub |
но при запуске выдает ошибку, что msg. - не допустимый формат файла.
Есть ли способ вылечить данную проблему? Если нельзя, может пользовался кто-нибудь другим софтом для решения аналогичной задачи.
P.S. заранее спасибо