VBA ファイルを開くダイアログ記憶

Question

ファイル開くダイアログのカレントディレクトリを指定しているですが、
カレントディレクトリから下の階層のディレクトリでファイルを開き(選び)
ダイアログを閉じてまたダイアログを開いた際にカレントディレクトリではなく閉じる前の場所(階層)で開きたいのですが方法はありますでしょうか？

マクロのExcelを閉じてまた開いたときのマクロのダイアログはカレントディレクトリのままにしたいです。
説明が下手で申し訳ありません

よろしくお願い致します

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定   
createobject("wscript.shell").currentdirectory = "\マシン名\d\mydirectory"   
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               .AddItem Mid(Target,InstrRev(Target,"\")+1)
               Pathname = Replace(Target, Filename, "")
               .AddItem ""
BookInput.HorizontalScrollbar = True
.List(BookInput.ListCount - 1, 0) = Filename
               .List(BookInput.ListCount - 1, 1) = Pathname
           Next Target
       End with
   Else
       MsgBox "キャンセルされました"
   End If
End Sub

Comments

[sysjojo]

btn_FileOpen_Clickがn回目に押されたときにn-1回目の時のダイアログで選んだフォルダで開きたい、ということですかね？

[退会済みユーザー]

そうです。最初だけカレントディレクトリで開きたいです

Answer 1

    ChDrive "C"
    ChDir "C:\test"

この2行をUserForm_Initializeイベントに移動するだけでいいのでは。

Comments

[退会済みユーザー]

カレントディレクトリの指定の処理を間違えました。下記です
createobject("wscript.shell").currentdirectory = "\マシン名\d\mydirectory"

[ttyp03]

いや、まあそこはなんでもいいんですが・・・。
要はファイルを開くダイアログのときにディレクトリの移動をしなければ、という提案です。

[ttyp03]

ディレクトリの指定をしなければ勝手に前回のディレクトリから開いてくれると思います。

[sysjojo]

そうですよね。前回のディレクトリで開く気がしたんですが、なんとなく回答してしまった。
workbook_openでもファイルを開いたときに1回しか走らないイベントに書けばいいですね。(あんまりない？)

[sazi]

クリックイベントで、毎回元に戻してるから当たり前でしたね。

[退会済みユーザー]

ファイルを開くダイアログでカレントディレクトリで開き、フォルダ(階層)を移動してファイルを開いてダイアログを閉じる、
再度ダイアログを開いた際に、カレントディレクトリではなく閉じるまえにいたファイル(階層)のダイアログを開きたいです

[ttyp03]

ですから、その回答なんですけど、ダメでした？

[sysjojo]

#Thisworkbook
Option Explicit
Private Sub Workbook_Open()
ChDir "C:\"
End Sub

#Module1.bas
Option Explicit
Sub ボタン1_Click()
Application.GetOpenFilename ("Text Files (*.txt), *.txt")
End Sub

こういうこと

[sysjojo]

最初はカレントでいいなら、ChDirもいらない気が。

[ttyp03]

そゆこと
ChDirのタイミングはWorkbook_OpenでもUserForm_Initializeでもスタートアップ関数でもお好みで、ってことです。

[ttyp03]

カレントというよりは"\マシン名\d\mydirectory"をカレントにしたいらしいので、ChDirは必要かと。
ここがカレントならいらないですね～。

[退会済みユーザー]

ttyp03さん〉
回答ありがとうございます
解決しました

Answer 2

Application.FileDialog(msoFileDialogFilePicker) 使えば？

InitialFileName プロパティの設定を調整すればどうとでもなる。

Static変数を使うという手段もあるかも。

まぁがんばって。

Answer 3

こういうこと？
(カレントフォルダ変わってしまってよいのなら)

Option Explicit

Public prevPath As String

Sub ボタン1_Click()

    Dim path As String
    Dim objfso As Object
    
    path = "c:\"
    
    Set objfso = CreateObject("Scripting.FileSystemObject")
    If objfso.FolderExists(prevPath) = True Then path = prevPath
    
    ChDir path
    prevPath = objfso.GetParentFolderName(Application.GetOpenFilename("Text Files (*.txt), *.txt"))
    
    Set objfso = Nothing

End Sub

Answer 4

最後に開いたパスについては、VBA内で選択されたファイルのパスを保存して、それを使用して指定する必要があります。
Application.GetOpenFilenameであればカレントディレクトリですが、カレントディレクトリを変更しない場合は、Application.FileDialogを使用すると、開くパスを.InitialFileNameで指定できます。
ファイルを開くダイアログではじめに開くフォルダを設定する
※サンプルコード3が参考