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 "表の次元、行 = " & lastrow & " 列 = " & 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