方法或数据成员找不到错误在工作表中的VAR

Question

我有这样的代码，允许用户使用filepicker

Sub SelectFile() 

    Dim sFileName As Variant 

    Dim ws As Worksheet 

    Set ws = Sheets("Main") 
    sFileName = Application.GetOpenFilename("MS Excel (*.csv), *.xlxs") 

    If sFileName = False Then 

     MsgBox "No file selected.", vbInformation, "Warning!" 
     Exit Sub 
    End If 

    Sheets("Main").txtSrc.Value = sFileName 

End Sub 

当我试图改变Sheets("Main").txtSrc.Value = sFileName到ws.txtSrc.Value = sFileName打开一个文件，它返回的方法或数据成员未找到错误。顺便说一下，txtSrc是一个ActiveX控件文本框。有人能帮助我理解这一点吗？

Answer 1

的Worksheet类不具有txtSrc财产。声明ws变量Object或作为特定片接口（其代码名称）。

Answer 2

ws.Shapes("txtSrc").OLEFormat.Object.object.value