Access子表單的子表單中第2記錄，如何可以导出成为Word的电子表格？求达人指點迷津。

CSDN移动问答

Private Sub Command264_Click()
On Error GoTo Err_Command264_Click

Set WordApp = CreateObject("Word.Application")      '創建 Word 應用類
WordApp.Visible = True      '設置 Word 可見
Set Word = WordApp.Documents.Open("E:\accesstest\testword.doc") '打開 Word 工作簿
With Word.Tables(1)

.cell(1, 2) = Forms![客戶資料查詢表]![建築物表]!建物門牌
.cell(2, 3) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!附屬建物
.cell(3, 3) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!面積

'以下已試過都不行
' DoCmd.GoToRecord , , acNext
' Me![建築物表]![建_附屬子表單]![附屬建物].SetFocus

' DoCmd.GoToRecord acActiveDataObject, , acNext
' DoEvents
' DoCmd.GoToRecord , , acNext, 2

.cell(2, 4) = Forms![客戶資料查詢表]![建築物表]![建_附屬子表單]!附屬建物
.cell(3, 4) = Forms![客戶資料查詢表]![建築物表]![建_附屬子表單]!面積
End With

Exit_Command264_Click:
Exit Sub

Err_Command264_Click:
MsgBox Err.Description
Resume Exit_Command264_Click
End Sub