Office中国论坛/Access中国论坛

标题: 子窗體數據如何"新增"到EXCEL? [打印本页]

作者: lingsum 时间: 2009-12-7 18:30
标题: 子窗體數據如何"新增"到EXCEL?
以下是原本把子窗體數據匯出到一個新的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 时间: 2009-12-8 09:58
可使用 Set xlsWBook = xlsApp.Workbooks.Open(CurrentProject.Path & "\你的文件.xls")
打开原有文件,然后找到最后一行,然后开始插入

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)