Microsoft Excelにwinfromエクスポートで

1:Microsoft Excelに参照を追加します。

 

2:Winフォーム輸出のexeファイルの名前が付けられ、[追加]ボタンを、形成

 

 3:「エクスポートEXE」ボタンをダブルクリックしてコードを書きます

文字列fileNameに= "";

            文字列saveFileName = "";

            SaveFileDialog SaveDialogは=新しいSaveFileDialog();

            saveDialog.DefaultExt = "XLS"。

            saveDialog.Filter = "Excelファイル| * .XLS"。

            saveDialog.FileName =ファイル名;

            saveDialog.ShowDialog();

            saveFileName = saveDialog.FileName。 

            ( ":" saveFileName.IndexOf()<0)場合はリターン; //ポイントは解除され

            Microsoft.Office.Interop.Excel.Application xlAppは新しいMicrosoft.Office.Interop.Excel.Applicationを()=;

            (xlApp == null)の場合

            {

                MessageBox.Show(「Excelオブジェクトを作成できません、お使いのコンピュータがエクセルインストールされていません」);

                リターン;

            }

            Microsoft.Office.Interop.Excel.Workbooks workbooks = xlApp.Workbooks;

            Microsoft.Office.Interop.Excel.Workbook workbook = workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);

            Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];//取得sheet1 

            //写入标题             

            for (int i = 0; i < dataGridView1.ColumnCount; i++)             

            {worksheet.Cells[1, i + 1] = dataGridView1.Columns[i].HeaderText;}

            //写入数值

            for (int r = 0; r < dataGridView1.Rows.Count; r++)

            { for (int i = 0; i < dataGridView1.ColumnCount; i++) 

            { 

                worksheet.Cells[r + 2, i + 1] = dataGridView1.Rows[r].Cells[i].Value;

            } 

                System.Windows.Forms.Application.DoEvents();

            }

            worksheet.Columns.EntireColumn.AutoFit();//列宽自适应

            MessageBox.Show(fileName + "资料保存成功", "提示", MessageBoxButtons.OK);

           if (saveFileName != "")

           {     

               try 

               {workbook.Saved = true;

                   workbook.SaveCopyAs(saveFileName);  //fileSaved = true;                 

               }                  

               catch (Exception ex)                 

               {//fileSaved = false;                      

                   MessageBox.Show("导出文件时出错,文件可能正被打开!\n" + ex.Message);                  

               }             

           }              

            xlApp.Quit();              

GC.Collect();//强行销毁           } 

 

 4:查看导出结果

おすすめ

転載: www.cnblogs.com/zhongruanzikong/p/12187232.html