Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
次々作成したファイル名をMsgBoxにまとめて表示したい。
投稿日時: 18/04/01 17:46:19
投稿者: のりぴっぴ

仕分け区分でフィルタリングし、次々新規ブックを作成、日付や仕分け区分入りのブック名を付けて閉じるマクロをつくりました。
で、最後にmsgboxで作成済みのブック名をまとめて表示したいとあれこれやろうとしましたが、いまだできていません。配列変数に次々格納し、msgboxで表示すれば良さそうなのですが、いまひとつやり方が浮かびません。どなたかご助力いただけませんでしょうか?
 
やろうとしていることのイメージは下記のとおりです。●1辺りまではできましたが、●2で行き詰まっています。よろしくお願いします。
 
'========================================================================
Sub 仕分け毎ブック()
'========================================================================
MyDIr = ThisWorkbook.Path & "\作業中\"
'↓仕分け区分範囲を決定
With Sheets("設定")
    Dim rngmaster As Range
    Set rngmaster = .Range(.Cells(16, "a"), .Cells(16, "a").End(xlDown))
End With
    '↓区分名で抽出
'---------------------------------------
For Each rng In rngmaster
    SgyWks.Activate
        ActiveSheet.Columns("a").AutoFilter Field:=1, Criteria1:="=" & rng.Value
    
        '↓フィルタ後の行数を数える。
         Dim MyRCnt As Integer
            MyRCnt = ActiveSheet.AutoFilter.Range.Columns(4).SpecialCells(xlCellTypeVisible).Count
 
    '---------------------------------------
    If MyRCnt > 1 Then
        ActiveSheet.Range("a1").CurrentRegion.copy
        '↓一番左にシートを追加
        Set SgyWks2 = Worksheets.Add(Before:=Worksheets(1))
            ActiveSheet.Paste Destination:=SgyWks2.Range("a1")
             
    SgyWks2.Select
    Application.CutCopyMode = False
    SgyWks2.Move
    '●1 ここで日付付きブック名を付け
    ActiveWorkbook.SaveAs Filename:=MyDIr & Format(Date, "yyyymmdd") & _
        rng.Value & "仕分けの明細"
    ActiveWorkbook.Close
     
    '●2 ここで配列変数BkNameにブック名を次々格納し、最後に格納したブック名をMsgとして表示したい。
    MsgBox "作業中フォルダに" & Join(BkName, vbCrLf) & "が作成されました。"
         
    End If
    '---------------------------------------
             
Next
'---------------------------------------
 
End Sub

回答
投稿日時: 18/04/01 19:53:58
投稿者: simple

動的配列の使い方ということですね。
 
こちらの掲示板の即効テクニックを活用下さい。
【動的配列を使う】
https://www.moug.net/tech/exvba/0150109.html

投稿日時: 18/04/01 21:02:00
投稿者: のりぴっぴ

ありがとうございます。
 
配列の世界にたどり着いたばかりで、何もわからずとっぴな質問寄せてしまって申し訳ありません。
頂いたヒントをベースに勉強させていただこうと思います。

投稿日時: 18/04/01 21:03:53
投稿者: のりぴっぴ

いただいたヒントで何とか行けそうな気がしてきました。
ありがとうございました。