ACCESSとExcelの連携操作について

単純に、
"シミュ_Macro" 内で、
ThisWorkbook.Close SaveChanges:=True
で、自分自身を閉じているのに、
さらにAccessの方で、
wb.Close
ともう一度閉じようとしているのでエラーになっているように
思えます。

どちらかの Close を削除すればいいのでは。

ネットなどで調べてみると、そのあとのCloseとQuitがないとExcelファイルが占有状態になると記載があったのですが。。。

一回、Closeすれば十分でしょう。閉じてすでに存在してないものをさらに閉じようとすればエラーになるのは当然のことだと。

追記

サンプルを作成して実験してみました。

Excel の標準モジュール

Public Sub シミュ_Macro()
    MsgBox "シミュ_Macro実行!"
    ThisWorkbook.Close SaveChanges:=False
End Sub

Accessの標準モジュール

Public Sub ZZZZZZ()
    Dim EE As Object, wb As Object

    Set EE = CreateObject("Excel.Application")
    '本番はfalse
    EE.Visible = True
    EE.UserControl = False

    Set wb = EE.Workbooks.Open("C:\TEST\MacroTest.xlsm")
    EE.Run "シミュ_Macro"

    wb.Close
    EE.Quit
    Set wb = Nothing
    Set EE = Nothing
    MsgBox "END"
End Sub

これを実行すると、EE.Run "シミュ_Macro"で、

実行時エラー'440':
オートメーションエラーです。

とエラーがでます。
オープンしたwbが シミュ_Macro 内でCloseされて参照できなくなったからだと思われます。

シミュ_Macro内のThisWorkbook.Close SaveChanges:=Falseをコメントアウトして実行したら、
エラーなく最後まで実行され、"END" とメッセージが表示されました。

一旦全て閉じてから、CreateObject("Excel.Application")から始まる処理に変更してみてはどうでしょうか。

但し、マクロの実行については、ファイルのパスから指定する必要があると思います。

'''マクロ実行処理'''''''''''
        Set EE = CreateObject("Excel.Application")
'~　略 ~
        Set ws = wb.Sheets("Sheet1")
        ws.Range("A1").CopyFromRecordset RS1
        wb.Close
        EE.Quit
        Set wb = Nothing
        Set EE = Nothing

        Set EE = CreateObject("Excel.Application")
        EE.Run エクセルファイル名 + "!シミュ_Macro"
        EE.Quit
        Set EE = Nothing

    DoCmd.SetWarnings False
    DoCmd.OpenQuery ("Q_CHK_Clear")
    DoCmd.SetWarnings True
    MsgBox "END"
End Sub

まず、デバッグするならエクセルを表示させて、
どういう挙動か見て確認するのが早いでしょうね。

で、SaveChanges:=True は SaveChanges:=False がいいんじゃない？
たぶん、なんかダイアログが出てるんじゃぁないかなぁ？？

あと、Excel側で自分自身を閉じる処理があって、
Access側でも該当ブックを閉じる処理があるから、
そこでもデバッグが起きちゃうはず。

個人的には、そういう処理はExcel側にもたせず、
Access側で制御した方が分かりやすいと思うな。

共通関数化しておいて、流用する方がこういう時にメンテしやすいし、
Excelの処理を確認しにいかなくていいし、
楽になると思うよ。

細かいところかもだけど、
レコードセットの結果が０件だとどうなっちゃうのかな？
シートにヘッダーだけ張り付くのだろうか？
今のところ０件はあり得ないとしても、
ちゃんとしといた方が無難だろうね。