2017-08-17 165 views
2

我有這樣的代碼,允許用戶使用filepicker方法或數據成員找不到錯誤在工作表中的VAR

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 = sFileNamews.txtSrc.Value = sFileName打開一個文件,它返回的方法或數據成員未找到錯誤。順便說一下,txtSrc是一個ActiveX控件文本框。有人能幫助我理解這一點嗎?

回答

3

Worksheet類不具有txtSrc財產。聲明ws變量Object或作爲特定片接口(其代碼名稱)。

+0

這是否與聲明工作簿一樣? – ramedju

+0

不,它不一樣。 – Rory

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

爲什麼'... OLEFormat.Object.object ...'?特別是'... Object.object ...'部分? – Jeeped

相關問題