回答編集履歴
2
ついき
test
CHANGED
@@ -5,3 +5,67 @@
|
|
5
5
|
|
6
6
|
|
7
7
|
まずはこの誤記を修正したコードで動作確認してみてください。
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
(追加のアドバイス)
|
12
|
+
|
13
|
+
---
|
14
|
+
|
15
|
+
指摘① 宣言文について
|
16
|
+
|
17
|
+
---
|
18
|
+
|
19
|
+
`Dim fP , fN as String`
|
20
|
+
|
21
|
+
のような宣言文の書き方は、変数`fP`と変数`fN`をそれぞれString型で宣言しているように見えますが、実際には`fN`だけString型で宣言され、fPは型指定なし(=Variant型)で宣言されていることになります。
|
22
|
+
|
23
|
+
|
24
|
+
|
25
|
+
今回のコードでは特に影響はないと思いますが、ご注意ください。
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
指摘② 開いたブックの取得について
|
30
|
+
|
31
|
+
---
|
32
|
+
|
33
|
+
提示いただいたコードでは`Workbooks.Open`でブックを開き、同じファイル名でブックを探して処理をしようとしています。
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
しかし、`Workbooks.Open`はブックを開いた際にそのブックを戻り値として返してくれています。
|
38
|
+
|
39
|
+
ですので、
|
40
|
+
|
41
|
+
```
|
42
|
+
|
43
|
+
' Workbooks.Open a & "\" & b '1
|
44
|
+
|
45
|
+
'Ln = Workbooks(fN).Sheet1.Cells(Rows.Count, 2).End(xlUp).Row '2 ★エラーが発生するコード★
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
Dim wb As Workbook
|
50
|
+
|
51
|
+
Set wb = Workbooks.Open fP & "\" & fN '1
|
52
|
+
|
53
|
+
Ln = wb.Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row '2 ★エラーが発生するコード★
|
54
|
+
|
55
|
+
```
|
56
|
+
|
57
|
+
のように処理すれば、わざわざファイル名でブックを探す必要がなく、確実に開いたブックを対象に処理することができます。
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
なお`Sheet1`というシートの指定方法は、`Sheet1`を単独で使用すれば「そのマクロが書かれているブックのSheet1」を参照することができますが、ワークブックのプロパティではないため`Workbooks(fN).Sheet1`という使い方はできません。
|
62
|
+
|
63
|
+
|
64
|
+
|
65
|
+
指定のブックの第1シートを取得したいのであれば`Workbooks(fN).Worksheets(1)`といった書き方をしましょう。
|
66
|
+
|
67
|
+
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
以上、参考になれば幸いです。
|
1
しゅ
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
|
-
|
1
|
+
コード内の変数`a`と`b`はそれぞれ変数`fP`と`fN`の誤記ではないかと思います。
|
2
2
|
|
3
|
-
この誤記が原因でそもそもブックを開けていないからWorkbooksにも見つからないのではないでしょうか?
|
3
|
+
この誤記が原因で、そもそもブックを開けていないからWorkbooksにも見つからないのではないでしょうか?
|
4
4
|
|
5
5
|
|
6
6
|
|