フォルダ名指定してvbaにてexcelのフォルダ指定して読み込ませたいのですがファイル名がデフォルトでフォルダ名になる場合があり理由と解決方法を知りたい

Question

お世話になっております。
excel2016を使用しております。

B3のexcelフォルダのexcelをB2に記載するというVBAを組みたいと思い
https://excel-ubara.com/excelvba1/EXCELVBA376.html
を参考に下記のように作成しました……

Public Sub btnGetFilePath_Click()

Dim fPath As Variant
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
'        .Filters.Add "Excel2003", "*.xls"
        .Filters.Add "Excelファイル", "*.xlsx"
'        .Filters.Add "Excelマクロ有効", "*.xlsm"
        .InitialFileName = range("B3").Value
        .AllowMultiSelect = False
        If .Show = True Then
            fPath = .SelectedItems(1)
            ws.Cells(1, 2).Value = fPath
        End If
    End With
End Sub

普通に出来てる場合もあるのですが

excelA→
excelB→
　　　   C:\期+1と式コピー前

とB3に”C:\期+1と式コピー前”
とある場合だと文字コードでなんか変なキャラクターが入っているのか
F5で実行すると”ファイル名”に”期+1と式コピー前”とデフォルト値で入ってしまいます……

デフォルト値を空白にするとの指定はどのようにするのか伺ってよろしいでしょうか？
また”期+1と式コピー前”では何故このような事案が起こるのか伺ってよろしいでしょうか？

お忙しい所大変申し訳ないのですが何か情報をお持ちな方はコメント頂けますと幸いです。

Answer 1

.InitialFileName = range("B3").Value
で代入してるから、そりゃ入るんじゃないですか？

Comments

[退会済みユーザー]

ちょっと質問文からは読み取れなかったけど、
"C:\期+1と式コピー前" がフォルダ名であって、
ファイル名が入っていないから空白にしたいという事であれば、
"C:\期+1と式コピー前\" なら空白になるんじゃないですかね。

[ma2hiro]

あ……　仰る通りですね……
大変失礼しました。
.InitaileFileNameで指定しているから違うのでフォルダ指定は……と思って
.InitialView = range("B3").Value
としても
.Parent = range("B3").Value
しても指定のフォルダが開いてくれないのです……

もしかして指定のフォルダ内のexcelを指定する方法は
FileDialogオブジェクト
では出来ないのでしょうか？

ご助力頂けますようお願い申し上げます。

[ma2hiro]

グーグルで調べると
【EXCEL VBA】フォルダ選択ダイアログの初期フォルダを指定したい | EXCEL VBA 研究所（入門） https://vba-labo.rs-techdev.com/archives/1357
やっぱりそのフォルダ指定は.InitaileFileNameのようなのです……(+_+)

[退会済みユーザー]

InitaileFileName で、きちんとフォルダ変わりますよ。
英数記号の全角半角違ってたりして、実際に存在しないフォルダを指定してるんじゃないですか？
とりあえず質問とは別件のようですので、空白の問題が解決してるならクローズしてください。

[ma2hiro]

そう思って
```excel
excelA→
excelB→
　　　 C:\期+1と式コピー前
```
でやってみたけど駄目なのです……(T_T)

[退会済みユーザー]

一応、こちらで同じフォルダ名でフォルダを作成して、"C:\期+1と式コピー前\" で当該フォルダに変更されるのは確認しました。それでも変わらないという事であれば、別PCがあれば試してみて、別PCでは出来るなら、そちらの環境的な問題でしょう。

[ma2hiro]

radian様
コメントありがとうございます。
仰る通り今使用しているPCは不安定なので環境かも知れませんね……

他のPCで試せるのならば試してみます。
本当にありがとうございました。

[退会済みユーザー]

結局、空白にならない問題は解決したのでしょうか？
初期フォルダが変わらないのは質問文の内容とは別件のようですので、空白の問題が解決してるなら質問をクローズして、別に質問を建ててください。

[ma2hiro]

仰る通り　空白の問題は解決しましたのでクローズとさせて頂きます。
この度はありがとうございました。

[bebebe_]

1文字だけのフォルダを用意してセルでそのパスを指定したり
.InitialFileName = に直接パスを指定するなどしてまずはInitialFileNameの動作の問題なのか指定に問題があるかを調べたほうがいいのではないでしょうか

[ma2hiro]

bebebe_さん
仰る通りですね……
ちょっと年末でドタバタしているので時間が出来ましたら調べてみます。
（そのため未解決状態にしておきたかったのです……）