Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46434 / 76732 ←次へ | 前へ→

【35269】Re:複数シートからの集計結果を別ファイルに表示したい。
発言  かみちゃん E-MAIL  - 06/2/24(金) 16:18 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>面倒であれば処理時にフォルダをひとつに
>まとめようかと考えています。

ある特定フォルダの下にあるブックをすべて処理するという方法がコードとしては
簡単なので、私は、その方法で考えてみます。

>>「山田たろう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

6 hits

【35257】複数シートからの集計結果を別ファイルに表示したい。 アネモネ 06/2/24(金) 14:13 質問
【35258】Re:複数シートからの集計結果を別ファイル... かみちゃん 06/2/24(金) 14:23 発言
【35266】Re:複数シートからの集計結果を別ファイル... アネモネ 06/2/24(金) 15:43 質問
【35267】Re:複数シートからの集計結果を別ファイル... かみちゃん 06/2/24(金) 15:54 発言
【35268】Re:複数シートからの集計結果を別ファイル... アネモネ 06/2/24(金) 16:05 質問
【35269】Re:複数シートからの集計結果を別ファイル... かみちゃん 06/2/24(金) 16:18 発言
【35314】Re:複数シートからの集計結果を別ファイル... かみちゃん 06/2/26(日) 14:18 発言

46434 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free