お世話になります。
WindowsXP + SP3、VB.net(2005)の環境にて開発をしております。

VB.netから既存のエクセルファイル(雛形)を開き、特定の名称のシートを
アクティブにしたいのですがどのようにコーディングすれば良いでしょうか?
※色々とネットで情報検索してみましたが特定の名前のシートを操作する
 方法をうまく見つけられず質問致しました。

エクセルファイル名:売上情報_2009年.xls
シート名     :"200901" ~ "200912" の12シート


以前、VB6で同様のことを行ったときは以下のような記述で実現できました。

Dim xlApp As Object
Dim xlsheet As Object

xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open(FileName:="C:\売上情報_2009年.xls")
xlsheet = xlApp.Sheets("200908")
xlsheet.Activate()

現状、vb.netで以下のコーディングまではできております。

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("C:\売上情報_200904.xls")
Dim xlSheets As Excel.Sheets = xlBook.Worksheets

よろしくお願い致します。
 

A 回答 (1件)

Dim xlApp As New Excel.Application


Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("C:\売上情報_200904.xls")
Dim xlSheets As Excel.Worksheet = xlBook.Worksheets("200908")

xlApp.Visible = True
xlSheets.Activate()

と言う感じ?
    • good
    • 0

この回答へのお礼

お世話になっております。

Option Strict On になっておりましたので型変換(CType)を追加して、
以下のロジックにてシート名指定でシートをアクティブにすることができました。
ありがとうございました。

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("C:\売上情報_200904.xls")
Dim xlSheet As Excel.Worksheet = CType(xlBook.Worksheets("200908"), Excel.Worksheet)

xlApp.Visible = True
xlSheet.Activate()
 

お礼日時:2009/08/12 17:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

注目の記事

みずみずしくてシャキシャキしている梨の見分け方

数ある果物のなかで「梨が好き」という人は多いだろう。程よい甘さとみずみずしい触感が楽しめる梨は、スーパーで目にすると普段あまり果物を食べない若い世代も、つい買って食べたくなるのでは? なかには梨を目に...

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ