はじめまして初心者のＨＫと申します。
以下の文で２ページ目が表示されません。
よろしくお願いいたします。
---------------------------------------------------
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Open(filename1)
sheetname = xlBook.Worksheets(2).Name
Set xlSheet = xlBook.Worksheets(sheetname)
xlApp.Visible = True　　　　　　　

> sheetname = xlBook.Worksheets(2).Name
> Set xlSheet = xlBook.Worksheets(sheetname)
> xlApp.Visible = True

xlBook.Worksheets(2).Activate
もしくは、
xlSheet.Activate
で、表示されると思います。

ブックが表示されないときは、下記を入れてください。
xlBook.Windows(1).Visible=True