C#處理多個Excel合併,複製Sheet

項目中須要把多個Excel報表進行合併, 用一個Excel的多個Sheet來表現,合併報表代碼以下:  

       PRivate void btnExport_Click(object sender, EventArgs e)

        {
            string fileName = "";
            System.Windows.Forms.FileDialog dlg = null;
            dlg = new SaveFileDialog();
            //根據格式設置文件字符串
            dlg.Filter = this.GetFileFilterString();
            //打開文件
            if (dlg.ShowDialog() == DialogResult.OK)
            {
                fileName = dlg.FileName;
            }
            if (dlg.FileName.Equals(""))
            {
                return;
            }
            //生成報表
            this.Export(fileName);
            string dir = fileName.Substring(0, fileName.LastIndexOf("\\"));
            
            //報表合併
            Microsoft.Office.Interop.Excel.application excel = new Microsoft.Office.Interop.Excel.ApplicationClass();
            Microsoft.Office.Interop.Excel.Workbook workbook1 = excel.Workbooks.Open(dir + "\\file0.xls",
                   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);
            Microsoft.Office.Interop.Excel.Workbook workbook2 = excel.Workbooks.Open(dir + "\\file1.xls",
                    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);
            Microsoft.Office.Interop.Excel.Workbook workbook3 = excel.Workbooks.Open(dir + "\\file2.xls",
                     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);
            Microsoft.Office.Interop.Excel.Workbook workbook4 = excel.Workbooks.Open(dir + "\\file3.xls",
                    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);
            Microsoft.Office.Interop.Excel.Workbook workbook5 = excel.Workbooks.Open(dir + "\\file4.xls",
                    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);
            Microsoft.Office.Interop.Excel.Workbook workbook6 = excel.Workbooks.Open(dir + "\\file5.xls",
                    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);
            Microsoft.Office.Interop.Excel.Worksheet worksheet1 = (Microsoft.Office.Interop.Excel.Worksheet)workbook1.Sheets["Sheet1"];
            Microsoft.Office.Interop.Excel.Worksheet worksheet2 = (Microsoft.Office.Interop.Excel.Worksheet)workbook2.Sheets["Sheet1"];
            Microsoft.Office.Interop.Excel.Worksheet worksheet3 = (Microsoft.Office.Interop.Excel.Worksheet)workbook3.Sheets["Sheet1"];
            Microsoft.Office.Interop.Excel.Worksheet worksheet4 = (Microsoft.Office.Interop.Excel.Worksheet)workbook4.Sheets["Sheet1"];
            Microsoft.Office.Interop.Excel.Worksheet worksheet5 = (Microsoft.Office.Interop.Excel.Worksheet)workbook5.Sheets["Sheet1"];
            Microsoft.Office.Interop.Excel.Worksheet worksheet6 = (Microsoft.Office.Interop.Excel.Worksheet)workbook6.Sheets["Sheet1"];
            //設置報表Sheet Name
            worksheet1.Name = "實時資產信息";
            worksheet2.Name = "實時持倉清單";
            worksheet3.Name = "資產信息";
            worksheet4.Name = "證券餘額";
            worksheet5.Name = "資金流水彙總";
            worksheet6.Name = "資金流水彙總1";
            //合併報表
            worksheet6.Copy(Missing.Value, worksheet1);
            worksheet5.Copy(Missing.Value, worksheet1);
            worksheet4.Copy(Missing.Value, worksheet1);
            worksheet3.Copy(Missing.Value, worksheet1);
            worksheet2.Copy(Missing.Value, worksheet1);
       
            workbook1.Save();
            workbook1.Close(false, Type.Missing, Type.Missing);
           
            workbook2.Close(false, Type.Missing, Type.Missing);
            workbook3.Close(false, Type.Missing, Type.Missing);
            workbook4.Close(false, Type.Missing, Type.Missing);
            workbook5.Close(false, Type.Missing, Type.Missing);
            workbook6.Close(false, Type.Missing, Type.Missing);
            //若是報表文件存在,先刪除
            if (File.Exists(fileName))
            {
                File.Delete(fileName);
            }
            File.Copy(dir + "\\file0.xls", fileName);

            //刪除臨時文件天貓網購物
            for (int i = 0; i < 6; i++)html

            {
                File.Delete(dir + "\\file" + i + ".xls");

            }
          //出自 http://www.wgfanli.com
app

相關文章
相關標籤/搜索