¦p¦ó¥i¥H¹ê²{¹³ excel ªº¶}±ÒÂÂÀɤ@¼ËªºÀÉ®×Ãþ«¬¿ï¾Ü

grostcar

½Ð°Ý¦p¦ó³]©wÀɮתºÃþ«¬?
¦p¦ó¥i¥H¹ê²{¹³ excel ªº¶}±ÒÂÂÀɤ@¼Ë
¥i¥H¿ï¾Ü¤£¦PªºÀÉ®×Ãþ«¬??

¥H¤U¬O§Ú¼gªºopen file ªº code

   

Set Fso = CreateObject("Scripting.FileSystemObject")
        Set Fd = Application.FileDialog(msoFileDialogFilePicker)
        Fd.Title = "Please select a file"
        Select Case Fd.Show
            Case 0
                MsgBox ("You have not select a file")
                add_file = False
                Exit Function
                UserForm.Show
            Case -1
                Fld = Fd.SelectedItems(1)
                add_file = True
        End Select
    Workbook.Open Filename:=Fld, ReadOnly:=True

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

grostcar

¬O³o­Ó¤F·PÁ®v¥S


¨S¦³°ÝÃD¤F
ÁÂÁ®v¥SÀ°¦£