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