teratail
回答率
85.31%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問【VBA】最終行取得時に400エラー

編集履歴

質問編集履歴

1

エラーの詳細、インデントの修正

2018/09/04 05:44

投稿

Tiroze
Tiroze

スコア35

test CHANGED
File without changes
test CHANGED
@@ -2,9 +2,17 @@
2
2
 
3
3
 
4
4
 
5
- 実行をしてみた所、以下最終行を取得する所で400エラーとなります。
5
+ 実行をしてみた所、以下最終行を取得する所で400エラー（※）となります。
6
6
 
7
7
  考えられる原因教えて頂けますでしょうか。
8
+
9
+
10
+
11
+ ポップアップウィンドウで400のみ表示されました。
12
+
13
+ 調べてみた所、「VBA エラー 400 アプリケーション定義または
14
+
15
+ オブジェクト定義のエラーです。」となっておりました。
8
16
 
9
17
 
10
18
 
@@ -40,9 +48,9 @@
40
48
 
41
49
  Do While f <> ""
42
50
 
43
- Set wb = Workbooks.Open(fol & "\" & f)
51
+ Set wb = Workbooks.Open(fol & "\" & f)
44
52
 
45
- wscnt = wb.Worksheets.Count
53
+ wscnt = wb.Worksheets.Count
46
54
 
47
55
 
48
56
 
@@ -50,49 +58,45 @@
50
58
 
51
59
 
52
60
 
53
- MaxRow = wb.Worksheets(i).Cells(Rows.Count, 6).End(xlUp).Row
61
+ MaxRow = wb.Worksheets(i).Cells(Rows.Count, 6).End(xlUp).Row
54
62
 
55
63
 
56
64
 
57
- MsgBox MaxRow
65
+ MsgBox MaxRow
58
66
 
59
67
 
60
68
 
61
- With wb.Worksheets(i).PageSetup
69
+ With wb.Worksheets(i).PageSetup
62
70
 
63
- .Orientation = xlPortrait
71
+ .Orientation = xlPortrait
64
72
 
65
- .Zoom = False
73
+ .Zoom = False
66
74
 
67
- If MaxRow > 20 Then
75
+ If MaxRow > 20 Then
68
76
 
69
- .FitToPagesTall = 1
77
+ .FitToPagesTall = 1
70
78
 
71
- Else
79
+ Else
72
80
 
73
- .FitToPagesTall = 2
81
+ .FitToPagesTall = 2
74
82
 
75
-
76
-
77
- End If
83
+ End If
78
84
 
79
85
 
80
86
 
81
- .FitToPagesTall = 1
87
+ .FitToPagesWide = 1
82
88
 
83
- .FitToPagesWide = 1
84
-
85
- End With
89
+ 　　　End With
86
90
 
87
91
 
88
92
 
89
- wb.Worksheets(i).PrintOut
93
+ 　　　wb.Worksheets(i).PrintOut
90
94
 
91
- Next i
95
+ 　　　Next i
92
96
 
93
- wb.Close
97
+ 　　　wb.Close
94
98
 
95
- f = Dir()
99
+ 　　　f = Dir()
96
100
 
97
101
  Loop
98
102