![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります。
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
よろしくお願い致します。
No.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()
と言う感じ?
お世話になっております。
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()
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
Excel VBA 複数行を数の分だけ...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
【VBA】色のついたシート名を取得
-
シートが保護されている状態で...
-
別のシートを参照して計算する方法
-
VBAで指定シート以外の選択
-
Excelマクロのエラーを解決した...
-
Worksheet_Changeの内容を標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報