Microsoft Access 掲示板

補足
id名変数を作らなくても、端に

'// ここでできたエクセルを、名前を自動でつけて(id名でよい)、指定のパスに保存したい
  .ActiveWorkbook.SaveAs "(指定のフォルダパス)" & "\" & rs!id名

  rs.close

で、動くと思われます
変数に置くメリットとしては、rsのopen時間を減らす、ファイルの存在チェック（ファイル名の変更）ができるようになるなどです

       For j = 0 To rs.Fields.Count - 1
           If rs(j).Name = "id名" Then id名 = rs(j)
       Next j

書き出しなのでフィールドの存在チェックは不要でした

       Dim id名 As String
       id名 = rs!id名
       For j = 0 To rs.Fields.Count - 1
           .cells(1, j + 1) = rs(j).Name
       Next j
       .cells(2, 1).copyfromrecordset rs
       .Visible = True
       rs.close

'// ここでできたエクセルを、名前を自動でつけて(id名でよい)、指定のパスに保存したい
  .ActiveWorkbook.SaveAs "(指定のフォルダパス)" & "\" & id名