標題: Application.FileDialog 問題 [打印本頁]

---

作者: enoch    時間: 2012-6-29 17:11     標題: Application.FileDialog 問題

若果用程式開啟檔案, 如何加上條件, 必需要開啟檔案, 不可以按取消結束視窗
With Application.FileDialog(msoFileDialogOpen)
        .FilterIndex = 2
        .AllowMultiSelect = false
        If .Show = -1 Then .Execute
    End With

另外用Workbooks.open 可以設定 read only  或 local = true
但用Application.FileDialog 還可以有這類設定嗎?
請指教

---

作者: GBKEE    時間: 2012-6-29 20:35

回復 1# enoch

1. Option Explicit
   
2. Sub Ex()
   
3.     With Application.FileDialog(msoFileDialogOpen)
   
4.         .FilterIndex = 2
   
5.         .AllowMultiSelect = False
   
6.         Do
   
7.         Loop Until .Show = -1
   
8.         Workbooks.Open .SelectedItems(1), ReadOnly:=True
   
9.     End With
   
10. End Sub

複製代碼

---

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