Ms access ActiveX电子表格MS access

我想请你帮忙

我正在尝试构建一个表单，在我希望通过VBA恢复数据并将其插入表中之后，用户可以选择将数据粘贴到表单电子表格中

如何使用Active X电子表格？？ 例如，如何知道单元格A1上的值

---

请帮帮我

您可以在绑定或未绑定控件中引用对象：

Private Sub Command3_Click()
    Set obj = Me.OLEUnbound0.Object
    MsgBox obj.ActiveSheet.[a1]
End Sub

我认为让用户给您提供包含数据的Excel工作表的名称会更容易。我怀疑在这种方法中会有相当多的训练

Set mySht = Me.Spreadsheet

和我一起 使用.ActiveWindow.ActiveSheet lastColumn=.UsedRange.Columns（mySht.ActiveWindow.ActiveSheet.UsedRange.Columns.Count）.Column lastrow=.Range（“A”&mySht.ActiveWindow.ActiveSheet.Rows.Count）.End（xlUp）.Row 以 以

MsgBox“表格尺寸，行=“&lastrow&”列=“&lastColumn

    mySht.Cells(i, j) 'something with the cell (i, j)
Next ' end line

ReDim linea（最后一列）

对于i=1到最后一行 对于j=1到最后一列

    mySht.Cells(i, j) 'something with the cell (i, j)
Next ' end line

下一行 “处置

---

Set mySht=Nothing

非常感谢您的关注。我是这样做的：见下一步