VSTO入门问题集

excelhomesnake · 发表于 2015-12-16 17:05

VBA万岁发表于 2015-12-16 16:36
八、如何用C#实现Excel工作表与外部文件的数据交换？

（一）如何将XML文件的数据导入Excel工作表？

导入的方法很多吧.
1,利用excel本身的导入xml功能,但显示格式比较固定,不好变化
2,使用pia,做法与vba一致,可以逐个单元格写入,也可以先创建一个二维数组,写入数组后,直接把数组赋值给单元格,速度应该是我目前觉得最快的.
3,使用openxml写入.暂时只弄过几次而已,实际是把内容直接写入到excel文件的xml文档里面.
4,利用ado.net也可以写入数据.

我之前有个<练习>的贴,一楼就是使用上面的点2,二楼就是使用上面的点3来读写数据.
至于读取xml就更容易了,在.net里面可以使用xpath或linqtoxml来读写,代码直观,容易维护.也可以使用xmlreader等低级的类,低级的类性能好,但生产效率就低不少了.

VBA万岁 · 发表于 2015-12-16 17:20

VBA万岁发表于 2015-12-16 16:55
（二）如何将Excel工作表数据导入Access数据库？
如146楼VBA代码中第81~122句那样实现将工 ...

百度有很多相关帖，这里帖上两个以供测试用：
1、C#中实现excel文件批量导入access数据表中
2、C#将Excel导入到Access数据库表(winForm版

VBA万岁 · 发表于 2015-12-16 17:26

excelhomesnake 发表于 2015-12-16 17:05
导入的方法很多吧.
1,利用excel本身的导入xml功能,但显示格式比较固定,不好变化
2,使用pia,做法与vba一 ...

暂帖上<练习>链接如下，有空再研读测试：
练习

VBA万岁 · 发表于 2015-12-17 14:42

VBA万岁发表于 2015-12-16 16:55
（二）如何将Excel工作表数据导入Access数据库？
如146楼VBA代码中第81~122句那样实现将工 ...

（三）如何将Access数据库及其他Excel文件的数据导入Excel工作表？
         相关链接：
         1、C#导入导出EXCEL文件的代码实例
         2、C# 将Access中的数据导入到Excel

VBA万岁 · 发表于 2015-12-19 20:16

excelhomesnake 发表于 2015-12-16 17:05
导入的方法很多吧.
1,利用excel本身的导入xml功能,但显示格式比较固定,不好变化
2,使用pia,做法与vba一 ...

采用逐个单元格写入的方法做了一个，源码如下：

VBA万岁 · 发表于 2015-12-19 20:16

本帖最后由 VBA万岁于 2015-12-20 12:31 编辑

VBA万岁发表于 2015-12-19 20:16
采用逐个单元格写入的方法做了一个，源码如下：

问题八（一）测试成功的主要代码：

private void button1_Click(object sender, EventArgs e)
{
object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
Microsoft.Office.Interop.Excel.Workbook destbook = app.ActiveWorkbook;//得到当前活动的excel文档
Microsoft.Office.Interop.Excel.Worksheet excel = (Microsoft.Office.Interop.Excel.Worksheet)destbook.ActiveSheet;//得到当前Sheet
//以下被注释掉的代码可用于在新增的工作簿工作表中导入省市区数据，以上代码用于在当前活动工作表中导入省市区数据
//Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();
//excel.Application.Workbooks.Add(true);
//excel.AlertBeforeOverwriting = false;
excel.Cells[1, 1] = "省";
excel.Cells[1, 2] = "市";
excel.Cells[1, 3] = "区";
int n=1;
XmlNode provinces = doc.SelectSingleNode("/ProvinceCity");
foreach (XmlNode province in provinces.ChildNodes)
{
XmlNodeList cities = doc.SelectNodes(string.Format("/ProvinceCity/{0}/City", province.Name));
foreach (XmlNode city in cities)
{
XmlNodeList CityAreas = doc.SelectNodes(string.Format("/ProvinceCity/{0}/City[@Name='{1}']/CityArea",province.Name,city.Attributes["Name"].Value));
foreach (XmlNode area in CityAreas)
{
n++;
excel.Cells[n, 1] = province.Name;
excel.Cells[n, 2] = city.Attributes["Name"].Value;
excel.Cells[n, 3]=area.Attributes["Name"].Value;
}
}
}
//excel.Visible = true;
//excel.ActiveWorkbook.SaveAs(System.Windows.Forms.Application.StartupPath + "\\省市区三级联动.xlsx", Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel9795, null, null, false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, null, null, null, null, true);
//excel.Quit();
//excel = null;
}

复制代码

VBA万岁 · 发表于 2015-12-20 09:40

本帖最后由 VBA万岁于 2015-12-20 12:29 编辑

VBA万岁发表于 2015-12-17 14:42
（三）如何将Access数据库及其他Excel文件的数据导入Excel工作表？
相关链接：
...

问题八（三）测试成功，主要代码如下：

private void button1_Click(object sender, EventArgs e)
{
object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
Microsoft.Office.Interop.Excel.Workbook destbook = app.ActiveWorkbook;//得到当前活动的excel文档
Microsoft.Office.Interop.Excel.Worksheet sh = (Microsoft.Office.Interop.Excel.Worksheet)destbook.ActiveSheet;//得到当前Sheet
sh.Cells[1, 1] = "省";
sh.Cells[1, 2] = "市";
sh.Cells[1, 3] = "区";
OleDbConnection Conn;
try
{
//string filename2 = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + @"\数据源\省市区三级联动.xlsx";
string filename2 = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + @"\数据源\省市区三级联动.mdb";
//string strConn2 = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + filename2 + ";Extended Properties=Excel 12.0";
string strConn2 = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" + filename2;
Conn = new OleDbConnection(strConn2);
Conn.Open();
//string sql = "SELECT * FROM [VBA实现省市区三级联动$]";
string sql = "SELECT * FROM VBA实现省市区三级联动";
DataSet myDataSet = new DataSet();
OleDbDataAdapter myCommand = new OleDbDataAdapter(sql, Conn);
myCommand.Fill(myDataSet, "VBA实现省市区三级联动");
for (int i = 0; i < myDataSet.Tables[0].Rows.Count; i++)
{
sh.Cells[i+2, 1] = myDataSet.Tables[0].Rows[i]["省"].ToString();
sh.Cells[i + 2, 2] = myDataSet.Tables[0].Rows[i]["市"].ToString();
sh.Cells[i + 2, 3] = myDataSet.Tables[0].Rows[i]["区"].ToString();
}
}
catch (Exception exception)
{
MessageBox.Show(exception.Message);
}
}
}

复制代码

VBA万岁 · 发表于 2015-12-20 10:13

VBA万岁发表于 2015-12-16 16:55
（二）如何将Excel工作表数据导入Access数据库？
如146楼VBA代码中第81~122句那样实现将工 ...

测试如下代码出错（运行时出错）：

private void button2_Click(object sender, EventArgs e)
{
object o = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
Microsoft.Office.Interop.Excel._Application app = o as Microsoft.Office.Interop.Excel._Application;
Microsoft.Office.Interop.Excel.Workbook destbook = app.ActiveWorkbook;//得到当前活动的excel文档
Microsoft.Office.Interop.Excel.Worksheet sh = (Microsoft.Office.Interop.Excel.Worksheet)destbook.ActiveSheet;//得到当前Sheet
try
{
OleDbConnectionStringBuilder connectStringBuilder = new OleDbConnectionStringBuilder();
connectStringBuilder.DataSource = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + "/数据源/省市区.mdb";
connectStringBuilder.Provider = "Microsoft.Ace.OleDb.12.0";
connectStringBuilder.Add("Extended Properties", "Excel 12.0");
using (OleDbConnection cn = new OleDbConnection(connectStringBuilder.ConnectionString))
{
DataSet ds = new DataSet();
string sql = "Select * from [" +sh.Name + "$]";
OleDbCommand cmdLiming = new OleDbCommand(sql, cn);
cn.Open();
using (OleDbDataReader drLiming = cmdLiming.ExecuteReader())
{
ds.Load(drLiming, LoadOption.OverwriteChanges, new string[] { sh.Name });
DataTable dt = ds.Tables[sh.Name];
if (dt.Rows.Count > 0)
{
for (int i = 0; i < dt.Rows.Count; i++)
{
//写入数据库数据
string MySql = "insert into ClientInfo values('" + dt.Rows[i]["省"].ToString() + "','" + dt.Rows[i]["市"].ToString()
+ "','0','" + dt.Rows[i]["区"].ToString() + "','0','" + i.ToString() + "')";
new DataAccess().SQLExecute(MySql);
}
MessageBox.Show("数据导入成功！");
}
else
{
MessageBox.Show("请检查你的Excel中是否存在数据");
}
}
}
}
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
}

复制代码

VBA万岁 · 发表于 2015-12-20 10:21

VBA万岁发表于 2015-12-20 10:13
测试如下代码出错（运行时出错）：

出错截图：

excelhomesnake · 发表于 2015-12-20 16:34

VBA万岁发表于 2015-12-20 10:13
测试如下代码出错（运行时出错）：

"数据源/省市区.mdb"
来源是一个access数据库?
查询语句是需要在表名添加 "$" ?

		自动登录	找回密码
密码			免费注册

[求助] VSTO入门问题集

评分