乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > asp.net将Microsoft.Office.Inter...

asp.net将Microsoft.Office.Inter...

作者:乔山办公网日期:

返回目录:office365


string strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = c:\\sample.xls;Extended Properties=Excel 8.0" ;
OleDbConnection myConn = new OleDbConnection ( strCon ) ;
string strCom = " SELECT * FROM [Sheet1$] " ;
myConn.Open ( ) ;
file://打开数据链接,得到一个数据集e799bee5baa6e997aee7ad94e58685e5aeb9333
OleDbDataAdapter myCommand = new OleDbDataAdapter ( strCom , myConn ) ;
file://创建一个 DataSet对象
myDataSet = new DataSet ( ) ;
file://得到自己的DataSet对象
myCommand.Fill ( myDataSet , "[Sheet1$]" ) ;
file://关闭此数据链接
myConn.Close ( ) ;然后读取Excel,using System.Reflection; // 引用这个才能使用Missing字段
using Excel; Excel.ApplicationClass excel = new Excel.ApplicationClass();
excel.Visible = true; //激活Excel
Workbook wBook = excel.Workbooks.Add(true);
// Worksheet wSheet = (Excel._Worksheet)wBook.ActiveSheet;
Worksheet wSheet = (Excel.Worksheet)wBook.ActiveSheet;
excel.Cells[3, 5] = "本公司电话: " + Phone;
excel.Cells[4, 5] = "本公司传真: " + Zhen;
excel.Cells[5, 5] = "联系人: " + ComName;
excel.Cells[4, 1] = "客户: " + CustomerName;
excel.Cells[5, 1] = "联系人: " + Associate;
excel.Cells[3, 8] = "户名:";
excel.Cells[3, 9] = AccountName;
excel.Cells[4, 8] = "开户行:";
excel.Cells[4, 9] = BranchName;
excel.Cells[5, 8] = "帐号:";
excel.Cells[5, 9] = "'" + AccountID;
//设置禁止弹出保存和覆盖的询问提示框
excel.DisplayAlerts = false;
excel.AlertBeforeOverwriting = false;
//保存工作薄
// wBook.Save();
//每次保存激活的表,这样才能多次操作保存不同的Excel表,默认保存位置是在”我的文档"

excel.Cells.Font.Size = 12;
excel.Cells.Font.Bold = false;
// Excel.Range m_objRange = m_objRange.get_Range(1, 3);
wSheet.get_Range(excel.Cells[1, 3], excel.Cells[1, 3]).Font.Size = 24;
wSheet.get_Range(excel.Cells[1, 3], excel.Cells[1, 3]).Font.Bold = true;
wSheet.get_Range(excel.Cells[3, 1], excel.Cells[3, 1]).Font.ColorIndex = 3;//此处设为红色,不能用Font.Color来设置颜色
// m_objRange.Cells.Font.Size = 24;
// m_objRange.Cells.Font.Bold = true; excel.ActiveWorkbook.SaveCopyAs(filename);
excel.Quit();

在目录下新建exl文件,将数据流传进去不就得了么? 你意思是?
//三个表加入到DataSet 如用中文名e69da5e887aae799bee5baa6331,可将查询语句列名AS 中文列名.设置DataTable.TableName 中文名为SheetName.
public static bool WriteToChangeMPSExcel(System.Data.DataSet ds, string Location)
{
Microsoft.Office.Interop.Excel.Application appExcel;
appExcel = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel.Workbook workbookData;
Microsoft.Office.Interop.Excel.Worksheet worksheetData;
workbookData = appExcel.Workbooks.Add(Missing.Value);
try
{

foreach (DataTable dt in ds.Tables)
{
worksheetData = (Microsoft.Office.Interop.Excel.Worksheet)workbookData.Worksheets.Add(Missing.Value, Missing.Value, Missing.Value, Missing.Value);
worksheetData.Name = dt.TableName;//表名
worksheetData.Cells[1, 1] = dt.Columns[0].ColumnName;//列名
worksheetData.Cells[1, 2] = dt.Columns[1].ColumnName;
worksheetData.Cells[1, 3] = dt.Columns[2].ColumnName;
worksheetData.Cells[1, 4] = dt.Columns[3].ColumnName;
//......
//写数据
//......
worksheetData.Columns.EntireColumn.AutoFit();
}
workbookData.Saved = true;
workbookData.SaveCopyAs(Location);
return true;
}
catch{return false;}
finally
{
workbookData.Close(true, Type.Missing, Type.Missing);
appExcel.Quit();
}
}//大概差不多这样吧..没测试.

Microsoft.Office.Interop.Excel.ApplicationMyexcel=newMicrosoft.Office.Interop.Excel.Application();if(Myexcel==null){return;}Microsoft.Office.Interop.Excel._WorkbookxBk;xBk=Myexcel.Application.Workbooks.Add(true);Microsoft.Office.Interop.Excel._WorksheetxSt;xSt=(Microsoft.Office.Interop.Excel._Worksheet)xBk.ActiveSheet;//设置标题等stringTitle=null;if(this.cbox_depart.Text.Trim().Length>0){if(this.cbox.Text.Trim().Length>0)Title=cbox.Text.Trim()+"评价结果表";elseTitle=cbox_depart.Text.Trim()+"评价结果表";}elseTitle=DateTime.Now.Year+"全员评价汇总统计表";xSt.Name=Title;//报表的格式设置xSt.Cells[1,6]=Title;xSt.get_Range(Myexcel.Cells[1,6],Myexcel.Cells[1,6]).HorizontalAlignment=Microsoft.Office.Interop.Excel.XlVAlign.xlVAlignCenter;//设置标题格式为居中对齐xSt.get_Range(Myexcel.Cells[1,6],Myexcel.Cells[1,6]).Font.Bold=true;xSt.get_Range(Myexcel.Cells[1,6],Myexcel.Cells[1,6]).Font.Size=20;xSt.Cells[3,1]="排名";xSt.Cells[3,2]="姓名";xSt.Cells[3,3]="职位";xSt.Cells[3,4]="上级评分636f7079e799bee5baa6e997aee7ad94365";xSt.Cells[3,5]="下级/同级评分";xSt.Cells[3,6]="其他部门同事评分";xSt.Cells[3,7]="客户评分";xSt.Cells[3,8]="人事评分";xSt.Cells[3,9]="总分";xSt.Cells[3,10]="其他人员建议";//写exceldgv是一个datagridview//下面是用循环把datagridview中的内容写道写到excelfor(introwIndex=0;rowIndex

相关阅读

  • asp.net将Microsoft.Office.Inter...

  • 乔山办公网office365
  • string strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = c:sample.xls;Extended Properties=Excel 8.0" ;OleDbConnection myConn = new OleDbCo
关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网