レコードを別のテーブルに移動するためのVBA

Question

レコードをテーブルシート2からテーブルシート3に移動したいとします。

オブジェクトが開いているときに操作を実行できません。

With Acon 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + myFileNameDir 
    .Open 
End With 

With Rs 
    .CursorLocation = adUseClient 
    .CursorType = adOpenDynamic 
    .LockType = adLockOptimistic 
    .ActiveConnection = Acon 
    .Source = "Select * from [Sheet2] where [Manager Com]= 'OK'" 
    .Open 
End With 

With Rs1 
    .CursorLocation = adUseClient 
    .CursorType = adOpenDynamic 
    .LockType = adLockOptimistic 
    .ActiveConnection = Acon 
    .Source = "Select * from [Sheet3]" 
    .Open 
End With 

Dim strSQL As String 
strSQL = "INSERT INTO Sheet3 SELECT * From Sheet2 where [Manager Com]= 'OK'" 
Rs.Open strSQL 

Rs1.Close 
Rs.Close 
Acon.Close 

Set Rs = Nothing 
Set Acon = Nothing 

Answer 1

私は、クエリからのステートメントを実行しようとしているからだと思います。 次のコードを試してください。

Dim CMD As Object 
Dim strSQL As String 

With Acon 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + myFileNameDir 
    .Open 
End With 

Set CMD = CreateObject("ADODB.Command") 
CMD.ActiveConnection = ACon 


strSQL = "INSERT INTO Sheet3 SELECT * From Sheet2 where [Manager Com]= 'OK'" 

CMD.CommandText = strSQL 
CMD.Execute 

Acon.Close