客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
C#实现对Word文件读写(转) - [.net]版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明 手头上的一个项目报表相对比较简单，所以报表打印采用VBA引擎，通过定制Word模版，然后根据模版需要填充数据，然后OK,打印即可。 代码如下：
///#region 打开Word文档,并且返回对象wDoc,wDoc
/// /// 打开Word文档,并且返回对象wDoc,wDoc /// /// 完整Word文件路径+名称 /// 返回的Word.Document wDoc对象 /// 返回的Word.Application对象 public static void CreateWordDocument(string FileName,ref Word.Document wDoc,ref Word.Application WApp) { if(FileName == "") return; Word.Document thisDocument = null; Word.FormFields formFields = null; Word.Application thisApplication = new Word.ApplicationClass(); thisApplication.Visible = true; thisApplication.Caption = ""; thisApplication.Options.CheckSpellingAsYouType = false; thisApplication.Options.CheckGrammarAsYouType = false; Object filename = FileName; Object ConfirmConversions = false; Object ReadOnly = true; Object AddToRecentFiles = false; Object PasswordDocument = System.Type.Missing; Object PasswordTemplate = System.Type.Missing; Object Revert = System.Type.Missing; Object WritePasswordDocument = System.Type.Missing; Object WritePasswordTemplate = System.Type.Missing; Object Format = System.Type.Missing; Object Encoding = System.Type.Missing; Object Visible = System.Type.Missing; Object OpenAndRepair = System.Type.Missing; Object DocumentDirection = System.Type.Missing; Object NoEncodingDialog = System.Type.Missing; Object XMLTransform = System.Type.Missing; try { Word.Document wordDoc = thisApplication.Documents.Open(ref filename, ref ConfirmConversions, ref ReadOnly, ref AddToRecentFiles, ref PasswordDocument, ref PasswordTemplate, ref Revert,ref WritePasswordDocument, ref WritePasswordTemplate, ref Format, ref Encoding, ref Visible, ref OpenAndRepair, ref DocumentDirection, ref NoEncodingDialog, ref XMLTransform ); thisDocument = wordDoc; wDoc = wordDoc; WApp = thisApplication; formFields = wordDoc.FormFields; } catch(Exception ex) { MessageBox.Show(ex.Message); } } #endregion 调用上面静态方法，打开目标文件并且把DataGrid中数据填充到对应Word标签中去
///#region Word填充数据(For Example)
/// /// Word填充数据 /// private void WordLoadData() { Word.Document wDoc=null; Word.Application wApp=null; sysFun.CreateWordDocument("E:\\监测报告(new).dot",ref wDoc,ref wApp); //对标签"C"进行填充 object bkmC="C"; if(wApp.ActiveDocument.Bookmarks.Exists("C") == true) { wApp.ActiveDocument.Bookmarks.get_Item (ref bkmC).Select(); } wApp.Selection.TypeText(this.txt1.Text); object bkmG = "TWaterTable3"; object unit; object count; //移动数 object extend; extend = Word.WdMovementType.wdExtend; unit = Word.WdUnits.wdCell; //把DataGrid中数据填充到标签TWaterTable3上 if(wApp.ActiveDocument.Bookmarks.Exists("TWaterTable3") == true) { wApp.ActiveDocument.Bookmarks.get_Item (ref bkmG).Select(); for(int i=0;i { if(i==0) { count=1; } else { count=0; } //需填充5列数据 wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[0].Text); count=1; wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[1].Text); wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[2].Text); wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[3].Text); wApp.Selection.Move(ref unit,ref count); wApp.Selection.TypeText(gridEX1.GetRow(i).Cells[4].Text); //换行 wApp.Selection.MoveRight(ref unit,ref count,ref extend); } } } #endregion 然后就OK了，在对标签表控制要注意列循环和换行. C#操作Excel（导入导出）
有很多朋友说需要C#导出到Excel的代码，现共享给大家
///
/// 读取Excel文档 /// /// 文件名称 /// 返回一个数据集 public DataSet ExcelToDS(string Path) { string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +"Data Source="+ Path +";"+"Extended Properties=Excel 8.0;"; OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); string strExcel = ""; OleDbDataAdapter myCommand = null; DataSet ds = null; strExcel="select * from [sheet1$]"; myCommand = new OleDbDataAdapter(strExcel, strConn); ds = new DataSet(); myCommand.Fill(ds,"table1"); return ds; } /// /// 写入Excel文档 /// /// 文件名称 public bool SaveFP2toExcel(string Path) { try { string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +"Data Source="+ Path +";"+"Extended Properties=Excel 8.0;"; OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); System.Data.OleDb.OleDbCommand cmd=new OleDbCommand (); cmd.Connection =conn; //cmd.CommandText ="UPDATE [sheet1$] SET 姓名='2005-01-01' WHERE 工号='日期'"; //cmd.ExecuteNonQuery (); for(int i=0;i { if(fp2.Sheets [0].Cells[i,0].Text!="") { cmd.CommandText ="INSERT INTO [sheet1$] (工号,姓名,部门,职务,日期,时间) VALUES('"+fp2.Sheets [0].Cells[i,0].Text+ "','"+ fp2.Sheets [0].Cells[i,1].Text+"','"+fp2.Sheets [0].Cells[i,2].Text+"','"+fp2.Sheets [0].Cells[i,3].Text+ "','"+fp2.Sheets [0].Cells[i,4].Text+"','"+fp2.Sheets [0].Cells[i,5].Text+"')"; cmd.ExecuteNonQuery (); } } conn.Close (); return true; } catch(System.Data.OleDb.OleDbException ex) { System.Diagnostics.Debug.WriteLine ("写入Excel发生错误："+ex.Message ); } return false; } 导出到Excel的时候，创建一个Excel文件 object misvalueExcel = System.Reflection.Missing.Value; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论