はじめましてです。
早速ですがＶＢでエクセルファイルを開く際にシートを選択したいのですが
下記のコードではファイルを開くことしかできません。
Selectを使用するのかな？と思いましたが文法が違うせいか動作しません。
どうすればシート選択が可能か教えて下さい。
よろしくお願いします。

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("c:\ファイル名.xls")
Set xlsheet = xlbook.Worksheets("シート名")
xlapp.Visible = True

xlsheet.Selectでダメなんでしょうか。

> xlsheet.Selectでダメなんでしょうか。
xlsheet.Selectでやってみましたがコンパイルエラーが発生しました。
worksheets.Selectでも同じです。
コードがわかりません(+_+)。

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("C:\test.xls")
xlapp.Visible = True
Set xlsheet = xlbook.Worksheets("Sheet1")
xlsheet.Select

私のところではこのコードで選択状態になりました
Windows XP VB6.0　です
きよさんの環境はなんですか?
質問されるときはバージョン等記入されたほうがいいと思います

> 私のところではこのコードで選択状態になりました
> Windows XP VB6.0　です
> きよさんの環境はなんですか?
> 質問されるときはバージョン等記入されたほうがいいと思います
ぷぷさんのコードでできました。
バージョンは次回から記入します。
ありがとうございました。