ActiveX Spreadsheet MS access

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

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

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

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

Источник

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. xlUp). конец строки с концом с

MsgBox "Таблица размеров, Lines = " & lastrow & " columns = " ​​& lastColumn

ReDim linea (lastColumn)

Для i = 1 до последней Для j = 1 до последней столбца

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

Следующая "следующая строка" распоряжается Set mySht = Nothing

Источник

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

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

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

Источник
Другие вопросы по тегам