#實(shí)現(xiàn)對(duì)Word文件讀寫

        手頭上的一個(gè)項(xiàng)目報(bào)表相對(duì)比較簡單，所以報(bào)表打印采用VBA引擎，通過定制Word模版，然后根據(jù)模版需要填充數(shù)據(jù)，然后OK,打印即可。

　　實(shí)現(xiàn)方法：首先需要引用VBA組建,我用的是Office2003 Professional，Dll版本號(hào)為Microsoft Word11.0

 

 

　　另外當(dāng)然還需要引用Interop.Word.Dll.

　　代碼如下：

///#region 打開Word文檔,并且返回對(duì)象wDoc,wDoc
///
/// 打開Word文檔,并且返回對(duì)象wDoc,wDoc
///
/// 完整Word文件路徑+名稱
/// 返回的Word.Document wDoc對(duì)象
/// 返回的Word.Application對(duì)象
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

調(diào)用上面靜態(tài)方法，打開目標(biāo)文件并且把DataGrid中數(shù)據(jù)填充到對(duì)應(yīng)Word標(biāo)簽中去

///#region Word填充數(shù)據(jù)(For Example)
///
/// Word填充數(shù)據(jù)
///
private void WordLoadData()
{
Word.Document wDoc=null;
Word.Application wApp=null;
sysFun.CreateWordDocument("E:\\監(jiān)測(cè)報(bào)告(new).dot",ref wDoc,ref wApp);

//對(duì)標(biāo)簽"C"進(jìn)行填充
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; //移動(dòng)數(shù)
object extend;

extend = Word.WdMovementType.wdExtend;
unit = Word.WdUnits.wdCell;
//把DataGrid中數(shù)據(jù)填充到標(biāo)簽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列數(shù)據(jù)
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了，在對(duì)標(biāo)簽表控制要注意列循環(huán)和換行.

C#操作Excel（導(dǎo)入導(dǎo)出）

　　有很多朋友說需要C#導(dǎo)出到Excel的代碼，現(xiàn)共享給大家

///
/// 讀取Excel文檔
///
/// 文件名稱
/// 返回一個(gè)數(shù)據(jù)集
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 工號(hào)='日期'";
//cmd.ExecuteNonQuery ();
for(int i=0;i {
if(fp2.Sheets [0].Cells[i,0].Text!="")
{
cmd.CommandText ="INSERT INTO [sheet1$] (工號(hào),姓名,部門,職務(wù),日期,時(shí)間) 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發(fā)生錯(cuò)誤："+ex.Message );
}
return false;
}

　　這種方法是相當(dāng)有效的。

　　下附：VB.NET版實(shí)現(xiàn)word打開與關(guān)閉，有興趣的朋友可以研究一下

VB.NET實(shí)現(xiàn)word打開與關(guān)閉

Imports Word

'打開

Dim mWordapp As Word.Application 'word 應(yīng)用程序

Dim mobjDoc As Word.Document 'word 文檔

Dim fullFileName as string '文件路徑

mWordapp = CreateObject("Word.Application")

mobjDoc = mWordapp.Documents.Add(FullFileName)

'關(guān)閉

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進(jìn)程

GC.Collect()

 
文章來源:http://www.cnblogs.com/wangdetian168/archive/2008/06/25/1229968.html