COM

void Paste(const VARIANT& Destination, const VARIANT& Link);

CI46023App theApp;       // Main CwinThread
_Application app;        // excel application object
_Workbook objBook;       // workbook object 
Workbooks objBooks;      // ditto
Worksheets objSheets;    // worksheet object
_Worksheet objSheet;     // worksheet
LPDISPATCH myrangeptr; 





app.CreateDispatch("Excel.Application");
  objBooks = app.GetWorkbooks();
  objBook = objBooks.Add(VOptional);
  objSheets = objBook.GetWorksheets();
  objSheet = objSheets.GetItem(COleVariant((short)1));
  myrangeptr = objSheet.GetRange(COleVariant(TEXT("A1")),COleVariant(TEXT("M34")));
  objSheet.Paste((VARIANT &)myrangeptr, COleVariant((short)TRUE));

[ComRegisterFunction()]
       public static void RegisterClass(string key)
       {
           StringBuilder sb = new StringBuilder(key);
           sb.Replace(@"HKEY_CLASSES_ROOT\", "");
           RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(), true);
           RegistryKey ctrl = k.CreateSubKey("Control");
           ctrl.Close();
           RegistryKey inprocServer32 = k.OpenSubKey("InprocServer32", true);
           inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase);
           inprocServer32.Close();
           k.Close();
           MessageBox.Show("Registered");
       }

       [ComUnregisterFunction()]
       public static void UnregisterClass(string key)
       {
           StringBuilder sb = new StringBuilder(key);
           sb.Replace(@"HKEY_CLASSES_ROOT\", "");
           RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(), true);
           k.DeleteSubKey("Control", false);
           k.OpenSubKey("InprocServer32", true);
           k.DeleteSubKey("CodeBase", false);
           k.Close();
           MessageBox.Show("UnRegistered");
       }