我在資料表視圖中有一個帶有子表單的表單，我希望它們都匯出到同一個 excel 檔案中。
我正在使用我發現的這段代碼匯出子表單，這很好用，但我也想向其中添加主表單資料。
Private Sub Command457_Click()
On Error GoTo Command13_Click_Err
Me.ProstojeSubform.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim xlapp As Excel.Application
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.Add
.ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a1").Select
End With
Command13_Click_Exit:
Exit Sub
Command13_Click_Err:
MsgBox Error$
Resume Command13_Click_Exit
End Sub
我可以使用 OutputTo 或內置匯出來匯出表單本身，但不確定如何將它們組合成一個 excel 檔案。
uj5u.com熱心網友回復：
可以通過直接參考填充作業表的單元格.Range("A1").Value = Me.textboxname。
然后需要將子表單資料粘貼到下一行。粘貼前選擇單元格。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/389976.html