[[20031111155318]]　『シートの文字をマクロに取り込む』（秀じい）　ページの最後に飛ぶ

『シートの文字をマクロに取り込む』（秀じい）

初心者です。社内でエクスチェンジサーバーでアウトルックを使用していますが、
稟議書などの回覧順序を自動記録させたマクロなので回覧先ごとに残業申請などが多数存在しています。トホホです。

そこで、エクセルシート上に回覧先の名前を作っておいて・・・自動記録マクロの名前の部分だけ自動的に書き直す方法を教えていただきたいのです。

ActiveWorkbook.HasRoutingSlip = True

    With ActiveWorkbook.RoutingSlip
        .Recipients = Array("田中健", "池田隼人", "森真一", "原田ともよ")

宜しくお願いします。

 マクロでマクロを書き直すんですか？
 方法はあるんでしょうがココで書くべきものではないです。
 下記のようにセルの値を単純に配列変数に格納して
 変数をArray関数に渡すのではダメなんでしょうか。

 Dim MyArray() As String
 Dim MyCount As Long
 Dim i As Integer

     MyCount = Range("A65536").End(xlUp).Row
     ReDim MyArray(MyCount - 1)

     For i = 1 To MyCount
         MyArray(i - 1) = Cells(i, 1)
     Next i

 ブックを回覧するような環境がないので、検証できませんが・・・。
（KAMIYA)

コメント返信：