子窗體數據如何"新增"到EXCEL?

lingsum

以下是原本把子窗體數據匯出到一個新的EXCEL的VB
我現在想把子窗體數據 "新增"到同一個excel

例如:
我原本的excel有1列欄位+7項數據(結構與子窗體數據一模一樣)

現在子窗體查詢出10項數據
我要把這10項追加到excel里
最終共1列欄位+17項數據!

謝謝


Private Sub outexcel_Click()
On Error GoTo Err_outexcel_Click
Me.subform1.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject("Excel.Application")
obj.Workbooks.add
obj.Visible = True
SendKeys "^v"
Exit_outexcel_Click:
Exit Sub
Err_outexcel_Click:
MsgBox Err.Description
Resume Exit_outexcel_Click
End Sub

tmtony

可使用 Set xlsWBook = xlsApp.Workbooks.Open(CurrentProject.Path & "\你的文件.xls")
打开原有文件,然后找到最后一行,然后开始插入