ms-access - ActiveX 电子表格 MS 访问

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" & mySht.ActiveWindow.ActiveSheet.Rows.Count).End( xlUp).Row End With End With

MsgBox "表格尺寸, Lines = " & lastrow & " columns = " & lastColumn

ReDim linea(lastColumn)

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

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

Next 'next Line' dispose Set mySht = Nothing