“对象需要”的错误，同时选择一个文件，并显示路径

Question

我想通过点击我可以选择一个文件，所选文件的路径将显示在文本框上的Excel工作表上的浏览按钮同一个Excel sheet.This是代码中，我曾尝试：

Dim File_Path As Long 

With Application.FileDialog(msoFileDialogOpen) 
.AllowMultiSelect = False 
.Show 

GetFolder = .SelectedItems(1) 
TextBox1.Value = GetFolder 
End With 
End Sub 

当我运行的代码，我能够选择一个文件，但后来我得到一个运行时错误“所需的对象”而行

TextBox1.Value = GetFolder 

变得突出显示。任何人都可以帮助我这个。谢谢。

Answer 1

错误提示您在Activesheet或对象引用中没有任何TextBox对象不完整。

可能的解决方法（在谈论ActiveSheet时）：

ActiveSheet.TextBox1.Value = GetFolder 

或谈论任何其他表时：

Sheets("NameOfTheSheetHere").TextBox1.Value = GetFolder 

Answer 2

误解了这个问题。

这是另一种方式。

更换

TextBox1.Value = GetFolder 

与

ActiveSheet.Shapes("Textbox1").OLEFormat.Object.Object.Text = getfolder 

在一个更结构化的方式...

Sub Button2_Click() 
    Dim File_Path As Long 
    Dim shp As Shape 

    Set shp = ActiveSheet.Shapes("Textbox1") 

    With Application.FileDialog(msoFileDialogOpen) 
     .AllowMultiSelect = False 
     .Show 
     getfolder = .SelectedItems(1) 

     shp.OLEFormat.Object.Object.Text = getfolder 
    End With 
End Sub 

而且不是Application.FileDialog(msoFileDialogOpen)你可以使用内置的Application.GetOpenFilename

Private Sub CommandButton1_Click() 
    Dim Ret 

    Ret = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") 
    If Ret <> False Then _ 
    ActiveSheet.Shapes("Textbox1").OLEFormat.Object.Object.Text = getfolder 
End Sub 

顺便说一句"Excel Files (*.xls*), *.xls*"到"All Files (*.*), *.*"如果你想显示所有文件，而不仅仅是Excel文件。