VBAで、ボタンによって、取得するパス名を変更したい。

Question

標記の通りなのですが、
ボタンによって、取得するパス名を変更するようなマクロを作りたいです。

取得した特定のパス名のフォルダに格納されたファイルがある場合、
先生とクラス名を取得して、クラス代表者別にメールを一括作成するマクロを作りました。
同様のフォルダ構成の添付ファイルがあるため、
ボタンを作成して、
ボタン名の変数をFileStorePathに渡して、
取得するパス名が異なるようにしたいです。

main()内の、FileStorePathの、fNameが今回ボタンの押下によって変更したい部分です。

ボタンを作成するときに、ボタンごとにfNameに、入れたいフォルダ名を宣言しましたが、
ボタンが動きません。

修正に、お力を貸していただけないでしょうか。

Enum Col '1以降の数値を省略した場合は+1される
    宛先 = 1
    複写
    クラス名
    クラス代表者氏名
    添付キーワード
    先生氏名
End Enum

Sub main()
    'Dim Col As Cols
    Dim r As Long
    'Outlookオブジェクトの作成
    Dim OutlookObj As Outlook.Application
    Set OutlookObj = New Outlook.Application

    For r = 2 To Cells(1, 1).End(xlDown).Row

        'メールアイテムオブジェクト作成
        Dim mailItemObj As Outlook.MailItem
        Set mailItemObj = OutlookObj.CreateItem(olMailItem)

        '添付ファイルオブジェクトの生成
        Dim attachObj As Outlook.Attachments
        Set attachObj = mailItemObj.Attachments

        Dim cName As String, sName As String, tName As String
        cName = Cells(r, Col.クラス名).Value
        tName = Cells(r, Col.先生氏名).Value

        Dim FileStorePath As String
        FileStorePath = "C:\Outlookテスト\" & tName & "先生\" & cName & fName

        '★添付ファイルが存在する場合のみ、メールアイテムを作成する
        If FileAttach(attachObj, FileStorePath) = True Then

            'メール本文作成
            Dim mailBody As String
            mailBody = CreateMailBody(r)

            'メールアイテム作成
            With mailItemObj
                .To = Cells(r, Col.宛先).Value
                .CC = Cells(r, Col.複写).Value
                .Subject = Cells(1, "I").Value '件名
                .Body = mailBody '本文
            End With

            mailItemObj.Display '下書きを表示

            '次のメールアイテムを作成するためいったん破棄
            Set mailItemObj = Nothing

        End If

    Next r

End Sub

↓このようなマクロを、ボタンごとに作り、main()を呼び出すようにしています。

Sub 1日時点_Click()
    Dim fName As String
    fName = "1日時点"
    Module1.main
End Sub

Answer 1

ボタンが動きません。

済みません。誤記かもしれませんが、

Sub 1日時点_Click()

先頭に数字は使えなかったと思います。
シートへボタンを追加して、そのままダブルクリックすればVBA側にコードが追加されます。
この中に、msgbox 999でも入れて動作確認したらどうでしょうか。

Answer 2

Module1.mainを呼ぶときにfNameを引数で渡せばいいと思います。

Sub 1日時点_Click()
    Dim fName As String
    fName = "1日時点"
    Module1.main(fname)
End Sub

Sub main(fname as string)

Comments

[oftn]

main()に引数fNamewを渡しましたが、動きません。
ボタンは、VBAの解説サイトを参考に、
outlookテスト.xlsm!'main "日程調整"'
のように作りましたが、それが誤りなのでしょうか。

[ryuno_vanilla]

スマホから失礼します。
cName & fName→cName & "¥" & fNameです。

[ryuno_vanilla]

ボタンへのマクロの割り当てはボタンを右クリックしてマクロの登録を選び、1日時点_Clickを選んでください

[oftn]

解決できました。
ありがとうございました。