teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問.copyメソッドについて

編集履歴

質問編集履歴

8

前提・実現したいことの更新

2019/03/22 07:33

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -8,7 +8,25 @@
8
8
 
9
9
 
10
10
 
11
- 目的：発生しているエラーメッセージをでないようにしたい
11
+ 問題発生箇所を以下のように具体化したらうまく行きました。
12
+
13
+ しかし、発生問題の原因がわかりません。
14
+
15
+
16
+
17
+ 問題箇所：
18
+
19
+ With WB1.Sheets("Sheet0")
20
+
21
+ .Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　**←ここ**
22
+
23
+ End With
24
+
25
+
26
+
27
+ 解決時の式：
28
+
29
+ Range("A1:BQ1000").Copy
12
30
 
13
31
 
14
32
 

7

試したこと　の追加

2019/03/22 07:33

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -80,9 +80,21 @@
80
80
 
81
81
 
82
82
 
83
- with構文の不使用
83
+ ①with文の不使用
84
+
85
+ WB1.Activate
86
+
87
+ ' With WB1.Sheets("Sheet0")
88
+
89
+ 'WB1.Sheets("Sheet0").Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
90
+
91
+ Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
92
+
93
+ 'End With
84
94
 
85
95
 
96
+
97
+ ②activate
86
98
 
87
99
  With WB1.Sheets("Sheet0")
88
100
 

6

試したこと　の追加

2019/03/22 07:23

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -84,6 +84,18 @@
84
84
 
85
85
 
86
86
 
87
+ With WB1.Sheets("Sheet0")
88
+
89
+ .activate
90
+
91
+ 　.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　**←ここ**
92
+
93
+ End With
94
+
95
+
96
+
97
+ ※どちらも同様のエラーが出現します
98
+
87
99
  ### 補足情報（FW/ツールのバージョンなど）
88
100
 
89
101
 

5

2019/03/22 07:12

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -8,7 +8,7 @@
8
8
 
9
9
 
10
10
 
11
- 目的：発生しめいるエラーメッセージをでないようにしたい
11
+ 目的：発生しているエラーメッセージをでないようにしたい
12
12
 
13
13
 
14
14
 

4

2019/03/22 07:07

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -8,7 +8,7 @@
8
8
 
9
9
 
10
10
 
11
-
11
+ 目的：発生しめいるエラーメッセージをでないようにしたい
12
12
 
13
13
 
14
14
 

3

2019/03/22 07:06

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -44,7 +44,7 @@
44
44
 
45
45
 
46
46
 
47
- Workbooks.Open (F_Name)　__**←このあと**__
47
+ Workbooks.Open (F_Name)　
48
48
 
49
49
  Set WB1 = Workbooks(F_Name) 'Backlogダウンロードファイル
50
50
 

2

2019/03/22 07:06

投稿

yumeno
yumeno

スコア27

test CHANGED
@@ -1 +1 @@
1
- Workbooks.Open (ファイル名)のあとがうまくいかない
1
+ .copyメソッドについて
test CHANGED
@@ -80,9 +80,9 @@
80
80
 
81
81
 
82
82
 
83
- C29　記載の値をファイル名に変更　(後続がうまくいかず)
83
+ with構文の不使用
84
84
 
85
- Set WB1 = Workbooks(F_Name) のコメントアウト(後続がうまくいかず)
85
+
86
86
 
87
87
  ### 補足情報（FW/ツールのバージョンなど）
88
88
 

1

2019/03/22 07:05

投稿

yumeno
yumeno

スコア27

test CHANGED
File without changes
test CHANGED
@@ -18,13 +18,13 @@
18
18
 
19
19
  ```
20
20
 
21
- インデックスが有効範囲にありません
21
+ アプリケーション定義、またはオブジェクト定義のエラー
22
22
 
23
23
  ```
24
24
 
25
25
 
26
26
 
27
- C29　ファイルのフルパス
27
+ C29　ファイル名
28
28
 
29
29
 
30
30
 
@@ -56,7 +56,7 @@
56
56
 
57
57
  With WB1.Sheets("Sheet0")
58
58
 
59
- .Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy
59
+ .Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　**←ここ**
60
60
 
61
61
  End With
62
62