Замените String Two Different Parts

Question

Я извлекаю столбец данных из диапазона имен файлов. Все мои имена файлов являются строки в виде:

Temporary PSD Report 'Month' 2011.xls

Я использую Replace извлечь месяц от каждого, в данный момент я делаю это в два этапа, который работает, но это кажется немного неуклюжим. Есть ли способ использовать какой-то тип AND для нескольких замещений в одной строке?

Dim strfilename As String 
    Dim mnth As String 
    Dim mnthshrt As String 

    mnth = Replace(strfilename, "Temporary PSD Report ", "") 
    mnthshrt = Replace(mnth, " 2011.xls", "") 

Я попытался с помощью & и AND ссылаться на обе части должны быть удалены, но он либо не оказывает никакого влияния на исходной строке или выдает ошибку.

Answer 1

Вы также можете разбить строку на каждом пространство характер и занимает 4-е слова (индекс начинается с 0):

s = "Temporary PSD Report 'Month' 2011.xls" 
mth = Split(s, " ")(3)