这个项目的最终目标是让用户使用他们的格式化excel表，有他们的方程内置。然后去我的excel工作表点击“导入”，他们的excel工作表中的数据就会导入到我的。我希望VBA代码浏览文件，打开文件，复制特定的单元格，并将其粘贴到Excel工作表中的文本框中。在下面的代码中，我能够浏览Excel文件，打开文件，复制数据，但我在粘贴行上遇到了一个运行时错误（ThisWorkbook.Worksheets（“SelectFile”）. TextBox1.Value.PasteSpecial xlPasteValues）。任何反馈都有帮助，谢谢！

Private Sub CommandButton1_Click()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File and Import Range", FileFilter:="Excel Files (*.xls*,**xls*")
    If FileToOpen <> False Then
       Set OpenBook = Application.Workbooks.Open(FileToOpen)
       OpenBook.Sheets(1).Range("A2").Copy
       ThisWorkbook.Worksheets("SelectFile").TextBox1.Value.PasteSpecial xlPasteValues
       OpenBook.Close False
    End If
    Application.ScreenUpdating = True
End Sub