質問編集履歴
1
コードを｢コード挿入｣で記入しました。質問を投稿した後で大変申し訳ないのですが、先ほど同じコードで試してみたら実行されました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
|
+
0. 番号リスト```ここに言語を入力
|
|
2
|
+
コード
|
|
1
|
-
### 別ブックのデータを取得し、指定したブックに貼り付ける
|
|
3
|
+
```### 別ブックのデータを取得し、指定したブックに貼り付ける
|
|
2
4
|
|
|
3
5
|
ある数値データを取得した後に、別ブックに貼り付けを行う
|
|
4
6
|
その処理をB2～D2に貼り付けたいので、For文で(a = 2 To 4)とし、(2,a)とセルの指定をしています
|
|
@@ -9,8 +11,8 @@
|
|
|
9
11
|
実行時エラー’424’
|
|
10
12
|
オブジェクトが必要です
|
|
11
13
|
```
|
|
12
|
-
|
|
14
|
+
```VB
|
|
13
|
-
Sub
|
|
15
|
+
Sub 弾性係数()
|
|
14
16
|
|
|
15
17
|
Dim RC As Integer
|
|
16
18
|
Dim OpenFileName, fileName, Path, SetFile As String
|
|
@@ -21,12 +23,12 @@
|
|
|
21
23
|
|
|
22
24
|
Application.DisplayAlerts = False
|
|
23
25
|
|
|
24
|
-
RC = MsgBox("データを取込みますか？", vbYesNo + vbQuestion, "確認")
|
|
26
|
+
RC = MsgBox("弾性係数のデータを取込みますか？", vbYesNo + vbQuestion, "確認")
|
|
25
27
|
|
|
26
28
|
|
|
27
29
|
For a = 2 To 4
|
|
28
30
|
|
|
29
|
-
If RC = vbYes
|
|
31
|
+
If RC = vbYes Then0.
|
|
30
32
|
|
|
31
33
|
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx")
|
|
32
34
|
|
|
@@ -58,8 +60,8 @@
|
|
|
58
60
|
|
|
59
61
|
|
|
60
62
|
Application.DisplayAlerts = True
|
|
61
|
-
|
|
62
|
-
End Sub
|
|
63
|
+
End Sub
|
|
64
|
+
```
|
|
63
65
|
### 試したこと
|
|
64
66
|
|
|
65
67
|
Setをつけてみましたが、エラーがでました。
|