ASP.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程

1.启动VS2010。

2.创建一个CLR项目如下，在窗体中插入相关若干控件，插入背景，如下图所示：

3.添加下列引用

4.在Form1.h中插入以下代码，详细见代码分析与注释

</mce:script><mce:script type="text/javascript" src="http://hi.images.csdn.net/js/blog/tiny_mce/plugins/syntaxhl/langs/zh.js" mce_src="http://hi.images.csdn.net/js/blog/tiny_mce/plugins/syntaxhl/langs/zh.js"></mce:script>code" class="c-sharp">#pragma once  
namespace yincheng {  
    using namespace System;  
    using namespace System::ComponentModel;  
    using namespace System::Collections;  
    using namespace System::Windows::Forms;  
    using namespace System::Data;  
    using namespace System::Drawing;  
    /// <summary>  
    /// Form1 摘要  
    ///  
    /// 警告: 如果更改此类的名称，则需要更改  
    ///          与此类所依赖的所有 .resx 文件关联的托管资源编译器工具的  
    ///          “资源文件名”属性。否则，  
    ///          设计器将不能与此窗体的关联  
    ///          本地化资源正确交互。  
    /// </summary>  
    public ref class Form1 : public System::Windows::Forms::Form  
    {  
    public:  
        Form1(void)  
        {  
            InitializeComponent();  
            //  
            //TODO: 在此处添加构造函数代码  
            //  
        }  
    protected:  
        /// <summary>  
        /// 清理所有正在使用的资源。  
        /// </summary>  
        ~Form1()  
        {  
            if (components)  
            {  
                delete components;  
            }  
        }  
    private: System::Windows::Forms::Button^  button1;  
    protected:   
    private:  
        /// <summary>  
        /// 必需的设计器变量。  
        /// </summary>  
        System::ComponentModel::Container ^components; 
#pragma region Windows Form Designer generated code  
        /// <summary>  
        /// 设计器支持所需的方法 - 不要  
        /// 使用代码编辑器修改此方法的内容。  
        /// </summary>  
        void InitializeComponent(void)  
        {  
            System::ComponentModel::ComponentResourceManager^  resources = (gcnew System::ComponentModel::ComponentResourceManager(Form1::typeid));  
            this->button1 = (gcnew System::Windows::Forms::Button());  
            this->SuspendLayout();  
            //   
            // button1  
            //   
            this->button1->Font = (gcnew System::Drawing::Font(L"SimSun", 12, System::Drawing::FontStyle::Bold, System::Drawing::GraphicsUnit::Point,   
                static_cast<System::Byte>(134)));  
            this->button1->Location = System::Drawing::Point(138, 207);  
            this->button1->Name = L"button1";  
            this->button1->Size = System::Drawing::Size(288, 59);  
            this->button1->TabIndex = 0;  
            this->button1->Text = L"演示使用自动化插入Word图表";  
            this->button1->UseVisualStyleBackColor = true;  
            this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);  
            //   
            // Form1  
            //   
            this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);  
            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;  
            this->BackColor = System::Drawing::Color::Black;  
            this->BackgroundImage = (cli::safe_cast<System::Drawing::Image^  >(resources->GetObject(L"$this.BackgroundImage")));  
            this->ClientSize = System::Drawing::Size(567, 433);  
            this->Controls->Add(this->button1);  
            this->Name = L"Form1";  
            this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;  
            this->Text = L"CSDN著名技术专家尹成-演示使用自动化生成Word图表";  
            this->ResumeLayout(false);  
        } 
#pragma endregion  
    //演示使用自动化插入Word图表  
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {  
            Microsoft::Office::Interop::Word::ApplicationClass^ MyWord;  
            Object^ MyMissing;  
            Object^ MyEndOfDoc;  
            Microsoft::Office::Interop::Word::Range^ MyRange;  
            Microsoft::Office::Interop::Word::_Document^ MyDoc;  
            Microsoft::Office::Interop::Word::InlineShape^ MyShape;  
            Object^ MyClassType;  
            Object^ MyChart;  
            Object^ MyChartApp;  
            arr<mce:script type="text/javascript" src="http://hi.images.csdn.net/js/blog/tiny_mce/themes/advanced/langs/zh.js" mce_src="http://hi.images.csdn.net/js/blog/tiny_mce/themes/advanced/langs/zh.js"></mce:script><mce:script type="text/javascript" src="http://hi.images.csdn.net/js/blog/tiny_mce/plugins/syntaxhl/langs/zh.js" mce_src="http://hi.images.csdn.net/js/blog/tiny_mce/plugins/syntaxhl/langs/zh.js"></mce:script>ay<System::Object^>^ MyArray;  
            try 
            {  
                MyMissing=System::Reflection::Missing::Value;  
                // endofdoc 是一个预定义的书签  
                MyEndOfDoc="\\endofdoc";  
                MyWord=gcnew Microsoft::Office::Interop::Word::ApplicationClass();  
                MyWord->Visible= true;  
                MyDoc=MyWord->Documents->Add(MyMissing,MyMissing,MyMissing, MyMissing);  
                //插入图表  
                MyClassType="MSGraph.Chart.8";  
                MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;  
                System::Reflection::Binder^ MyBinder;  
                MyShape=MyRange->InlineShapes->AddOLEObject(MyClassType,MyMissing, MyMissing, MyMissing,MyMissing,MyMissing, MyMissing, MyMissing);  
                MyChart=MyShape->OLEFormat->Object;  
                MyChartApp=MyChart->GetType()->InvokeMember("Application",System::Reflection::BindingFlags::GetProperty,MyBinder, MyChart,MyArray);  
                MyShape->Width=MyWord->InchesToPoints((float)5.50);  
                MyShape->Height=MyWord->InchesToPoints((float)2.57);  
                MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;  
                MyRange->InsertParagraphAfter();  
                this->Close();  
            }  
            catch(Exception^ MyEx)  
            {  
                MessageBox::Show(MyEx->Message,"信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);  
            }  
        }  
    };  
} 

5.启动调试运行如下：

点击”导出Excel表“按钮启动Excel，显示如下，其中自动插入了一个程序中的表格及数据：

成功的演示了使用剪贴板导出Excel文件的方法，实际应用还需读者自行研究揣摩，以实现更为复杂高效的功能。