帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-3-21 23:02 | 只看該作者

[發問] 選擇資料夾進而取得其名字

請教各位先進們
      在表單裡  想用視窗作選擇  得到某一個資料匣名字(含路徑) 應如下語法?
類似如下視窗作選擇  得到某一個檔
Filt = "Excel Files (*.xls),*.xls"
FilterIndex = 5
Title = "選擇資料匯入之來源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)
而我需要的是  選擇資料夾    進而取得其資料夾名字。
求救於先進們          謝謝

樓主熱帖

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 2014-4-2 11:56 | 只看該作者

回復 3# GBKEE
謝了

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-4-2 10:22 | 只看該作者

本帖最後由 GBKEE 於 2014-4-2 10:29 編輯

回復 2# yangjie

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = True '
'AllowMultiSelect 屬性 True 如果允許使用者從檔案對話方塊選取多個檔案。讀/寫 Boolean
'但AllowMultiSelect 屬性對 msoFileDialogFolderPicker 不起作用

複製代碼

可用表單

Option Explicit
Private Sub UserForm_Initialize()
Ex
With ListBox1 '請先在表單中加入這控制項
.Font.Size = 12
.Top = 10
.Height = .ListCount * .Font.Size
DoEvents
.Left = 10
.Width = 300
.MultiSelect = fmMultiSelectMulti '接受多重選取
Width = .Width + 20
Height = .Height + 40
End With
End Sub
Private Sub ListBox1_Change()
Dim s As String, i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then s = s & .List(i) & vbLf
Next
If s <> "" Then MsgBox s
End With
End Sub
Private Sub Ex()
Dim f As Object, e
Set f = CreateObject("Scripting.FileSystemObject").getfolder(CurDir).SubFolders
For Each e In f
ListBox1.AddItem e
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 2014-3-22 01:02 | 只看該作者

回復 1# yangjie
自行參考說明自編成如下:
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
但不會設定成只能選一個?  請教教我！

TOP