質問編集履歴
3
画像の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
いろいろネットで調べてたが上手くいかない為ご教授下さい。
|
|
2
2
|
調べた結果**GetOpenFilename**を使用してフォルダ開くのは分かったのですが
|
|
3
3
|
アドレス（ドライブ？ネットワークドライブ？）がわからず開けません。
|
|
4
4
|
|
|
@@ -31,4 +31,5 @@
|
|
|
31
31
|
よろしくお願いします。
|
|
32
32
|
|
|
33
33
|
###追記
|
|
34
|
-
アドレスはフォルダの上の部分(添付ファイルの画像)をコピペすれば良いのでしょうか？
|
|
34
|
+
アドレスはフォルダの上の部分(添付ファイルの画像)をコピペすれば良いのでしょうか？
|
|
35
|
+
|
2
画像の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
いろいろネットで調べてたが上手くいかない為ご教授下さい。
|
|
1
|
+
いろいろネットで調べてたが上手くいかない為ご教授下さい。
|
|
2
2
|
調べた結果**GetOpenFilename**を使用してフォルダ開くのは分かったのですが
|
|
3
3
|
アドレス（ドライブ？ネットワークドライブ？）がわからず開けません。
|
|
4
4
|
|
|
@@ -28,4 +28,7 @@
|
|
|
28
28
|
まず、開きたいフォルダパスを調べないといけないのでしょうが、どれが正解かわかりません。
|
|
29
29
|
いろいろと分からない事だらけです。
|
|
30
30
|
ご不明な点がございましたらコメント下さい。
|
|
31
|
-
よろしくお願いします。
|
|
31
|
+
よろしくお願いします。
|
|
32
|
+
|
|
33
|
+
###追記
|
|
34
|
+
アドレスはフォルダの上の部分(添付ファイルの画像)をコピペすれば良いのでしょうか？
|
1
試した事の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,12 +6,19 @@
|
|
|
6
6
|
(社内のどのパソコンでもアクセス可能なフォルダ)に保管されています。
|
|
7
7
|
|
|
8
8
|
### 試した事
|
|
9
|
-
開きたいフォルダのパスをコピーして**ChDir**に挿入しても上手くいきませんでした。
|
|
9
|
+
①開きたいフォルダのパスをコピーして**ChDir**に挿入しても上手くいきませんでした。
|
|
10
|
+
②下記コードで出力されたパスを挿入しても上手くいきませんでした。
|
|
11
|
+
```VBA
|
|
12
|
+
Dim a As String
|
|
13
|
+
a = ThisWorkbook.Path
|
|
14
|
+
Debug.Print a
|
|
10
15
|
|
|
16
|
+
```
|
|
17
|
+
|
|
11
18
|
###現在の実行結果
|
|
12
19
|
デフォルト設定？されているファイルは開きます。
|
|
13
20
|
|
|
14
|
-
|
|
21
|
+
###問題のコード
|
|
15
22
|
```VBA
|
|
16
23
|
Dim OpenFile As String
|
|
17
24
|
ChDrive "C" ’←この中にドライブ？を入れる？
|
|
@@ -20,4 +27,5 @@
|
|
|
20
27
|
```
|
|
21
28
|
まず、開きたいフォルダパスを調べないといけないのでしょうが、どれが正解かわかりません。
|
|
22
29
|
いろいろと分からない事だらけです。
|
|
23
|
-
ご不明な点がございましたらコメント下さい。
|
|
30
|
+
ご不明な点がございましたらコメント下さい。
|
|
31
|
+
よろしくお願いします。
|