複数のExcelのバージョンに対応する　～遅延バインディング①～

using System.Runtime.InteropServices;
using System.Reflection;
using System.Collections;

Type typProgID;
object oExcel;
object oWBooks;
object oWBook;
object oWSheets;
object oSheet;
object oCells;
object oCell;
object oValue;

string FilePath = @"C:\tmp\Excel遅延バインド.xlsx";  //読み込みたいファイルのパス

object[] Params;    //いろいろな場所で使うが、一時的なのでパラメータとして宣言しておく

string result = ""; //読み取り結果表示用

//Excelを利用する
typProgID = Type.GetTypeFromProgID("Excel.Application");
oExcel = Activator.CreateInstance(typProgID);

oWBooks = oExcel.GetType().InvokeMember("Workbooks", BindingFlags.GetProperty, null, oExcel, null);

//ファイルパスを配列の頭に指定する。何故これだけの配列にするかは調べて下さい。
Params = new object[15] {FilePath, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                     Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                     Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing };

//ファイルを開いて、シートを開く準備
oWBook = oWBooks.GetType().InvokeMember("Open", BindingFlags.GetProperty, null, oWBooks, Params);
oWSheets = oWBook.GetType().InvokeMember("Worksheets", BindingFlags.GetProperty, null, oWBook, null);

//シートの番号を指定してシートを開いて、セルを読み込む準備　※シート番号は０からではなく、１から
Params = new object[1] { 1 };   //１シート目を指定
oSheet = oWSheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oWSheets, Params);
oCells = oSheet.GetType().InvokeMember("Cells", BindingFlags.GetProperty, null, oSheet, null);

//セルを指定して、値を取得する　※セルの番号は"R1C1"形式で指定する
//セルA1の値を取得
Params = new object[2];
Params[0] = 1;  //行番号
Params[1] = 1;  //列番号
oCell = oCells.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oCells, Params);
oValue = oCell.GetType().InvokeMember("Text", BindingFlags.GetProperty, null, oCell, null);

result = "1シート目" + Environment.NewLine;
result += "A1セルの値：" + oValue.ToString() + Environment.NewLine;

//セルB2の値を取得する
Params[0] = 2;  //2行
Params[1] = 2;  //B列
oCell = oCells.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oCells, Params);
oValue = oCell.GetType().InvokeMember("Text", BindingFlags.GetProperty, null, oCell, null);

result += "B2セルの値：" + oValue.ToString() + Environment.NewLine;

//行番号を文字列で指定してセルC2の値を取得する
int col = Convert.ToInt32(Convert.ToChar("C")) - 64;  //ASCIIコードから算出する　※ASCIIコードで"A"は65
Params[0] = 2;
Params[1] = col;    //3
oCell = oCells.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oCells, Params);
oValue = oCell.GetType().InvokeMember("Text", BindingFlags.GetProperty, null, oCell, null);

result += "C2セルの値：" + oValue.ToString() + Environment.NewLine;

//読み込むシートを変更
//シート名を指定して読み込む
string SheetName = "Sheet2";
object Name;
int SheetNo = 0;
//各シートのシート名を比較して対象を探す
foreach (object sheet in (IEnumerable)oWSheets)
{
    SheetNo++;
    Name = sheet.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, sheet, null);
    if (SheetName == Name.ToString())
    {
        break;
    }
}

Params = new object[1] { SheetNo };   //２シート目を指定
oSheet = oWSheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oWSheets, Params);
oCells = oSheet.GetType().InvokeMember("Cells", BindingFlags.GetProperty, null, oSheet, null);

result += "Sheet2" + Environment.NewLine;

//1行目、1列目の値を取得する
Params = new object[2];
Params[0] = 1;
Params[1] = 1;
oCell = oCells.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, oCells, Params);
oValue = oCell.GetType().InvokeMember("Text", BindingFlags.GetProperty, null, oCell, null);

result += "A1セルの値：" + oValue.ToString() + Environment.NewLine;

//最終処理
//これを忘れると、プロセス上にいつまでもExcelのプロセスが残ります
Params = new object[2];
Params[0] = false;      //保存するかどうかを設定します。　true:保存、false:保存しない
Params[1] = FilePath;
oWBook.GetType().InvokeMember("Close", BindingFlags.InvokeMethod, null, oWBook, Params);      //WorkBookのClose
oWBooks.GetType().InvokeMember("Close", BindingFlags.InvokeMethod, null, oWBooks, null);    //WorkBooksのClose
oExcel.GetType().InvokeMember("Quit", BindingFlags.InvokeMethod, null, oExcel, null);       //Excel.ApplicationのClose

//使ったものを解放
Marshal.ReleaseComObject(oCell);
oCell = null;
Marshal.ReleaseComObject(oCells);
oCells = null;
Marshal.ReleaseComObject(oSheet);
oSheet = null;
Marshal.ReleaseComObject(oWSheets);
oWSheets = null;
Marshal.ReleaseComObject(oWBook);
oWBook = null;
Marshal.ReleaseComObject(oWBooks);
oWBooks = null;
Marshal.ReleaseComObject(oExcel);
oExcel = null;

GC.Collect();

MessageBox.Show(result);