VBA实现Excel文件数据导入文本框运行时错误求助

错误原因 #

原代码存在两个核心问题：

• TextBox1.Value是字符串属性，没有PasteSpecial方法，这是触发运行时错误的直接原因。
• GetOpenFilename的文件过滤器格式错误，冗余星号会导致文件选择对话框无法正确过滤Excel文件。

修正方案 #

直接将目标单元格的值赋值给文本框（无需复制粘贴，更高效可靠），同时修正文件过滤器格式：

Private Sub CommandButton1_Click()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    
    ' 修正文件过滤器格式，正确匹配Excel文件
    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)
        ' 直接将单元格值赋值给文本框，替代错误的PasteSpecial调用
        ThisWorkbook.Worksheets("SelectFile").TextBox1.Value = OpenBook.Sheets(1).Range("A2").Value
        OpenBook.Close False
    End If
    
    Application.ScreenUpdating = True
End Sub

备选方案（若需使用剪贴板） #

如果因特殊需求必须通过剪贴板传递内容，可将错误的粘贴行替换为：

ThisWorkbook.Worksheets("SelectFile").TextBox1.Paste

但此方法依赖剪贴板状态，不如直接赋值稳定。

内容的提问来源于stack exchange，提问作者Jared-Schrec