VB.net （Excel ブックを開く）

◎Excel ブックを開く
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'ファイルを開くダイアログボックスを表示する
'OpenFileDialog クラスの新規インスタンスを生成
Dim FDlg As New OpenFileDialog

With FDlg

'起動ディレクトリを設定
.InitialDirectory = "c:\"

'[ファイルの種類] ボックスに表示される選択肢を設定する
.Filter = "Excelファイル (*.xls;*.xlsx)|*.xls;*.xlsx"

'最初に表示するフィルタ処理オプションを設定する
.FilterIndex = 1

'ダイアログ ボックスを閉じる前に、現在のディレクトリを復元する
.RestoreDirectory = True

'ダイアログ ボックスを表示 [開く]ボタンが押されたら
If FDlg.ShowDialog() = DialogResult.OK Then

'エクセルを表示
xlApp.Visible = True

end If

' Excel を終了する
xlApp.Quit()

End Sub

以上。