ACCESSとＥＸＣＥＬの連携について
ACCESSとＥＸＣＥＬの連携について教えてください。
メインフォームＡ（単票）の中にサブフォームＢ（単票）があり、更にサブフォームＢ（単票）の中にサブフォーム（メインからみると孫フォーム）Ｃ（帳票）があるという構成のフォームがあります。各フォームにはそれぞれテキストボックスtext_X,text_Y,text_Zがあり、メインフォームにコマンドボタンＱがあります。いま、このコマンドボタンＱをクリックすることによってtext_X,text_Y,text_Zの内容をＥＸＣＥＬの特定ファイルの特定セル（例えばＬ１、Ｍ１、Ｎ１～１０）に反映させたいと思っているのですが、メインフォーム（Ａ）にあるtext_Xとサブフォーム（Ｂ）にあるtext_YはＥＸＣＥＬのセル（Ｌ１、Ｍ１）に取り込むことができるのですが、孫フォーム（Ｃ）にあるtext_Zをセル（Ｎ１～１０）に反映させることが出来ません。text_Zはフォームが帳票フォームであることからＬＯＯＰを使っています。コマンドボタンＱのクリック時のイベントでコードの書き方が違っているらしいのです。ＶＢＡは全く素人の手探り状態です。どなたか、素人でもわかるように教えていただけたら幸いです。よろしくお願い致します。
具体的には次のようなものです。（一部抜粋）
Private Sub コマンド145_Click()
Dim oApp As Object
Dim rs As DAO.Recordset
Dim i As Long
Set rs = Me!営業入力SF.Form.RecordsetClone
Set rs = 担当(1)Ｆ.Form.RecordsetClone
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
'指定のエクセルファイルを開く
oApp.Workbooks.Open Filename:="I:\再出発！\受注票.xlt"
'エクセルファイルへデータセットする
oApp.Range("名称").Value = Me![名称]
oApp.Range("住所").Value = Me![住所]
oApp.Range("パンフ送付").Value = Forms![営業F]![営業入力SF]![パンフ送付日]
oApp.Range("ＤＶＤ送付").Value = Forms![営業F]![営業入力SF]![ＤＶＤ送付日]
oApp.Range("正式見積書").Value = Forms![営業F]![営業入力SF]![正式見積書送付日]
oApp.Range("契約書送付").Value = Forms![営業F]![営業入力SF]![契約完了日]
'サブフォームの内容をエクスポートする
i = 11
Do Until rs.EOF
oApp.Range("Ｊ" & Format(i)).Value = rs!テキスト１
oApp.Range("Ｌ" & Format(i)).Value = rs!テキスト4
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing
Exit_コマンド145_Click:
Exit Sub
Err_コマンド145_Click:
MsgBox Err.Description
Resume Exit_コマンド145_Click
End Sub
（ＷＩＮＤＯＷＳ ＸＰ ＡＣＣＥＳＳ ２００２ ＥＸＣＥＬ ２００２ を使用）
お礼
どうもありがとうございました。