excel - Excel VBA 実行時エラー '424': TextBox をコピーしようとするとオブジェクトが必要です

Question

テキスト ボックスの内容を別のテキスト ボックスにコピーしようとしていますworkbook。セルの値を 1 番目workbookから 2 番目にコピーするのは問題ありませんがobject required、テキスト ボックスをコピーしようとするとエラーが発生します。これmacroは、コピーしたいデータを含むワークブックから実行されています。Excel 2007コードの使用:

Sub UploadData()
    Dim xlo As New Excel.Application
    Dim xlw As New Excel.Workbook
    Set xlw = xlo.Workbooks.Open("c:\myworkbook.xlsx")
    xlo.Worksheets(1).Cells(2, 1) = Range("d4").Value 'Copy cell content (this works fine)
    xlo.Worksheets(1).Cells(2, 2) = TextBox1.Text 'This gives me the object required error
    xlw.Save
    xlw.Close
    Set xlo = Nothing
    Set xlw = Nothing
End Sub

助けてくれてありがとう。

Answer 1

これが発生している理由TextBox1は、VBA モジュールとそれに関連するシートをスコープしているのに対し、Range は「アクティブ シート」をスコープしていることが原因である可能性があると思います。

編集

GetObject関数を使用して、ワークブックからテキスト ボックスを取得できるようです。