在工作表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