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

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

2 个答案: