質問編集履歴
8
前提・実現したいことの更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,8 +3,17 @@
|
|
|
3
3
|
まだまだ不慣れで、一人ではうまく解決できないためお力をお貸しください。
|
|
4
4
|
よろしくお願いします。
|
|
5
5
|
|
|
6
|
-
|
|
6
|
+
問題発生箇所を以下のように具体化したらうまく行きました。
|
|
7
|
+
しかし、発生問題の原因がわかりません。
|
|
7
8
|
|
|
9
|
+
問題箇所：
|
|
10
|
+
With WB1.Sheets("Sheet0")
|
|
11
|
+
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy **←ここ**
|
|
12
|
+
End With
|
|
13
|
+
|
|
14
|
+
解決時の式：
|
|
15
|
+
Range("A1:BQ1000").Copy
|
|
16
|
+
|
|
8
17
|
### 発生している問題・エラーメッセージ
|
|
9
18
|
|
|
10
19
|
```
|
7
試したこと の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -39,8 +39,14 @@
|
|
|
39
39
|
|
|
40
40
|
### 試したこと
|
|
41
41
|
|
|
42
|
-
with
|
|
42
|
+
①with文の不使用
|
|
43
|
+
WB1.Activate
|
|
44
|
+
' With WB1.Sheets("Sheet0")
|
|
45
|
+
'WB1.Sheets("Sheet0").Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
|
|
46
|
+
Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
|
|
47
|
+
'End With
|
|
43
48
|
|
|
49
|
+
②activate
|
|
44
50
|
With WB1.Sheets("Sheet0")
|
|
45
51
|
.activate
|
|
46
52
|
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy **←ここ**
|
6
試したこと の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -41,6 +41,12 @@
|
|
|
41
41
|
|
|
42
42
|
with構文の不使用
|
|
43
43
|
|
|
44
|
+
With WB1.Sheets("Sheet0")
|
|
45
|
+
.activate
|
|
46
|
+
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy **←ここ**
|
|
47
|
+
End With
|
|
48
|
+
|
|
49
|
+
※どちらも同様のエラーが出現します
|
|
44
50
|
### 補足情報（FW/ツールのバージョンなど）
|
|
45
51
|
|
|
46
52
|
ここにより詳細な情報を記載してください。
|
5
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
まだまだ不慣れで、一人ではうまく解決できないためお力をお貸しください。
|
|
4
4
|
よろしくお願いします。
|
|
5
5
|
|
|
6
|
-
目的：発生し
|
|
6
|
+
目的：発生しているエラーメッセージをでないようにしたい
|
|
7
7
|
|
|
8
8
|
### 発生している問題・エラーメッセージ
|
|
9
9
|
|
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,8 +3,8 @@
|
|
|
3
3
|
まだまだ不慣れで、一人ではうまく解決できないためお力をお貸しください。
|
|
4
4
|
よろしくお願いします。
|
|
5
5
|
|
|
6
|
+
目的：発生しめいるエラーメッセージをでないようにしたい
|
|
6
7
|
|
|
7
|
-
|
|
8
8
|
### 発生している問題・エラーメッセージ
|
|
9
9
|
|
|
10
10
|
```
|
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
|
|
22
22
|
F_Name = Sheets("作成手順").Range("C29")
|
|
23
23
|
|
|
24
|
-
Workbooks.Open (F_Name)
|
|
24
|
+
Workbooks.Open (F_Name)
|
|
25
25
|
Set WB1 = Workbooks(F_Name) 'Backlogダウンロードファイル
|
|
26
26
|
MaxR = WB1.Sheets("Sheet0").Cells(1, 1).End(xlDown).Row
|
|
27
27
|
MaxC = WB1.Sheets("Sheet0").Cells(1, 1).End(xlToRight).Column
|
2
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
|
|
1
|
+
.copyメソッドについて
|
body
CHANGED
|
@@ -39,8 +39,8 @@
|
|
|
39
39
|
|
|
40
40
|
### 試したこと
|
|
41
41
|
|
|
42
|
-
|
|
42
|
+
with構文の不使用
|
|
43
|
-
|
|
43
|
+
|
|
44
44
|
### 補足情報（FW/ツールのバージョンなど）
|
|
45
45
|
|
|
46
46
|
ここにより詳細な情報を記載してください。
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,10 +8,10 @@
|
|
|
8
8
|
### 発生している問題・エラーメッセージ
|
|
9
9
|
|
|
10
10
|
```
|
|
11
|
-
|
|
11
|
+
アプリケーション定義、またはオブジェクト定義のエラー
|
|
12
12
|
```
|
|
13
13
|
|
|
14
|
-
C29 ファイル
|
|
14
|
+
C29 ファイル名
|
|
15
15
|
|
|
16
16
|
|
|
17
17
|
Dim WB1 As Workbook
|
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
MaxC = WB1.Sheets("Sheet0").Cells(1, 1).End(xlToRight).Column
|
|
28
28
|
|
|
29
29
|
With WB1.Sheets("Sheet0")
|
|
30
|
-
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy
|
|
30
|
+
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy **←ここ**
|
|
31
31
|
End With
|
|
32
32
|
|
|
33
33
|
ThisWorksheets.Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
|