|
はじめまして。一つ質問させていただきたいと思います。
開いたファイルの指定したシートの指定したセルを
アクティブにするというコードを書いてみました。
私が書いたコードを実行すると
「アプリケーション定義またはオブジェクト定義のエラーです」
という内容のエラーが出ました。
Workbooks(temp).Worksheets("Sheet3").Activate
と記述してシート3をアクティブにするところまではできるの
ですがどうもセルをアクティブにできないようです。
アクティブにする処理の部分を
Workbooks(temp).Worksheets("Sheet3").Activate
Worksheets("Sheet3").Range("A4").Activate
のように書き直してみたらうまくいきました。
Workbooks("test_macro.xls").Worksheets("sheet1").Range("a1").Value = 10
のような記述の仕方は見たことあるのですがこのように
一行で書くことはできないのでしょうか?
Sub openfile()
Dim Filename As String
Dim temp As String
Filename = Application.GetOpenFilename("EXCELファイル (*.xls),*.xls")
Workbooks.Open Filename
temp = ActiveWorkbook.Name
Workbooks(temp).Worksheets("Sheet3").Range("a3").Activate
End Sub
|
|