亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

C#實現對Word文件讀寫

系統 1986 0
#實現對Word文件讀寫

??????? 手頭上的一個項目報表相對比較簡單,所以報表打印采用VBA引擎,通過定制Word模版,然后根據模版需要填充數據,然后OK,打印即可。

  實現方法:首先需要引用VBA組建,我用的是Office2003 Professional,Dll版本號為Microsoft Word11.0

?

C#實現對Word文件讀寫

?

  另外當然還需要引用Interop.Word.Dll.

  代碼如下:

///#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;
}


  這種方法是相當有效的。

  下附:VB.NET版實現word打開與關閉,有興趣的朋友可以研究一下

VB.NET實現word打開與關閉


Imports Word

'打開

Dim mWordapp As Word.Application 'word 應用程序

Dim mobjDoc As Word.Document 'word 文檔

Dim fullFileName as string '文件路徑

mWordapp = CreateObject("Word.Application")

mobjDoc = mWordapp.Documents.Add(FullFileName)

'關閉

Dim missing As Object = System.Reflection.Missing.Value

mWordapp.Application.Quit()

If Not mobjDoc Is Nothing Then

'垃圾回收

System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)

mobjDoc = Nothing

End If

If Not mWordapp Is Nothing Then

System.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)

mWordapp = Nothing

End If

'真正釋放word進程

GC.Collect()

?

C#實現對Word文件讀寫


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 青青青国产精品手机在线观看 | 久久精品国产69国产精品亚洲 | 欧美日韩亚洲综合在线一区二区 | 麻豆精品永久免费视频 | 色 综合 欧美 亚洲 国产 | 黄色片网站在线 | 依人综合网 | 手机看片欧美 | 四虎国产精品成人永久免费影视 | 一级欧美毛片成人免费视频 | 999精品在线 | 99成人| 久久久伊香蕉网站 | 高清毛片免费看 | 亚洲欧美精品日韩欧美 | 一级a毛片免费观看久久精品 | 福利一区在线观看 | 天天爽夜夜爽天天做夜夜做 | 毛片大片| 亚洲第一黄色网址 | 9久热| 久久在线精品视频 | 香蕉视频网站入口 | 精品久久久久久中文字幕一区 | 深夜精品寂寞在线观看黄网站 | 香蕉精品高清在线观看视频 | 国产精品免费久久久免费 | 麻豆伦理 | 亚洲成人在线免费视频 | 四虎影视免费观看 | 久久久国产成人精品 | 免费的一级毛片 | 99热久久这里只有精品 | 99r在线| 久久99热这里只有精品高清 | 91视频免费网站 | 国产亚洲精品第一区在线观看 | 国产乱肥老妇精品视频 | 2022国产成人综合精品 | 欧美ⅹxxxx视频 | 欧美在线视频免费 |