|
▼ichinose さん:
ありがとうございます。うまくいきました。
「うまくいかない」のではなくて、どこをどうやって変更すれば自パスになるのかわかりませんでした。
表現が間違っていました。
もうひとつ質問があります。
この取得した値をセルに表示させる場合、
Sub main()
MsgBox get_folder_path("SelectFolder", ThisWorkbook.Path & "\")
End Sub
のところを
Range("A1").value = get_folder_path("SelectFolder", ThisWorkbook.Path & "\")
と変更すればいいと思うのですが、取得したフォルダ名のみを表示させたいのです。
そこで
Dim pas1 As String
Dim pas2 as integer
Dim i As Integer
pas = get_folder_path("SelectFolder", ThisWorkbook.Path & "\")
i = InStr(pas, "自分のフォルダ")
j = Mid(pas, i + 8, 10)
Range("A1).Value = pas2
なんて風に変えれば「自分のフォルダ」というフォルダ配下のフォルダ名だけは出ますが、その配下のフォルダ名の文字数は一定ではありませんし、最大何文字なのかは今後わかりません。ですからMID関数で値をとるとちょっと複雑になりそうなので、いい方法はありませんか?
それプラスもう一階層下のフォルダ名を別のセルに表示させたいと思っています。フォルダの階層はこのようになっています。
「\自分のフォルダ\01ABC\ABCDEFG」
例 セルA1に「01ABC」、セルA2に「ABCDEFG」と表示
よろしくお願いします。
|
|