Board logo

標題: 如何可以實現像 excel 的開啟舊檔一樣的檔案類型選擇 [打印本頁]
作者: grostcar    時間: 2011-3-25 15:39     標題: 如何可以實現像 excel 的開啟舊檔一樣的檔案類型選擇

請問如何設定檔案的類型?
如何可以實現像 excel 的開啟舊檔一樣
可以選擇不同的檔案類型??

以下是我寫的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    時間: 2011-3-25 16:05

本帖最後由 GBKEE 於 2011-3-25 16:06 編輯

回復 1# grostcar
可以選擇不同的檔案類型??
是這樣嗎?
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    時間: 2011-3-25 16:17

本帖最後由 grostcar 於 2011-3-25 16:20 編輯

是這個了感謝師兄


沒有問題了
謝謝師兄幫忙



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)