回答編集履歴
2
typo
test
CHANGED
@@ -15,7 +15,7 @@
|
|
15
15
|
```VBA
|
16
16
|
dim p as String
|
17
17
|
p = ActiveWorkbook.Path & "\*.pdf"
|
18
|
-
MsgB
|
18
|
+
MsgBox p
|
19
19
|
buf = Dir(p)
|
20
20
|
```
|
21
21
|
のようにして確認してみることです。
|
1
追記
test
CHANGED
@@ -3,3 +3,19 @@
|
|
3
3
|
```
|
4
4
|
これだとどうですか?
|
5
5
|
|
6
|
+
追記
|
7
|
+
|
8
|
+
いや
|
9
|
+
```VBA
|
10
|
+
buf = Dir(ActiveWorkbook.Path & "\*.pdf")
|
11
|
+
```
|
12
|
+
でいいのでしょうね。
|
13
|
+
|
14
|
+
まずは
|
15
|
+
```VBA
|
16
|
+
dim p as String
|
17
|
+
p = ActiveWorkbook.Path & "\*.pdf"
|
18
|
+
MsgBix p
|
19
|
+
buf = Dir(p)
|
20
|
+
```
|
21
|
+
のようにして確認してみることです。
|