私はfiledialog関数からファイルを選択し、ファイルパスをstringに格納することができます。私はまた、選択したパスのフォルダ名が必要です。選択したファイルからフォルダパスを取得する方法を教えてください。ファイルパスからフォルダパスを取得する
選択されたファイルは次のとおりです。
U:\public\2016\Macro\CD-CW\109 file.xlsx
私はまで表示したい:
U:\public\2016\Macro\CD-CW\
マイコード
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Title = "Please select the file."
.Filters.Clear
.Filters.Add "Excel 2010", "*.xlsx"
.Filters.Add "All Files", "*.*"
If .Show = True Then
selfile = .SelectedItems(1) 'replace txtFileName with your textbox
End If
End With
の重複[VBAでパスから最後の要素を削除する方法(http://stackoverflow.com/questions/42462625/how-to-remove-the-last-element-from-a- path-in-vba) –
この質問には既に回答があります。[こちら](http://stackoverflow.com/a/42462687/4926357) –
['Scripting.FileSystemObject'を使用してください。 documentation/vba/990/scripting-filesystemobject/11587/retrieve-only-the-file-from-a-file-path)を参照してください。テキストの解析よりもエラーが発生しにくいです。 – Comintern