[µo°Ý] ¿ï¾Ü¸ê®Æ§¨ ¶i¦Ó¨ú±o¨ä¦W¦r

yangjie

½Ð±Ð¦U¦ì¥ý¶i­Ì
        ¦bªí³æ¸Ì  ·Q¥Îµøµ¡§@¿ï¾Ü  ±o¨ì ¬Y¤@­Ó¸ê®Æ§X¦W¦r(§t¸ô®|) À³¦p¤U»yªk?
Ãþ¦ü¦p¤Uµøµ¡§@¿ï¾Ü  ±o¨ì ¬Y¤@­ÓÀÉ
    Filt = "Excel Files (*.xls),*.xls"
    FilterIndex = 5
    Title = "¿ï¾Ü¸ê®Æ¶×¤J¤§¨Ó·½ExcelÀÉ"
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)
    If UCase(FileName) = "FALSE" Then
        MsgBox "No file was selected."
        Exit Sub
    End If
    xlfileName = Dir(FileName)
¦Ó§Ú»Ý­nªº¬O  ¿ï¾Ü¸ê®Æ§¨     ¶i¦Ó¨ú±o¨ä¸ê®Æ§¨¦W¦r¡C
¨D±Ï©ó¥ý¶i­Ì            ÁÂÁÂ

yangjie

¦^´_ 1# yangjie
¦Û¦æ°Ñ¦Ò»¡©ú ¦Û½s¦¨¦p¤U:
Sub getfolder()
    Dim f1 As Object
    Set f1 = CreateObject("Scripting.FileSystemObject")
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 2
        If .Show = -1 Then
            For Each FileName In .SelectedItems
                 FolderName = f1.GetParentFolderName(Path:=FileName)
            Next FileName
        End If
    End With
    Set f1 = Nothing
    Set fd = Nothing
End Sub
¦ý¤£·|³]©w¦¨¥u¯à¿ï¤@­Ó?  ½Ð±Ð±Ð§Ú¡I

yangjie

¦^´_ 3# GBKEE
Á¤F