将Excel导成xml文件代码,CSharp代码库,德仔网

代码语言

代码分类

【CSharp】将Excel导成xml文件

作者:一铛 / 发布于2015/5/6/ 697


	#region 将Excel导成xml文件
	 private void button1_Click(object sender, EventArgs e)
	 {
	 if (!ExistsNetFramework())
	 {
	 MessageBox.Show("需要安装net framework4.0版本");
	 return;
	 }
	 if (textBox1.Text != "")
	 {
	 int version = ExistsRegedit();
	 string strConn = "";
	 string path = textBox1.Text.Substring(textBox1.Text.Length - 4);

	 if (path == "xlsx")
	 {
	 if (version == 1)
	 {
	 MessageBox.Show("Excel版本不匹配！");
	 return;
	 }
	 else if (version == 2 || version == 3)
	 {
	 //2007格式
	 strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + textBox1.Text + ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'";
	 }
	 else
	 {
	 MessageBox.Show("没有安装Excel文件，或者找不到对应版本的文件！");
	 return;
	 }
	 }
	 else if (path == ".xls")
	 {
	 if (version == 1)
	 {
	 //2003格式
	 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + textBox1.Text + ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'";
	 }
	 else if (version == 2 || version == 3)
	 {
	 //2007格式
	 strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + textBox1.Text + ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'";
	 }
	 else
	 {
	 MessageBox.Show("没有安装Excel文件，或者找不到对应版本的文件！");
	 return;
	 }
	 }
	 else
	 {
	 MessageBox.Show("文件格式不正确");
	 return;
	 }
	 OleDbConnection OleConn = new OleDbConnection(strConn);
	 OleConn.Open();
	 String sql = "SELECT * FROM [Sheet1$]";
	 OleDbDataAdapter OleDaExcel = new OleDbDataAdapter(sql, OleConn);
	 DataSet dsExcle = new DataSet();
	 OleDaExcel.Fill(dsExcle, "Product");

	 DataSet dsEncodeExcel = new DataSet();
	 foreach (DataTable dt in dsExcle.Tables)
	 {
	 DataTable dtEncodeExcel = new DataTable();
	 if (dt.Rows.Count > 0)
	 {
	 int count = dt.Rows.Count;
	 //获取表结构
	 for (int i = 0; i < dt.Rows.Count; i++)
	 {
	 for (int j = 0; j < dt.Columns.Count; j++)
	 {
	 if (i == 0)
	 dtEncodeExcel.Columns.Add(dt.Columns[j].ColumnName, typeof(System.String));
	 }
	 DataRow drEncodeExcel = dtEncodeExcel.NewRow();
	 //dtEncodeExcel.ImportRow(dt.Rows[i]);
	 dtEncodeExcel.ImportRow(GetEncodeDR(dt.Rows[i], drEncodeExcel));
	 dtEncodeExcel.Rows.Add(drEncodeExcel);
	 }
	 }
	 else
	 {
	 MessageBox.Show("表中没有数据");
	 return;
	 }
	 dsEncodeExcel.Tables.Add(dtEncodeExcel);
	 }
	 ExcelToXml(dsEncodeExcel);
	 OleConn.Close();
	 }
	 else
	 {
	 MessageBox.Show("请先导入Excel！");
	 }
	 }
	 #endregion

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

一铛贡献的其它代码(12)