如何在选择文件对话框中选择任意的工作表

zhangxiaoku

Dim fileopen
    Dim str As Long
    fileopen = Application.GetOpenFilename(FileFilter:="Excel??? ,*.xls;*.xlsx", MultiSelect:=False, Title:="哇哇哇哇哇哇哇哇哇哇哇哇哇")
    If TypeName(fileopen) = "Boolean" Then Exit Sub
    Workbooks.Open Filename:=fileopen
    Set fso = CreateObject("Scripting.FileSystemObject")
    a = fso.GetFileName(fileopen)
    arr = (Workbooks(a).Sheets("附表8").[a5].CurrentRegion)
    s = UBound(arr)
    Workbooks(a).Sheets("附表8").Range("A4:Z" & s).Copy Workbooks("Replacement and Calculation AutoRun Formal Edition v4.0.xlsm").Sheets("????8").[a4]
    Workbooks(a).Close

请问如何使这个“附表8”可以被在打开对话框中被选择，而不是固定就是“附表8”，我也可以选择“附表7”啥啥的