ＩＥの中のエクセルから、通常のエクセルへコピーしたい。

ＩＥの中のエクセルから、通常のエクセルへコピーしたい。

ネット上のアクティブセルから、自分のパソコンのエクセルへセルの内容を
コピーしたいのですが、うまくアクティブになりません。
よろしくお願いします。

Sub TENKI()

部材記号 = ActiveCell.Value
部材名 = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1).Select
イエス = MsgBox(部材記号 & "　部材名も必要ですか？", vbYesNo)
If イエス = 6 Then
ActiveCell = 部材記号
ActiveCell.Offset(0, 2).Value = 部材名
ActiveCell.Offset(1).Select
ElseIf イエス = 7 Then
ActiveCell = 部材記号
ActiveCell.Offset(1).Select
End If
End Sub

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(Temporary:=True)
.Caption = "転記"
.OnAction = "TENKI"
.BeginGroup = True
End With
End Sub

No.1 ベストアンサー 回答者： noname#180098 回答日時： 2010/06/27 15:21

詳しくは知りませんが、使用しているExcelのエディションはProfessionalでしょうか。

Personalではできなかったと思います。

この回答への補足

早速の返事、ありがとうございます。
Professionalだと思います。

補足日時：2010/06/27 19:37