teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VBA ファイルを開くダイアログ記憶

編集履歴

質問編集履歴

3

不正削除の打ち消し

2018/07/02 00:12

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- NginxにてURLリダイレクトをしたい
1
+ VBA ファイルを開くダイアログ記憶
test CHANGED
@@ -1,55 +1,65 @@
1
- 前提・実現したいこと
1
+ ファイル開くダイアログのカレントディレクトリを指定しているですが、
2
2
 
3
- Nginxにて、リバースプロキシサーバを作成し、バックエンドにいるWebサーバへURLリダイレクトをしたいです。「http://IPAddr/」とアクセスした際に、「http://IPAddr/loginpage_a」へリダイレクトさせたく。
3
+ カレントディレクトリから下の階層のディレクトリでファイルを開き(選び)
4
4
 
5
- よろしくお願いいたします。
6
-
7
- ※不足している情報等あれば追記いたします
5
+ ダイアログを閉じてまたダイアログを開いた際にカレントディレクトリではなく閉じる前の場所(階層)で開きたいのですが方法はありますでしょうか？
8
6
 
9
7
 
10
8
 
11
- 該当のソースコード
9
+ マクロのExcelを閉じてまた開いたときのマクロのダイアログはカレントディレクトリのままにしたいです。
12
10
 
13
- upstream backend {
14
-
15
- server 192.168.0.1:80;
16
-
17
- server 192.168.0.2:80;
18
-
19
- zone backend 64k;
11
+ 説明が下手で申し訳ありません
20
-
21
- }
22
12
 
23
13
 
24
14
 
25
- server {
26
-
27
- listen 80 default_server;
28
-
29
- listen [::]:80 default_server;
30
-
31
- server_name _;
15
+ よろしくお願い致します
32
-
33
- root /usr/share/nginx/html;
34
16
 
35
17
 
36
18
 
37
- location / {
19
+ ```VBA
38
20
 
39
- proxy_pass http://backend;
21
+ Private Sub btn_FileOpen_Click()
40
22
 
41
- rewrite ^(.*)$ loginpage_a permanent;
23
+ Dim OpenFileName As Variant, Target As Variant
42
24
 
43
- rewrite_log on;
25
+ 'カレントディレクトリを指定
44
26
 
45
- }
27
+ createobject("wscript.shell").currentdirectory = "\マシン名\d\mydirectory"
46
28
 
47
- }
29
+ OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
48
30
 
49
- 試したこと
31
+ MultiSelect:=True)
50
32
 
51
- rewrite /test loginpage_a permanent;
33
+ If IsArray(OpenFileName) Then
52
34
 
35
+ With Me.BookInput
53
36
 
37
+ 'リストボックスにファイル名を表示
54
38
 
39
+ For Each Target In OpenFileName
40
+
55
- とし、「http://IPAddr/test」とすると行けたのですが、「http://IPAddr/」とアクセスするといけず・・・
41
+ .AddItem Mid(Target,InstrRev(Target,"\")+1)
42
+
43
+ Pathname = Replace(Target, Filename, "")
44
+
45
+ .AddItem ""
46
+
47
+ BookInput.HorizontalScrollbar = True
48
+
49
+ .List(BookInput.ListCount - 1, 0) = Filename
50
+
51
+ .List(BookInput.ListCount - 1, 1) = Pathname
52
+
53
+ Next Target
54
+
55
+ End with
56
+
57
+ Else
58
+
59
+ MsgBox "キャンセルされました"
60
+
61
+ End If
62
+
63
+ End Sub
64
+
65
+ ```

2

2018/07/02 00:12

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA ファイルを開くダイアログ記憶
1
+ NginxにてURLリダイレクトをしたい
test CHANGED
@@ -1,83 +1,55 @@
1
+ 前提・実現したいこと
2
+
3
+ Nginxにて、リバースプロキシサーバを作成し、バックエンドにいるWebサーバへURLリダイレクトをしたいです。「http://IPAddr/」とアクセスした際に、「http://IPAddr/loginpage_a」へリダイレクトさせたく。
4
+
5
+ よろしくお願いいたします。
6
+
1
- ファイル開くダイアログのカレントディレクトリを指定しているですが、
7
+ ※不足している情報等あれば追記いたします
2
8
 
3
9
 
4
10
 
5
- カレントディレクトリから下の階層のディレクトリでファイルを開き(選び)
11
+ 該当のソースコード
6
12
 
13
+ upstream backend {
14
+
7
- ダイアログを閉じてまたダイアログを開いた際にカレントディレクトリではなく閉じる前の場所(階層)で開きたいのですが方法はありますでしょうか？
15
+ server 192.168.0.1:80;
16
+
17
+ server 192.168.0.2:80;
18
+
19
+ zone backend 64k;
20
+
21
+ }
8
22
 
9
23
 
10
24
 
25
+ server {
26
+
27
+ listen 80 default_server;
28
+
29
+ listen [::]:80 default_server;
30
+
31
+ server_name _;
32
+
11
- マクロのExcelを閉じてまた開いたときのマクロのダイアログはカレントディレクトリのままにしたいです。
33
+ root /usr/share/nginx/html;
12
34
 
13
35
 
14
36
 
15
- 説明が下手で申し訳ありません
37
+ location / {
16
38
 
39
+ proxy_pass http://backend;
40
+
41
+ rewrite ^(.*)$ loginpage_a permanent;
42
+
17
- よろしくお願い致します
43
+ rewrite_log on;
44
+
45
+ }
46
+
47
+ }
48
+
49
+ 試したこと
50
+
51
+ rewrite /test loginpage_a permanent;
18
52
 
19
53
 
20
54
 
21
- ```VBA
22
-
23
-
24
-
25
- Private Sub btn_FileOpen_Click()
26
-
27
- Dim OpenFileName As Variant, Target As Variant
28
-
29
- 'カレントディレクトリを指定
30
-
31
- createobject("wscript.shell").currentdirectory = "\マシン名\d\mydirectory"
32
-
33
-
34
-
35
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
55
+ とし、「http://IPAddr/test」とすると行けたのですが、「http://IPAddr/」とアクセスするといけず・・・
36
-
37
- MultiSelect:=True)
38
-
39
- If IsArray(OpenFileName) Then
40
-
41
- With Me.BookInput
42
-
43
-
44
-
45
- 'リストボックスにファイル名を表示
46
-
47
- For Each Target In OpenFileName
48
-
49
- .AddItem Mid(Target,InstrRev(Target,"\")+1)
50
-
51
- Pathname = Replace(Target, Filename, "")
52
-
53
- .AddItem ""
54
-
55
-
56
-
57
- BookInput.HorizontalScrollbar = True
58
-
59
- .List(BookInput.ListCount - 1, 0) = Filename
60
-
61
- .List(BookInput.ListCount - 1, 1) = Pathname
62
-
63
- Next Target
64
-
65
-
66
-
67
- End with
68
-
69
- Else
70
-
71
- MsgBox "キャンセルされました"
72
-
73
- End If
74
-
75
-
76
-
77
- End Sub
78
-
79
-
80
-
81
-
82
-
83
- ```

1

2018/06/30 08:47

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -26,11 +26,9 @@
26
26
 
27
27
  Dim OpenFileName As Variant, Target As Variant
28
28
 
29
- 'カレントディレクトリを指定
29
+ 'カレントディレクトリを指定
30
30
 
31
- ChDrive "C"
32
-
33
- ChDir "C:\test"
31
+ createobject("wscript.shell").currentdirectory = "\マシン名\d\mydirectory"
34
32
 
35
33
 
36
34