Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/objective-c/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 在工作表变量中找不到方法或数据成员错误_Vba_Excel - Fatal编程技术网

Vba 在工作表变量中找不到方法或数据成员错误

Vba 在工作表变量中找不到方法或数据成员错误,vba,excel,Vba,Excel,我有一段代码,允许用户使用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

我有一段代码,允许用户使用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控件文本框。有人能帮我理解吗?

工作表
类没有
txtSrc
属性。将
ws
变量声明为
Object
或作为特定的工作表接口(其代码名)。

为什么使用
…OLEFormat.Object.Object…
?尤其是
…Object.Object…
部分?不,它不一样。
ws.Shapes("txtSrc").OLEFormat.Object.object.value