ActiveX Spreadsheet MS access

Question

Я хотел бы попросить вашу помощь, пожалуйста.

Я пытаюсь создать форму, где пользователь будет иметь возможность вставлять данные в электронную таблицу формы, после того как я захочу восстановить эти данные с помощью VBA, чтобы вставить ее в таблицу.

Как я могу использовать эту таблицу Active X? Как я могу узнать, какое значение на ячейке A1, например ????

, пожалуйста, помогите мне.

Answer 1

Set mySht = Me.Spreadsheet 

С mySht С .ActiveWindow.ActiveSheet lastColumn = .UsedRange.Columns (mySht.ActiveWindow.ActiveSheet.UsedRange.Columns.Count) .Column lastrow = .Range ("А" & mySht.ActiveWindow .ActiveSheet.Rows.Count) .END (xlUp) .Row End With End With

МздВох "Таблица Dimention, Линии =" & lastrow & "столбцы =" & lastColumn

ReDim Linea (lastColumn)

Для я = 1 Для lastrow При J = 1 Для lastColumn

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

'следующая строка ' Next распоряжения Set mySht = Nothing

Answer 2

Вы можете обратиться к объекту в связанном или несвязанном контроле:

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

Я думаю, что было бы проще просто получить пользователь, чтобы дать вам имя листа Excel с данными. Я подозреваю, что в этом методе будет довольно много тренировок.