Question

我想请你帮忙。

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

我该如何使用Active X电子表格？我怎么知道单元格A1上有什么值，例如????

请帮帮我。

Answer 1

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

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

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

Answer 2

Set mySht = Me.Spreadsheet

用mySht 使用.ActiveWindow.ActiveSheet lastColumn = .UsedRange.Columns（mySht.ActiveWindow.ActiveSheet.UsedRange.Columns.Count）.Column lastrow = .Range（“A”＆amp; mySht.ActiveWindow.ActiveSheet.Rows.Count）.End（xlUp）.Row 结束

结束

MsgBox“Table dimention，Lines =”＆amp;拉斯特罗＆amp; “columns =”＆amp; lastColumn

ReDim linea（lastColumn）

对于i = 1到lastrow 对于j = 1到lastColumn

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

下一个'下一行 '处置设置mySht = Nothing

ActiveX电子表格MS访问

2 个答案: