2 u012379736 u012379736 于 2013.10.09 14:11 提问

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!