Вопрос : Я хотел parse вне текст в внешнем виде using VBA и сохранить значения в электронная таблица

Hi,

I имеет сообщение и поле текста как показано в прикрепленном изображении. Эти от OnTime, продукта от Axasoft.

I хочет к

1) Parse вне это электронная почта и извлекает номер случая using
2) Pase emal и извлекает
3) прилагает текст «номер случая», «состояние» к file

I текста принимает это требовало VBA, но любой подход который работает отлично.

class=

Ответ : Я хотел parse вне текст в внешнем виде using VBA и сохранить значения в электронная таблица

Здесь мое разрешение.  Последуйте за этими инструкциями добавить Кодего к внешнему виду.

1.  Начните внешний вид
2.  Щелкните инструментами > макросом > редактором Висуал Басич
3.  Если уже расширено, расширьте предметы внешнего вида офиса Майкрософт
4.  Если уже расширено, расширьте модули
5.  Выберите существующий модуль (например Module1) путем double-clicking на ем или создайте новый модуль путем right-clicking модули и выбирать вставку > модуль.
6.  Скопируйте Кодего от коробки фрагмента Кодего и наклеите его в right-hand форточку окна редактора VB внешнего вида
7.  Редактируйте Кодего как нужно.  Я включил комментарии где бы ни, котор что-то или может изменить
8.  Щелкните иконой дискета на панели инструментов для того чтобы сохранить изменения
9.  Закройте редактора VB

Использовать это

1.  Выберите или раскройте сообщение
2.  Побегите macro CShene

Алтернатива должна изменить Кодего небольш для того чтобы побежать оно от правила.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41:

Sub CShene () Тусклое olkMsg как Outlook.MailItem, strIncidentNumber как шнур, strStatus как шнур, varLine как вариант, _ arrLine вариант как, objFSO как предмет, objFile как предмет Выберите случай TypeName (Application.ActiveWindow) Покрывайте «исследователь» Установите olkMsg = Application.ActiveExplorer.Selection (1) Покрывайте «контролера» Установите olkMsg = Application.ActiveInspector.CurrentItem Закончите отборное Для каждого varLine в разделении (olkMsg.Body, vbCrLf) arrLine = разделило (varLine, «: ") Если UBound (arrLine) > 0 после этого Выберите arrLine случая (0) Покрывайте «номер случая» strIncidentNumber = arrLine (1) Случай «состояние» strStatus = arrLine (1) Выходите для Закончите отборное Закончитесь если Затем Установите objFSO = CreateObject («Scripting.FileSystemobject») «На следующей линии изменении архив - имя и курс.» Установленное objFile = objFSO.OpenTextFile («C:\eeTesting\CShene.txt», ForAppending, поистине) objFile.WriteLine GetPrintable (strIncidentNumber) & «,» & GetPrintable (strStatus) objFile.Close Установите objFSO = ничего Установите objFile = ничего Закончите подводную лодку Функция GetPrintable (strValue как шнур) как шнур Тусклое intCount как интежер, strTemp как шнур Для intCount = 1 к Len (strValue) strTemp = средний (strValue, intCount, 1) Выберите случай Asc (strTemp) Случай 32 до 126 GetPrintable = GetPrintable & strTemp Конец отборный Затем GetPrintable = уравновешивание (GetPrintable) Функция конца