查看: 1483|回复: 2
如何设置按钮，点击它能让某单元格数据一次自动增加，并能把相应表格以txt格式输出。
阅读权限10
在线时间 小时
本帖最后由 jp181 于
16:37 编辑
所设置的按钮达到以下效果：
单元格A1，在不同的数据下，表格的数据是不同的。
想法：1.点击按钮，能让A1单元格，自动运行从1到N（N=1000或更大），步长为1。
2.并能把A1在不同数值下，相应的表格数据进行汇总输出。
3.输出为txt格式，要求：
外加一条件按钮，
若输入数字“1”，则输出的是表格中的数据1行，在txt中也为一行，且每个数据之间用逗号分开，最组数据后均有36且在最后一个。
若输出入“2”时，能则把excel中相应表格的任意两行组据组合为一组，在txt中为一行，且每个数据之间用逗号分开，最后加数据36。
如此类推，输入数据3,4 ,5...等
因为有的行会出现空行，最好能自动排除它，只要有数据的行进行组合即可。
即：输入数据1，点击按钮，让“A1”自动运行，就能把A1在不同数值下的表格所有1行数据输出txt格式。
（输入2时，让任意2行组合等....）
万分感谢!!
上传附件说明下吧。这样容易说明。具体要求，附件结合表格有说明了。
因为不能上传那多大的文件，删除了相当多的，只留构想一面。
16:36 上传
点击文件名下载附件
22.3 KB, 下载次数: 24
阅读权限10
在线时间 小时
阅读权限10
在线时间 小时
还请高手帮助。谢谢。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎么在按键精灵里怎么读取EXCEL中的内-中国学网-中国IT综合门户网站
> 信息中心 >
怎么在按键精灵里怎么读取EXCEL中的内
来源：互联网 发表时间： 1:41:38 责任编辑：鲁晓倩字体：
为了帮助网友解决“怎么在按键精灵里怎么读取EXCEL中的内”相关的问题，中国学网通过互联网对“怎么在按键精灵里怎么读取EXCEL中的内”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:怎么在按键精灵里怎么读取EXCEL中的内容(不要带表格)在粘贴在我指定的位置(一软件输入框)，具体解决方案如下：解决方案1：例:读取A列1行粘贴指定位置 . 敲3下回车
读取A列2行粘贴指定位置 . 敲3下回车
读取A列3行粘贴指定位置 . 敲3下回车
...........
此类推直A列数取完止解决方案2：告诉思路 做成品需要收费
判断A列大数
循环读取 加回车 Q
2个回答2个回答1个回答1个回答2个回答3个回答1个回答2个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号查看: 3375|回复: 11
如何制作“鼠标左键点击指定的单元格”的宏命令
阅读权限20
在线时间 小时
& & & & & & & &
下面是宏，
ActiveCell.Offset(0, 1).Select
& & ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
& & Application.Run &第一张表&
该宏第一行只能做到选定指定的单元格（类似于用键盘的上下左右键来选定），无法达到“鼠标左键点击指定的单元格”这个目的
阅读权限30
在线时间 小时
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x=target.cell
x = ActiveCell.Value
阅读权限20
在线时间 小时
不太明白，我把前后的都贴上来，请高手帮帮我，谢谢！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = &$B$13& Then A
& &q = MsgBox(&确实要打印吗？&, vbYesNo, &系统询问&)
& &If q = vbYes Then 打印
ActiveCell.Offset(0, 1).Select
& & ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
& & Application.Run &第一张表&
第一、二个要达到的目的：在&第一张表&点击B13单元格，出现打印选择框，选“是”自动执行“打印”宏，选“否”无任何动作；此宏已成功
“打印”宏要达到目的：自动点击B13（类似鼠标点击）单元格右边一格（即C14，该单元格有工作表的超链接），转到该超链接的工作表，打印该工作表后回到&第一张表&。问题是：该宏无法实现“鼠标点击”的功能，请帮帮我！
阅读权限95
在线时间 小时
Excel VBA自带的事件中没有对单元格的Click事件，你打算达到什么目的？如果这样的单元格不多，可以在单元格里放个东西，比如文本框。图片之类，当点击这些东西时激活程序。
阅读权限20
在线时间 小时
我的表格发上来了，请指教，谢谢！
阅读权限90
在线时间 小时
个人认为print事件发生在超链接之后吧
如果想打印指定页的话，直接激活你想要打印的页然后再print不行吗 ::o
阅读权限20
在线时间 小时
工作表太多，且有时要有选择地打印不连续的工作表，一张张激活后打印比较麻烦，想在某张表上做好打印链接，以后想打哪张直接点打印就行了，
阅读权限20
在线时间 小时
高手来帮帮啊
阅读权限90
在线时间 小时
你在首页中增加一个类似目录的东西，设置类似超链接之类的区分
用selectchange事件确定哪个单元格被选中
然后相应sheet被激活，在activate事件中写打印代码&&如何::o
阅读权限20
在线时间 小时
可以帮我优化下这个表吗，谢谢！
14:25 上传
点击文件名下载附件
6.42 KB, 下载次数: 20
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师我现在已经打开了一个EXCEL文件，并选中了一些单元格，单击按钮后，选中单元格中的内容读出来，如何实现。_百度知道
我现在已经打开了一个EXCEL文件，并选中了一些单元格，单击按钮后，选中单元格中的内容读出来，如何实现。
提问者采纳
录制的过程就是把你需要操作的步骤严格做一遍，用的时候只要运行这个宏即可，这个方法在本电子表格内非常有效，注意别乱点无用的东西录制一个宏，然后关闭录制，跨文本没试过
提问者评价
还没有实现，但还是谢谢了
其他类似问题
为您推荐：
excel的相关知识
其他1条回答
不明白你说的读出来是什么意思？能说明确点吗？是要复制还是？
我现在已经打开了一个EXCEL文件，并选中了一些单元格，我想用VC++实现单击按钮后，把选中单元格中的内容读到一个变量中，然后写入我自己的文本框中，谢谢帮解决一下哈。
哦，不好意思c++ 我不懂。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁(1) OleDb： 用这种方法读取Excel速度还是非常的快的，但这种方式读取数据的时候不太灵活，不过可以在 DataTable 中对数据进行一些删减修改
这种方式将Excel作为一个数据源，直接用Sql语句获取数据了。所以读取之前要知道此次要读取的Sheet（当然也可以用序号，类似dt.Row[0][0]。这样倒是不需要知道Sheet）
if (fileType == ".xls")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + fileName + ";" + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\"";
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" + "Data Source=" + fileName + ";" + ";Extended Properties=\"Excel 12.0;HDR=YES;IMEX=1\"";
OleDbConnection conn new OleDbConnection(connStr);
DataTable dtSheetName = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
以上是读取Excel的Sheet名，xls和xlsx的连接字符串也不一样的，可以根据文件的后缀来区别。这里需要注意的一点，Excel里面只有一个Sheet，但通过这种方式读取Sheet可能会大于一个。原因已经有人在别的网站说过了，偷一下懒O(&_&)O，下面文段来自【】
【在使用过程中发现取出的Sheet和实际excel不一致， 会多出不少。目前总结后有两种情况：
1. 取出的名称中，包括了XL命名管理器中的名称（参见XL2007的公式--命名管理器， 快捷键Crtl+F3）；
2. 取出的名称中，包括了FilterDatabase后缀的， 这是XL用来记录Filter范围的， 参见；
对于第一点比较简单， 删除已有命名管理器中的内容即可；第二点处理起来比较麻烦， Filter删除后这些名称依然保留着，简单的做法是新增sheet然后将原sheet Copy进去】
---------------------------------
但实际情况并不能为每个Excel做以上检查，【】也给出了过滤的方案，当时还是有点问题，本来补充了一点。总之先看代码吧
for (int i = 0; i & dtSheetName.Rows.C i++)
SheetName = (string)dtSheetName.Rows[i]["TABLE_NAME"];
if (SheetName .Contains("$") && !SheetName .Replace("'", "").EndsWith("$"))//过滤无效SheetName完毕....
da.SelectCommand = new OleDbCommand(String.Format(sql_F, tblName), conn);
DataSet dsItem = new DataSet();
da.Fill(dsItem, tblName);
因为读取出来无效SheetName一般情况最后一个字符都不会是$。如果SheetName有一些特殊符号，读取出来的SheetName会自动加上单引号，比如在Excel中将SheetName编辑成：MySheet(1)，此时读取出来的SheetName就为：'MySheet(1)$'，所以判断最后一个字符是不是$之前最好过滤一下单引号。
优点：读取方式简单、读取速度快
缺点：除了读取过程不太灵活之外，这种读取方式还有个弊端就是，当Excel数据量很大时。会非常占用内存，当内存不够时会抛出内存溢出的异常。
不过一般情况下还是非常不错的
&读取Excel完整代码：
/// &summary&
/// 读取Excel文件到DataSet中
/// &/summary&
/// &param name="filePath"&文件路径&/param&
/// &returns&&/returns&
public static DataSet ToDataTable(string filePath)
string connStr = "";
string fileType = System.IO.Path.GetExtension(fileName);
if (string.IsNullOrEmpty(fileType))
if (fileType == ".xls")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + filePath+ ";" + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\"";
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" + "Data Source=" + filePath+ ";" + ";Extended Properties=\"Excel 12.0;HDR=YES;IMEX=1\"";
string sql_F = "Select * FROM [{0}]";
OleDbConnection conn =
OleDbDataAdapter da =
DataTable dtSheetName=
DataSet ds = new DataSet();
// 初始化连接，并打开
conn = new OleDbConnection(connStr);
conn.Open();
// 获取数据源的表定义元数据
string SheetName = "";
dtSheetName= conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
// 初始化适配器
da = new OleDbDataAdapter();
for (int i = 0; i & dtSheetName.Rows.C i++)
SheetName = (string)dtSheetName.Rows[i]["TABLE_NAME"];
if (SheetName .Contains("$") && !SheetName .Replace("'", "").EndsWith("$"))
da.SelectCommand = new OleDbCommand(String.Format(sql_F, SheetName ), conn);
DataSet dsItem = new DataSet();
da.Fill(dsItem, tblName);
ds.Tables.Add(dsItem.Tables[0].Copy());
catch (Exception ex)
// 关闭连接
if (conn.State == ConnectionState.Open)
conn.Close();
da.Dispose();
conn.Dispose();
(2)：Com组件的方式读取Excel
这种方式需要先引用&Microsoft.Office.Interop.Excel 。首选说下这种方式的优缺点
优点：可以非常灵活的读取Excel中的数据
缺点：如果是Web站点部署在IIS上时，还需要服务器机子已安装了Excel，有时候还需要为配置IIS权限。最重要的一点因为是基于单元格方式读取的，所以数据很慢（曾做过试验，直接读取千行、200多列的文件，直接读取耗时15分钟。即使采用多线程分段读取来提高CPU的利用率也需要8分钟。PS：CPU I3）
需要读取大文件的的童鞋们慎重。。。
附上单线程和多线程读取类：
public class ExcelOptions
private Stopwatch wath = new Stopwatch();
/// &summary&
/// 使用COM读取Excel
/// &/summary&
/// &param name="excelFilePath"&路径&/param&
/// &returns&DataTabel&/returns&
public System.Data.DataTable GetExcelData(string excelFilePath)
Excel.Application app = new Excel.Application();
Excel.Workbook workbook =
object oMissiong = System.Reflection.Missing.V
System.Data.DataTable dt = new System.Data.DataTable();
wath.Start();
if (app == null)
workbook = app.Workbooks.Open(excelFilePath, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong);
//将数据读入到DataTable中&&Start
sheets = workbook.W
Excel.Worksheet worksheet = (Excel.Worksheet)sheets.get_Item(1);//读取第一张表
if (worksheet == null)
string cellC
int iRowCount = worksheet.UsedRange.Rows.C
int iColCount = worksheet.UsedRange.Columns.C
//负责列头Start
int ColumnID = 1;
range = (Excel.Range)worksheet.Cells[1, 1];
while (range.Text.ToString().Trim() != "")
dc = new DataColumn();
dc.DataType = System.Type.GetType("System.String");
dc.ColumnName = range.Text.ToString().Trim();
dt.Columns.Add(dc);
range = (Excel.Range)worksheet.Cells[1, ++ColumnID];
for (int iRow = 2; iRow &= iRowC iRow++)
DataRow dr = dt.NewRow();
for (int iCol = 1; iCol &= iColC iCol++)
range = (Excel.Range)worksheet.Cells[iRow, iCol];
cellContent = (range.Value2 == null) ? "" : range.Text.ToString();
//if (iRow == 1)
dt.Columns.Add(cellContent);
dr[iCol - 1] = cellC
//if (iRow != 1)
dt.Rows.Add(dr);
wath.Stop();
TimeSpan ts = wath.E
//将数据读入到DataTable中&&End
workbook.Close(false, oMissiong, oMissiong);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
workbook =
app.Workbooks.Close();
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
GC.Collect();
GC.WaitForPendingFinalizers();
/// &summary&
/// 使用COM，多线程读取Excel（1 主线程、4 副线程）
/// &/summary&
/// &param name="excelFilePath"&路径&/param&
/// &returns&DataTabel&/returns&
public System.Data.DataTable ThreadReadExcel(string excelFilePath)
Excel.Application app = new Excel.Application();
Excel.Sheets sheets =
Excel.Workbook workbook =
object oMissiong = System.Reflection.Missing.V
System.Data.DataTable dt = new System.Data.DataTable();
wath.Start();
if (app == null)
workbook = app.Workbooks.Open(excelFilePath, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong);
//将数据读入到DataTable中&&Start
sheets = workbook.W
Excel.Worksheet worksheet = (Excel.Worksheet)sheets.get_Item(1);//读取第一张表
if (worksheet == null)
string cellC
int iRowCount = worksheet.UsedRange.Rows.C
int iColCount = worksheet.UsedRange.Columns.C
//负责列头Start
int ColumnID = 1;
range = (Excel.Range)worksheet.Cells[1, 1];
//while (range.Text.ToString().Trim() != "")
while (iColCount &= ColumnID)
dc = new DataColumn();
dc.DataType = System.Type.GetType("System.String");
string strNewColumnName = range.Text.ToString().Trim();
if (strNewColumnName.Length == 0) strNewColumnName = "_1";
//判断列名是否重复
for (int i = 1; i & ColumnID; i++)
if (dt.Columns[i - 1].ColumnName == strNewColumnName)
strNewColumnName = strNewColumnName + "_1";
dc.ColumnName = strNewColumnN
dt.Columns.Add(dc);
range = (Excel.Range)worksheet.Cells[1, ++ColumnID];
//数据大于500条，使用多进程进行读取数据
if (iRowCount - 1 & 500)
//开始多线程读取数据
//新建线程
int b2 = (iRowCount - 1) / 10;
DataTable dt1 = new DataTable("dt1");
dt1 = dt.Clone();
SheetOptions sheet1thread = new SheetOptions(worksheet, iColCount, 2, b2 + 1, dt1);
Thread othread1 = new Thread(new ThreadStart(sheet1thread.SheetToDataTable));
othread1.Start();
//阻塞 1 毫秒，保证第一个读取 dt1
Thread.Sleep(1);
DataTable dt2 = new DataTable("dt2");
dt2 = dt.Clone();
SheetOptions sheet2thread = new SheetOptions(worksheet, iColCount, b2 + 2, b2 * 2 + 1, dt2);
Thread othread2 = new Thread(new ThreadStart(sheet2thread.SheetToDataTable));
othread2.Start();
DataTable dt3 = new DataTable("dt3");
dt3 = dt.Clone();
SheetOptions sheet3thread = new SheetOptions(worksheet, iColCount, b2 * 2 + 2, b2 * 3 + 1, dt3);
Thread othread3 = new Thread(new ThreadStart(sheet3thread.SheetToDataTable));
othread3.Start();
DataTable dt4 = new DataTable("dt4");
dt4 = dt.Clone();
SheetOptions sheet4thread = new SheetOptions(worksheet, iColCount, b2 * 3 + 2, b2 * 4 + 1, dt4);
Thread othread4 = new Thread(new ThreadStart(sheet4thread.SheetToDataTable));
othread4.Start();
//主线程读取剩余数据
for (int iRow = b2 * 4 + 2; iRow &= iRowC iRow++)
DataRow dr = dt.NewRow();
for (int iCol = 1; iCol &= iColC iCol++)
range = (Excel.Range)worksheet.Cells[iRow, iCol];
cellContent = (range.Value2 == null) ? "" : range.Text.ToString();
dr[iCol - 1] = cellC
dt.Rows.Add(dr);
othread1.Join();
othread2.Join();
othread3.Join();
othread4.Join();
//将多个线程读取出来的数据追加至 dt1 后面
foreach (DataRow dr in dt.Rows)
dt1.Rows.Add(dr.ItemArray);
dt.Clear();
dt.Dispose();
foreach (DataRow dr in dt2.Rows)
dt1.Rows.Add(dr.ItemArray);
dt2.Clear();
dt2.Dispose();
foreach (DataRow dr in dt3.Rows)
dt1.Rows.Add(dr.ItemArray);
dt3.Clear();
dt3.Dispose();
foreach (DataRow dr in dt4.Rows)
dt1.Rows.Add(dr.ItemArray);
dt4.Clear();
dt4.Dispose();
return dt1;
for (int iRow = 2; iRow &= iRowC iRow++)
DataRow dr = dt.NewRow();
for (int iCol = 1; iCol &= iColC iCol++)
range = (Excel.Range)worksheet.Cells[iRow, iCol];
cellContent = (range.Value2 == null) ? "" : range.Text.ToString();
dr[iCol - 1] = cellC
dt.Rows.Add(dr);
wath.Stop();
TimeSpan ts = wath.E
//将数据读入到DataTable中&&End
workbook.Close(false, oMissiong, oMissiong);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
System.Runtime.InteropServices.Marshal.ReleaseComObject(sheets);
workbook =
app.Workbooks.Close();
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
GC.Collect();
GC.WaitForPendingFinalizers();
object objmissing = System.Reflection.Missing.V
Excel.ApplicationClass application = new ApplicationClass();
Excel.Workbook book = application.Workbooks.Add(objmissing);
Excel.Worksheet sheet = (Excel.Worksheet)book.Worksheets.Add（objmissing,objmissing,objmissing,objmissing);
//操作过程 ^&%&&&&&&%&&&&
sheet.SaveAs(path,objmissing,objmissing,objmissing,objmissing,objmissing,objmissing,objmissing,objmissing);
System.Runtime.InteropServices.Marshal.ReleaseComObject((object)sheet);
System.Runtime.InteropServices.Marshal.ReleaseComObject((object)book);
application.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject((object)application);
System.GC.Collect();
/// &summary&
/// 删除Excel行
/// &/summary&
/// &param name="excelFilePath"&Excel路径&/param&
/// &param name="rowStart"&开始行&/param&
/// &param name="rowEnd"&结束行&/param&
/// &param name="designationRow"&指定行&/param&
/// &returns&&/returns&
public string DeleteRows(string excelFilePath, int rowStart, int rowEnd, int designationRow)
string result = "";
Excel.Application app = new Excel.Application();
Excel.Workbook workbook =
object oMissiong = System.Reflection.Missing.V
if (app == null)
return "分段读取Excel失败";
workbook = app.Workbooks.Open(excelFilePath, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong, oMissiong);
sheets = workbook.W
Excel.Worksheet worksheet = (Excel.Worksheet)sheets.get_Item(1);//读取第一张表
if (worksheet == null)
//先删除指定行，一般为列描述
if (designationRow != -1)
range = (Excel.Range)worksheet.Rows[designationRow, oMissiong];
range.Delete(Excel.XlDeleteShiftDirection.xlShiftUp);
Stopwatch sw = new Stopwatch();
sw.Start();
int i = rowS
for (int iRow = rowS iRow &= rowE iRow++, i++)
range = (Excel.Range)worksheet.Rows[rowStart, oMissiong];
range.Delete(Excel.XlDeleteShiftDirection.xlShiftUp);
sw.Stop();
TimeSpan ts = sw.E
workbook.Save();
//将数据读入到DataTable中&&End
return "分段读取Excel失败";
workbook.Close(false, oMissiong, oMissiong);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
workbook =
app.Workbooks.Close();
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
GC.Collect();
GC.WaitForPendingFinalizers();
public void ToExcelSheet(DataSet ds, string fileName)
Excel.Application appExcel = new Excel.Application();
Excel.Workbook workbookData =
Excel.Worksheet worksheetD
workbookData = appExcel.Workbooks.Add(System.Reflection.Missing.Value);
appExcel.DisplayAlerts =//不显示警告
//xlApp.Visible =//excel是否可见
//for (int i = workbookData.Worksheets.C i & 0; i--)
Microsoft.Office.Interop.Excel.Worksheet oWorksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbookData.Worksheets.get_Item(i);
oWorksheet.Select();
oWorksheet.Delete();
for (int k = 0; k & ds.Tables.C k++)
worksheetData = (Excel.Worksheet)workbookData.Worksheets.Add(System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value);
// testnum--;
if (ds.Tables[k] != null)
worksheetData.Name = ds.Tables[k].TableN
//写入标题
for (int i = 0; i & ds.Tables[k].Columns.C i++)
worksheetData.Cells[1, i + 1] = ds.Tables[k].Columns[i].ColumnN
range = (Excel.Range)worksheetData.Cells[1, i + 1];
//range.Interior.ColorIndex = 15;
range.Font.Bold =
range.NumberFormatLocal = "@";//文本格式
range.EntireColumn.AutoFit();//自动调整列宽
// range.WrapText = //文本自动换行
range.ColumnWidth = 15;
//写入数值
for (int r = 0; r & ds.Tables[k].Rows.C r++)
for (int i = 0; i & ds.Tables[k].Columns.C i++)
worksheetData.Cells[r + 2, i + 1] = ds.Tables[k].Rows[r][i];
//Range myrange = worksheetData.get_Range(worksheetData.Cells[r + 2, i + 1], worksheetData.Cells[r + 3, i + 2]);
//myrange.NumberFormatLocal = "@";//文本格式
//// myrange.EntireColumn.AutoFit();//自动调整列宽
myrange.WrapText = //文本自动换行
//myrange.ColumnWidth = 15;
rowRead++;
//System.Windows.Forms.Application.DoEvents();
worksheetData.Columns.EntireColumn.AutoFit();
workbookData.Saved =
catch (Exception ex) { }
workbookData.SaveCopyAs(fileName);
workbookData.Close(false, System.Reflection.Missing.Value, System.Reflection.Missing.Value);
appExcel.Quit();
GC.Collect();
(3)NPOI方式读取Excel，NPOI是一组开源的组件，类似Java的 POI。包括：NPOI、NPOI.HPSF、NPOI.HSSF、NPOI.HSSF.UserModel、NPOI.POIFS、NPOI.Util，下载的时候别只下一个噢
优点：读取Excel速度较快，读取方式操作灵活性
缺点：只支持03的Excel，xlsx的无法读取。由于这点，使用这种方式的人不多啊，没理由要求客户使用03版Excel吧，再说03版Excel对于行数还有限制，只支持65536行。
（听他们的开发人员说会在2012年底推出新版，支持xlsx的读取。但一直很忙没时间去关注这个事情，有兴趣的同学可以瞧瞧去）
NPOI读取Excel类：
using System.D
using System.IO;
using System.W
using NPOI;
using NPOI.HPSF;
using NPOI.HSSF;
using NPOI.HSSF.UserM
using NPOI.POIFS;
using NPOI.U
using System.T
using System.C
public class NPOIHelper
private static int ExcelMaxRow = Convert.ToInt32(ConfigurationManager.AppSettings["ExcelMaxRow"]);
/// &summary&
/// 由DataSet导出Excel
/// &/summary&
/// &param name="sourceTable"&要导出数据的DataTable&/param&
/// &param name="sheetName"&工作表名称&/param&
/// &returns&Excel工作表&/returns&
private static Stream ExportDataSetToExcel(DataSet sourceDs)
HSSFWorkbook workbook = new HSSFWorkbook();
MemoryStream ms = new MemoryStream();
for (int i = 0; i & sourceDs.Tables.C i++)
HSSFSheet sheet = (HSSFSheet)workbook.CreateSheet(sourceDs.Tables[i].TableName);
HSSFRow headerRow = (HSSFRow)sheet.CreateRow(0);
// handling header.
foreach (DataColumn column in sourceDs.Tables[i].Columns)
headerRow.CreateCell(column.Ordinal).SetCellValue(column.ColumnName);
// handling value.
int rowIndex = 1;
foreach (DataRow row in sourceDs.Tables[i].Rows)
HSSFRow dataRow = (HSSFRow)sheet.CreateRow(rowIndex);
foreach (DataColumn column in sourceDs.Tables[i].Columns)
dataRow.CreateCell(column.Ordinal).SetCellValue(row[column].ToString());
rowIndex++;
workbook.Write(ms);
ms.Flush();
ms.Position = 0;
workbook =
/// &summary&
/// 由DataSet导出Excel
/// &/summary&
/// &param name="sourceTable"&要导出数据的DataTable&/param&
/// &param name="fileName"&指定Excel工作表名称&/param&
/// &returns&Excel工作表&/returns&
public static void ExportDataSetToExcel(DataSet sourceDs, string fileName)
//检查是否有Table数量超过65325
for (int t = 0; t & sourceDs.Tables.C t++)
if (sourceDs.Tables[t].Rows.Count & ExcelMaxRow)
DataSet ds = GetdtGroup(sourceDs.Tables[t].Copy());
sourceDs.Tables.RemoveAt(t);
//将得到的ds插入 sourceDs中
for (int g = 0; g & ds.Tables.C g++)
DataTable dt = ds.Tables[g].Copy();
sourceDs.Tables.Add(dt);
MemoryStream ms = ExportDataSetToExcel(sourceDs) as MemoryS
HttpContext.Current.Response.AppendHeader("Content-Disposition", "filename=" + fileName);
HttpContext.Current.Response.BinaryWrite(ms.ToArray());
HttpContext.pleteRequest();
//HttpContext.Current.Response.End();
ms.Close();
/// &summary&
/// 由DataTable导出Excel
/// &/summary&
/// &param name="sourceTable"&要导出数据的DataTable&/param&
/// &returns&Excel工作表&/returns&
private static Stream ExportDataTableToExcel(DataTable sourceTable)
HSSFWorkbook workbook = new HSSFWorkbook();
MemoryStream ms = new MemoryStream();
HSSFSheet sheet = (HSSFSheet)workbook.CreateSheet(sourceTable.TableName);
HSSFRow headerRow = (HSSFRow)sheet.CreateRow(0);
// handling header.
foreach (DataColumn column in sourceTable.Columns)
headerRow.CreateCell(column.Ordinal).SetCellValue(column.ColumnName);
// handling value.
int rowIndex = 1;
foreach (DataRow row in sourceTable.Rows)
HSSFRow dataRow = (HSSFRow)sheet.CreateRow(rowIndex);
foreach (DataColumn column in sourceTable.Columns)
dataRow.CreateCell(column.Ordinal).SetCellValue(row[column].ToString());
rowIndex++;
workbook.Write(ms);
ms.Flush();
ms.Position = 0;
headerRow =
workbook =
/// &summary&
/// 由DataTable导出Excel
/// &/summary&
/// &param name="sourceTable"&要导出数据的DataTable&/param&
/// &param name="fileName"&指定Excel工作表名称&/param&
/// &returns&Excel工作表&/returns&
public static void ExportDataTableToExcel(DataTable sourceTable, string fileName)
//如数据超过65325则分成多个Table导出
if (sourceTable.Rows.Count & ExcelMaxRow)
DataSet ds = GetdtGroup(sourceTable);
//导出DataSet
ExportDataSetToExcel(ds, fileName);
MemoryStream ms = ExportDataTableToExcel(sourceTable) as MemoryS
HttpContext.Current.Response.AppendHeader("Content-Disposition", "filename=" + fileName);
HttpContext.Current.Response.BinaryWrite(ms.ToArray());
HttpContext.pleteRequest();
//HttpContext.Current.Response.End();
ms.Close();
/// &summary&
/// 传入行数超过65325的Table，返回DataSet
/// &/summary&
/// &param name="dt"&&/param&
/// &returns&&/returns&
public static DataSet GetdtGroup(DataTable dt)
string tablename = dt.TableN
DataSet ds = new DataSet();
ds.Tables.Add(dt);
double n = dt.Rows.Count / Convert.ToDouble(ExcelMaxRow);
for (int i = 1; i & i++)
DataTable dtAdd = dt.Clone();
dtAdd.TableName = tablename + "_" + i.ToString();
ds.Tables.Add(dtAdd);
//分解数据
for (int i = 1; i & ds.Tables.C i++)
//新表行数达到最大 或 基表数量不足
while (ds.Tables[i].Rows.Count != ExcelMaxRow && ds.Tables[0].Rows.Count != ExcelMaxRow)
ds.Tables[i].Rows.Add(ds.Tables[0].Rows[ExcelMaxRow].ItemArray);
ds.Tables[0].Rows.RemoveAt(ExcelMaxRow);
/// &summary&
/// 由DataTable导出Excel
/// &/summary&
/// &param name="sourceTable"&要导出数据的DataTable&/param&
/// &param name="fileName"&指定Excel工作表名称&/param&
/// &returns&Excel工作表&/returns&
public static void ExportDataTableToExcelModel(DataTable sourceTable, string modelpath, string modelName, string fileName, string sheetName)
int rowIndex = 2;//从第二行开始，因为前两行是模板里面的内容
int colIndex = 0;
FileStream file = new FileStream(modelpath + modelName + ".xls", FileMode.Open, FileAccess.Read);//读入excel模板
HSSFWorkbook hssfworkbook = new HSSFWorkbook(file);
HSSFSheet sheet1 = (HSSFSheet)hssfworkbook.GetSheet("Sheet1");
sheet1.GetRow(0).GetCell(0).SetCellValue("excelTitle");
//设置表头
foreach (DataRow row in sourceTable.Rows)
//双循环写入sourceTable中的数据
rowIndex++;
colIndex = 0;
HSSFRow xlsrow = (HSSFRow)sheet1.CreateRow(rowIndex);
foreach (DataColumn col in sourceTable.Columns)
xlsrow.CreateCell(colIndex).SetCellValue(row[col.ColumnName].ToString());
colIndex++;
sheet1.ForceFormulaRecalculation =
FileStream fileS = new FileStream(modelpath + fileName + ".xls", FileMode.Create);//保存
hssfworkbook.Write(fileS);
fileS.Close();
file.Close();
Config配置了 【ExcelMaxRow】值 65535
阅读(...) 评论()