2

ある範囲のファイル名からデータの列を抽出しています。私のファイル名はすべて、次の形式の文字列です。

Temporary PSD Report 'Month' 2011.xls

私はReplaceそれぞれから月を抽出するために使用しています。現時点では2段階で実行していますが、これは機能しますが、少し不器用なようです。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たが、元の文字列に影響がないか、エラーが発生します。

4

1 に答える 1

3

また、各スペース文字で文字列を分割し、4番目の単語を取得することもできます（インデックスは0から始まります）。

s = "Temporary PSD Report 'Month' 2011.xls"
mth = Split(s, " ")(3)
于 2012-06-26T12:56:55.137 に答える