質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

4回答

7562閲覧

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

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/06/29 04:49

編集2018/07/02 00:12

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

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

よろしくお願い致します

VBA

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sysjojo

2018/06/29 05:14

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

退会済みユーザー

2018/06/29 06:08

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

回答4

0

ベストアンサー

VBA

1 ChDrive "C" 2 ChDir "C:\test"

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

投稿2018/06/29 05:05

ttyp03

総合スコア16996

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2018/06/29 06:09

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

2018/06/29 06:11

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

2018/06/29 06:19

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

2018/06/29 06:26

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

2018/06/29 06:26

クリックイベントで、毎回元に戻してるから当たり前でしたね。
退会済みユーザー

退会済みユーザー

2018/06/29 06:34

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

2018/06/29 06:36

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

2018/06/29 06:45

#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

2018/06/29 06:48

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

2018/06/29 06:48

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

2018/06/29 06:50

カレントというよりは"\マシン名\d\mydirectory"をカレントにしたいらしいので、ChDirは必要かと。 ここがカレントならいらないですね~。
退会済みユーザー

退会済みユーザー

2018/06/29 07:39

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

0

Application.FileDialog(msoFileDialogFilePicker) 使えば?

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

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

まぁがんばって。

投稿2018/06/29 07:09

ExcelVBAer

総合スコア1175

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

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

VBA

1Option Explicit 2 3Public prevPath As String 4 5Sub ボタン1_Click() 6 7 Dim path As String 8 Dim objfso As Object 9 10 path = "c:\" 11 12 Set objfso = CreateObject("Scripting.FileSystemObject") 13 If objfso.FolderExists(prevPath) = True Then path = prevPath 14 15 ChDir path 16 prevPath = objfso.GetParentFolderName(Application.GetOpenFilename("Text Files (*.txt), *.txt")) 17 18 Set objfso = Nothing 19 20End Sub 21

投稿2018/06/29 06:22

sysjojo

総合スコア325

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

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

投稿2018/06/29 06:16

編集2018/06/29 07:39
sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問