Excelの操作：　Excelを起動し、シート名の一覧を取得（Sheets().name）

VB2008からExcelを操作する説明と実行例サンプルです。

Excelの操作へ


■実行画面
「Button1」ボタンをクリックすると、Excelブックを開き、シート名一覧をリストボックスに追加します。
Excelシート名一覧フォーム

動作順
1）リストボックスをクリア
2）エクセル起動
3）エクセルを表示
4）シート数分ループでシート名をリストボックスに追加
5）保存せずにブックを閉じます
6）Excelを閉じます。

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim exApp As New Excel.Application
Dim exBook As Excel.Workbook
Dim i As Long

'リストボックスをクリア()
ListBox1.Items.Clear()
'Excelブックを開く
exBook = exApp.Workbooks.Open("C:\test.xls")
'Excelを表示
exApp.Visible = True

For i = 1 To exBook.Sheets.Count
'リストボックスに追加
ListBox1.Items.Add(exBook.Sheets(i).name)
Next i

exBook.Close(False)
'Excelを閉じる
exApp.Quit()
'終了処理
exBook = Nothing
exApp = Nothing

End Sub
End Class

Visual Basic 2008 Express Edition実践入門