シートを選択したい vba

質問

自身のファイルを読み取り専用で新たに立ち上げて、シートを選択したいのですが

Private Sub cmd_読み取り専用で開く_Click()
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)

xlApp.Visible = True
xlApp.xlBook.Sheets("メイン").Select

Set xlApp = Nothing
Set xlBook = Nothing

End Sub

だと
xlApp.xlBook.Sheets("メイン").Selectでエラーになります。

文法が間違ってると思うのですが、修正案をご教授ください。

回答No.3

jcctaira · ベストアンサー

ixfzqyrdteさん
こんにちは。

基本的なことですがブックやシートは「別々にアクティブ」にする必要があり、両方を一気に「アクティブ」にすることはできません。
　「ブック」なら、xlBook.Activate
　「シート」なら、Sheets("メイン").Select
　です。

よってプログラム的には
　xlApp.xlBook.Sheets("メイン").Select
　　　　↓
　xlBook.Activate
　Sheets("メイン").Select
となります。

ただ、ブックをオープンした段階で「xlBook」はアクティブになっていますので
　xlBook.Activate
　は省略可能です。

ご確認下さい。

お礼

ご回答ありがとうございます。

回答No.4

kybo

私の環境ではxlAppを省くだけで動作しました。

Sub cmd_読み取り専用で開く_Click()
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)

xlApp.Visible = True
xlBook.Sheets("メイン").Select '★ xlAppを省略

Set xlApp = Nothing
Set xlBook = Nothing

End Sub

お礼

ご回答ありがとうございます。

回答No.2

keithin

Private Sub cmd_読み取り専用にする_Click()
thisworkbook.worksheets("メイン").select
if thisworkbook.readonly then exit sub
thisworkbook.save
thisworkbook.changefileaccess mode:=xlreadonly
end sub

お礼

ご回答ありがとうございます。

回答No.1

bin-chan

手元に試せる環境がないのですが

> xlApp.xlBook.Sheets("メイン").Select
の前に「Bookの選択」が必要かも。
開き直しているので、どのBookか見失ってる。

お礼

ご回答ありがとうございます。