小编Sam*_* WB的帖子

我正在尝试将文本框的内容从一个复制workbook到另一个.我从第一个workbook到第二个复制单元格值没有问题,但是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

谢谢你的帮助.