天天向上

   1: using Microsoft.Office.Interop.Excel;

   1: private void selectFolderToolStripMenuItem_Click(object sender, EventArgs e)

   2: {

   3:  

   4:     FolderBrowserDialog dlg = new FolderBrowserDialog();

   5:     if (dlg.ShowDialog() == DialogResult.OK)

   6:     {

   7:         this.Text = dlg.SelectedPath;

   8:     }

   9: }

  10:  

   1: private void createToolStripMenuItem_Click(object sender, EventArgs e)

   2: {

   3:          // 儲存路徑

   4:          string path = this.Text;

   5:          // 新增Excel物件

   6:          Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();

   7:          // 新增workbook

   8:          Microsoft.Office.Interop.Excel.Workbook workbook = excel.Application.Workbooks.Add(true);

   9:          if( path.EndsWith("\\") )

  10:          {

  11:              workbook.SaveCopyAs( path + DateTime.Now.ToString("yyyyMMdd_HHmmss") +".xls");

  12:          }

  13:          else

  14:          {

  15:              workbook.SaveCopyAs(path + "\\" + DateTime.Now.ToString("yyyyMMdd_HHmmss") + ".xls");

  16:          }

  17:          MessageBox.Show("Excel檔案新增成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);

  18:          // 刪除EXCEL程序, 否則每執行一次會持續增加

  19:          System.Diagnostics.Process[] procs = System.Diagnostics.Process.GetProcessesByName("EXCEL");

  20:          foreach (System.Diagnostics.Process p in procs)

  21:          {

  22:              p.Kill();

  23:          }

  24: }