GBKEE

¦^´_ 1# grostcar
¥i¥H¿ï¾Ü¤£¦PªºÀÉ®×Ãþ«¬??
¬O³o¼Ë¶Ü?
Sub EX()
    With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Please select a file"
           .Filters.Clear
          .Filters.Add "xls", "*.xls", 1  
           .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2
           .Filters.Add "txt", "*.txt", 3   
           Select Case .Show
            Case 0
                MsgBox ("You have not select a file")
                add_file = False
                Exit Sub
                UserForm.Show
            Case -1
                Fld = .SelectedItems(1)
                add_file = True
        End Select
    Workbook.Open Filename:=Fld, ReadOnly:=True
    End With
End Sub