Microsoft Access 掲示板

質問がざっくりなので回答もざっくりになりますが

「共通部分はひとまとめに、処理を変えたいところは変数にしてプログラム内で任意に変更できるように」します

リンク先のコードを参考にするなら

  'データ元のクエリを開く
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("qsel受注伝票")


    '保存するファイル名のフルパスを組み立て
    strSaveBookPath = cstrSaveBookDir & "受注伝票_" & Format$(lngOrderID, "00000") & ".xlsx"

この部分が変数にする（固定では困る）部分ですかね

例えば

Public Sub ExcelTemplateSample(queryName As String, fileName As String)

  'データ元のクエリを開く
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset(queryName)


    '保存するファイル名のフルパスを組み立て
    strSaveBookPath = cstrSaveBookDir & fileName & ".xlsx"

のように変更して

Sub test()
  ExcelTemplateSample "qsel特別会員", "特別会員"
  ExcelTemplateSample "qsel通常会員", "通常会員"
  ExcelTemplateSample "qselビジター", "ビジター"
End Sub

と、出力処理を3回実行してやればファイルを3つ作ることができます