|
こんにちは。かみちゃん です。
>面倒であれば処理時にフォルダをひとつに
>まとめようかと考えています。
ある特定フォルダの下にあるブックをすべて処理するという方法がコードとしては
簡単なので、私は、その方法で考えてみます。
>>「山田たろう200602」など氏名はいろいろあると思うので、
>>ブック名「山田太郎200602」の後ろから6文字で氏名と年月をわけるということでいいですか?
>
>個人を判別するために氏名年月という
>ファイル名にしてみました。
>現在ヘルプを参照しながら思案中であります。
以下のような感じで、ファイル名から個人名と年月を判別することはできます。
Sub Test()
Dim strBookName As String
Dim strName As String
Dim strYYYYMM As String
strBookName = Replace(ActiveWorkbook.Name, ".xls", "")
strYYYYMM = Right(strBookName, 6)
strName = Left(strBookName, Len(strBookName) - 6)
MsgBox strName & vbCrLf & strYYYYMM
End Sub
|
|