前言
公司最近有操作excel的需求:店名上传上来的excel都没有地址这一栏,但是有对应的编号,由于有上百个excel文件各个分店要是手工填写的话基本不可能,所以有劳我想办法了:)我倒是知道能操作,但是没有具体实践过.以下是摸索的点滴:
开发环境
window XP,Microsoft Visual Studio 2005,C#,ASP.NET,Office2003,SQL SERVER2000
推荐/参考文章
1.强烈推荐Excel VBA文档,如果你安装了office2003的话,安装目录下有个叫VBAXL10.CHM的帮助文档就是了,并且是中文的!!例如,我安装的在D盘,那么这个文件的地址是:D:\Program Files\Microsoft Office\OFFICE11\2052\VBAXL10.CHM
2.主要参考C#向Excel报表中插入图片的2种方法,将Excel应用于报表开发系列文章共8篇等文章.
目的,步骤
1.通过程序打开excel
2.读取编号列
3.根据编号在数据库中查询对应的地址并返回数据
4.把对应的地址插入excel
5.通过程序保存关闭excel,下一个...
正题
1.(新建工程等步骤在这里都省略了)添加操作excel的COM组件:
2.主要的方法代码:
/// 修改Excel
/// </summary>
/// <param name="Path">读取路径</param>
/// <param name="newPath">另存路径</param>
/// <param name="shop_name">店名</param>
/// <param name="tablename">表名</param>
public void AlterExcel(string Path,string newPath,string shop_name,string tablename)
{
try
{
Object miss = System.Reflection.Missing.Value;
Excel.Application ExcelApp = new Excel.ApplicationClass();
Excel.Workbooks wbooks = (Excel.Workbooks)ExcelApp.Workbooks;
Excel.Workbook wbook = wbooks.Open(Path, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss);
//获得第一个工作薄
Excel.Worksheet wsheet = (Excel.Worksheet)wbook.Worksheets.get_Item(1);
ExcelApp.Visible = false;
ExcelApp.DisplayAlerts = false;
//取得编号
ArrayList arr = new ArrayList();
for (int i = 3, j = wsheet.UsedRange.Rows.Count; i < j; i++)
{
Excel.Range rang = (Excel.Range)wsheet.Cells[i, 2];
if (null != rang.Text && rang.Text.ToString().Length > 0)
arr.Add(rang.Text);
else
break;
}
//添加新行 Cells[行,列]
((Excel.Range)wsheet.Columns.get_Item(3, miss)).Insert(XlInsertShiftDirection.xlShiftToRight, miss);
//添加区域单元格
//wsheet.get_Range(wsheet.Cells[2, 3], wsheet.Cells[wsheet.UsedRange.Rows.Count - 3, 3]).Insert(XlInsertShiftDirection.xlShiftToRight, miss);
//设置标头
wsheet.Cells[2, 3] = "地址";
((Excel.Range)wsheet.Columns.get_Item(3, miss)).ColumnWidth = 25;
//此处为获得该店的所有地址,这里替换成自己的方法就行
Hashtable hash = GetShopAddr(shop_name, tablename);
for (int i = 3, j = i + arr.Count; i < j; i++)
{
try
{
//根据编号设置地址
wsheet.Cells[i, 3] = hash[Convert.ToInt32(arr[i - 3])];
}
catch(Exception)
{
continue;
}
}
//另存为
wbook.SaveAs(newPath, miss, miss, miss, miss, miss, Excel.XlSaveAsAccessMode.xlNoChange, miss, miss, miss, miss, miss);
wbook.Close(false, miss, miss);
ExcelApp.Quit();
ReleaseObject(wsheet);
ReleaseObject(wbook);
ReleaseObject(wbooks);
ReleaseObject(ExcelApp);
GC.Collect();
GC.WaitForPendingFinalizers();
}
catch
{
//throw;
}
finally
{
//结束进程
//KillExcelProcess();
}
}
/// <summary>
/// 释放对象
/// </summary>
/// <param name="obj"></param>
private void ReleaseObject(object obj)
{
try
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
}
catch {}
finally { obj = null; }
}
/// <summary>
/// 结束Excel进程
/// </summary>
public void KillExcelProcess()
{
Process[] myProcesses = Process.GetProcessesByName("Excel");
foreach (Process myProcess in myProcesses)
myProcess.Kill();
}
注意:
a).需要添加命名空间using Microsoft.Office.Interop.Excel;
b).添加新行处代码两个都行,一个是添加一列一个是添加一个范围的单元格,达到效果是一样的
最后推荐一个网站和一个论坛:
Excel终极伴侣 http://www.chinaobs.com/
MSDN http://msdn.microsoft.com/library/CHS/dv_wrcore/html/wrgrfexcelobjects.asp
