麻辣家族討論版版 » Excel程式區 » 此段程式中如何加一個判斷？

返回列表下一主題上一主題發帖

[發問] 此段程式中如何加一個判斷？

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-16 17:23 | 顯示全部帖子

[發問] 此段程式中如何加一個判斷？

Sub OpenPath()
Dim fd As FileDialog, FileName As String, FileFolder As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
If .Show = -1 Then
FileFolder = .SelectedItems(1)
Else
End
End If
End With
Set fd = Nothing
End Sub

複製代碼

如何加一個判斷如果沒有選取時就不能離開FileDialog？Thanks.

樓主熱帖

收藏

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

2^#

發表於 2012-10-17 06:55 | 顯示全部帖子

謝謝兩位指教，兩位的代碼一樣可以用到，只是Hsieh大的代碼如果不選的話，會一直都在InitialFileName的位置，每次都要重新選取新位置，不是根據之前的記錄來選取，所以比較麻煩一點，不過還是可以用的啦！謝謝！

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

返回列表下一主題上一主題