|
▼たろう さん:
>Workbooks(temp).Worksheets("Sheet3").Activate
>と記述してシート3をアクティブにするところまではできるの
>ですがどうもセルをアクティブにできないようです。
Workbooks(temp).Worksheets("Sheet3").Range("a3").Activate
この場合、Worksheets("Sheet3")がアクティブになっていないとエラーになります。
Sub openfile()
Dim Filename As String
Filename = Application.GetOpenFilename("EXCELファイル (*.xls),*.xls")
If Filename <> "False" Then
Workbooks.Open Filename
On Error Resume Next
Application.Goto Reference:=ActiveWorkbook.Worksheets("Sheet3").Range("A3"), scroll:=True
'Goto失敗:Sheet3が非表示/インデックス無効:Sheet3無し
If Err.Number > 0 Then
MsgBox Error(Err.Number)
Err.Clear
End If
End If
End Sub
>Workbooks("test_macro.xls").Worksheets("sheet1").Range("a1").Value = 10
アクティブにする理由は?
コピーしたり、値を付加したりするならば、ActivateやSelectを省いて
Workbooks("Book1.xls").Worksheets("sheet1").Range("a1").Value = _
Workbooks("Book2.xls").Worksheets("sheet2").Range("b1").Value
など。
|
|