C# と VB.NET の質問掲示板

開発環境　Windows7Pro　VisualStudio2008　C#
実機windowsXP SP3 EXCEL2000

　遅延バインディングを使って２０１３TEST.xlsを開きsheet1をコピーしてsheet名を”X1"としたいのですが、コピーの仕方と名前の変更方法がどうしてもできません。
新規シートの追加
        public static void EX_AddSheet()
        {
            sheets = book.GetType().InvokeMember("sheets", BindingFlags.GetProperty, null, book, null);
            parameters = new object[4];
            for (int CT1 = 0; CT1 < 4; CT1++) { parameters[CT1] = Type.Missing; }
            sheet = sheets.GetType().InvokeMember("Add", BindingFlags.GetProperty, null, sheets, parameters);
        }
を元に
        public static void EX_CopySheet()
        {
            sheets = book.GetType().InvokeMember("sheets", BindingFlags.GetProperty, null, book, null);
            parameters = new object[4];
            for (int CT1 = 0; CT1 < 4; CT1++) { parameters[CT1] = Type.Missing; }
            sheet = sheets.GetType().InvokeMember("Copy", BindingFlags.GetProperty, null, sheets, parameters);
        }
とやってみましたが　parameters　の設定が悪いのでしょうか　sheet = sheets.GetType().InvokeMember("Copy", BindingFlags.GetProperty, null, sheets, parameters);　で
TargetInvocationExeptionはハンドルされませんでした。　呼び出しのターゲットが例外をスローしました。
というエラーで止まってしまいます。調べたのですが、どういうパラメータを渡せばいいのかを書いてある所にたどりつけませんでした。どう書いたらよいのか教えてください。

もう一点
// シート名を取得する
	object sheetName = sheet.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, sheet, null);
でシート名は取得できるのですがシート名を設定する方法がわかりません。
                parameters = new object[1];
                parameters[0] = sheet名;
	sheet.GetType().InvokeMember( "Value", BindingFlags.SetProperty, null, sheet, Parameters );
かな？とやってみましたが
COMExceptionはハンドルされませんでした。
名前が不明です。(HRESULTからの例外：0X80020006(DISP_E_UNKNOWNNAME))
というエラーになってしまいます。以上2点どのようにしたらよいか教えてください。よろしくお願いいたします。

■No67746 (shu さん) に返信
> シートのコピーはWorkSheetsクラスではなく
> WorkSheetクラスのメソッド
>   Copy(Before,After)
> で行います。

その通りですね。

ですが一応、Sheets/Worksheets(≠WorkSheets) の
Copy メソッドでも、複製は可能だったりします。
VBA 的にはこんな感じです。

　Set objSheets = ThisWorkbook.WorkSheets(Array("Sheet1"))
　Call objSheets.Copy(ThisWorkbook.Sheets("Sheet1"))

上記は本来、複数のシートを一度にコピーする場合などに
使う手法なので、今回のようなケースでは Sheets.Copy ではなく、
shu さんが紹介された Sheet.Copy の方が望ましいですけれどね。


> プロパティではないので
> BindingFlags.SetProperty
> ではなく
> BindingFlags.InvokeMethod
> を使用します。

裕猫さんが書かれていたのは GetProperty でしたね。SetProperty ではなく。

メソッドの呼び出しに InvokeMethod を使うべきというのはその通りなのですが、
実際には GetProperty でも呼び出せてしまったりします。
もちろん、InvokeMethod の方が適切ですけれども。


修正案。下記では、コピーした新シートを一番左側に配置しています。

public static void EX_CopySheet()
{
    sheets = book.GetType().InvokeMember("Sheets", BindingFlags.GetProperty, null, book, null);
    object target = book.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, sheets, new object[] { "sheet1" });
    object firstSheet = book.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, sheets, new object[] { 1 });
    parameters = new object[2] { firstSheet, Type.Missing };
    target.GetType().InvokeMember("Copy", BindingFlags.InvokeMethod, null, target, parameters);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(target);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(firstSheet);

    sheet = book.GetType().InvokeMember("Item", BindingFlags.GetProperty, null, sheets, new object[] { 1 });
    string oldSheetName = (string)sheet.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, sheet, null);
    parameters = new object[] { "X1" };
    sheet.GetType().InvokeMember("Name", BindingFlags.SetProperty, null, sheet, parameters);

    Console.WriteLine("「{0}」を「{1}」に改名", oldSheetName, "X1");
}